[ 2008-05-04 19:46:59 | Author: zhenhua ]
Font Size: Large | Medium | Small
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)))
End Function

Comments Feed Comments Feed:
UTF-8 Encoding Trackback URL:

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.
Post Comment
[arrow] [biggrin] [confused] [cool]
[cry] [eek] [evil] [exclaim]
[frown] [idea] [lol] [mad]
[mrgreen] [neutral] [question] [razz]
[redface] [rolleyes] [sad] [smile]
[surprised] [twisted] [wink]
Enable UBB Codes
Auto Convert URL
Show Smilies
Hidden Comment
Username:   Password:   Register Now?
Security Code * Please Enter the Security Code