Website simple traditional conversion function

1.gb.asp
<%
' Get the server-generated HTML code
Function gethttppage (URL)
Dim XmlHttp
Set Xmlhttp=server.createobject ("Microsoft.XMLHTTP")
Xmlhttp.open "Get", Url,false
Xmlhttp.send ()
' Gethttppage=http.responsetext
If Xmlhttp.readystate<>4 then Exit function
Gethttppage=bytes2bstr (Xmlhttp.responsebody)
Set xmlhttp=nothing
If Err.number<>0 then err. Clear
End Function
Function Bytes2bstr (VIN)
Dim Bytesstream,stringreturn
Set Bytesstream = Server.CreateObject ("ADODB. Stream ")
Bytesstream.type = 2
Bytesstream.open
Bytesstream.writetext Vin
bytesstream.position = 0
Bytesstream.charset = "GB2312"
Bytesstream.position = 2
Stringreturn =bytesstream.readtext
Bytesstream.close
Set Bytesstream = Nothing
Bytes2bstr = Stringreturn
End Function
' The page-delimited output function in the transformation function
Sub Splitwords (words)
Into=words
Out= ""
"Response.Write" Total Words: "&len (Into) &" <br> "
For I=1 to Len loops through each character
' Response.Write ' now loops "&i&"/"&len (INTO) &" times, and begins to detect characters "&mid (into,i,1) &" <br> "
If AscW (Mid (into,i,1)) <0 or AscW (Mid (into,i,1)) >255 then ' if it is Simplified Chinese, enter the detection phase
CODE=INSTR (Application ("GB"), Mid (into,i,1)) ' Gets the position of this character in a simplified library
If code then ' if present in Simplified Chinese library
Out=out&mid (Application ("Other_language"), code,1) ' outputs the corresponding traditional characters in the traditional font
' Response.Write ' now outputs the traditional "&i&" characters: "&mid" (Application ("Other_language"), i,1) & "<br>"
Else
Out=out&mid (into,i,1) ' is output
' Response.Write ' now outputs the simplified &i& ' characters ' &mid (into,i,1) & "<br>"