html转码
[ 2008-05-04 19:46:59 | Author: zhenhua ]
<%
Dim s
s = "www.***.com"
Response.Write "http://" & UrlToAsc(s)
Function UrlToAsc(url)
Dim i
For i = 1 To Len(url)
UrlToAsc = UrlToAsc & "%" & Hex(Asc(Mid(url,i,1)))
Next
End Function
%>
Dim s
s = "www.***.com"
Response.Write "http://" & UrlToAsc(s)
Function UrlToAsc(url)
Dim i
For i = 1 To Len(url)
UrlToAsc = UrlToAsc & "%" & Hex(Asc(Mid(url,i,1)))
Next
End Function
%>
Comments Feed: http://www.zhenhua.org/feed.asp?q=comment&id=545
Trackback URL: http://www.zhenhua.org/trackback.asp?id=545
There is no comment on this article.
| If you feel this site you find this information helpful, please click on the donation, which is voluntary,Thank you. |
