ASP将汉字转换成URL编码函数

vingoo

URL编码就是在URL之间传递的数据，如果直接在URL里加汉字，有的浏览器可以识别，有的浏览器不可以识别，举个简单的例子，在QQ对话框里输入
http://www.kevin-ying.com/tag.php?name=%D7%B7%BC%D3
发送给对话，这个连接是一个整体，而如果是汉字
http://www.kevin-ying.com/tag.php?name=追加
QQ聊天对话框里=号后面的就被忽略了，所以将汉字转换成URL编码是非常必要的

[AppleScript] 纯文本查看 复制代码

<%
Function UrlEncoding(DataStr)
Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8
StrReturn = ""
For Si = 1 To Len(DataStr)
ThisChr = Mid(DataStr,Si,1)
If Abs(Asc(ThisChr)) < &HFF Then
StrReturn = StrReturn & ThisChr
Else
InnerCode = Asc(ThisChr)
If InnerCode < 0 Then
InnerCode = InnerCode + &H10000
End If
Hight8 = (InnerCode And &HFF00)\ &HFF
Low8 = InnerCode And &HFF
StrReturn = StrReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
End If
Next
UrlEncoding = StrReturn
End Function
response.Write UrlEncoding("你好")
再告诉你们一个秘密，ASP自带的有这么一个方法server.URLEncode("你好")，效果一样。
%>