'转换双字节字符为合法的URL传输字串
Function getUrlEncodel(byVal Url)
Dim i,code
getUrlEncodel=""
If trim(Url)="" then exit function
For i=1 To len(Url)
code=Asc(mid(Url,i,1))
If code<0 Then code = code + 65536
If code>255 Then
getUrlEncodel=getUrlEncodel&"%"&Left(Hex(Code),2)&"%"&Right(Hex(Code),2)
Else
getUrlEncodel=getUrlEncodel&mid(Url,i,1)
End If
Next
End Function
win200 server+iis,为什么在网页上,有的中文htm链接路径可以显示,有的不行?
最新推荐文章于 2023-02-17 11:17:55 发布