Converting Chinese in the URL into code <% Function URLHTML (TextStr) lennum = len (TextStr) for i = 1 To Lennum IF ASC (MID (TextStr, I, 1))> 127 or ASC (MID (TextStr, i, 1)) <0 Tenstr = HEX (ASC (MID (TEXTSTSTR, I, 1)))) IF LEN (TEMPSTR) = 4 Tempstr = "%" & MID (Tempstr, 1, 2) & "%" & MID (Tempstr, 3, 2) Else Tempstr = "%" & Tempstr End if as asktr = Ascstr & Mid (TextStr, I, 1) end if nexturlhtml = ascstrend function%>
