您所在的位置:小祥子 » 编程 » ASP » 正文

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

时间:2015-02-03 编辑:佚名 来源:互联网

URL编码就是在URL之间传递的数据,如果直接在URL里加汉字,有的浏览器可以识别,有的浏览器不可以识别,举个简单的例子,在QQ对话框里输入

http://www.xiaoxiangzi.com/article/tag.ASP?name=%D7%B7%BC%D3

发送给对话,这个连接是一个整体,而如果是汉字

http://www.xiaoxiangzi.com/article/tag.asp?name=追加

QQ聊天对话框里=号后面的就被忽略了,所以将汉字转换成URL编码是非常必要的

<%
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("你好"),效果一样。
%>

关键词:转换 函数 编码