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
%>


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. |