<%
Function GetSBInfo(Str,Flag)
If inStr(Str,";")>0 then
Dim T
T = split(Str,";")
If Ubound(T) >= 2 then
T(2) = replace(T(2),")","")
T(2) = replace(T(2),"NT 5.2","2003")
T(2) = replace(T(2),"NT 5.1","XP")
T(2) = replace(T(2),"NT 5.0","2000")
T(2) = replace(T(2),"9x","Me")
T(1) = Trim(T(1))
T(2) = Trim(T(2))
If Flag = 1 then
GetSBInfo = T(1)
Else
GetSBInfo = T(2)
End If
Else
If Flag = 1 then
GetSBInfo = "δ֪"
Else
GetSBInfo = "δ֪"
End If
End If
Else
If Flag = 1 then
GetSBInfo = "δ֪"
Else
GetSBInfo = "δ֪"
End If
End If
End Function
%>