自定UrlToCode函数

把URL中的中文转换成代码
<%
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 then
        TempStr = Hex(Asc(Mid(TextStr, i, 1))) 
        If Len(TempStr) = 4 Then
            TempStr = "%" & Mid(TempStr, 1, 2) & "%" & Mid(TempStr, 3, 2)
        Else
            TempStr = "%" & TempStr
        End If
        AscStr = AscStr & TempStr
 else
 AscStr=AscStr&Mid(TextStr, i, 1)
 end if
    Next
UrlHtml=AscStr
End Function
%>