把网址变为 %77%77%77%2E%65%6E%6A%6F%79%77%6F%72%6B%2E%63%6E 形式的代码
Apr172008
[code]<%Dim s
s = "zhzx.phpok.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%>[/code]