落伍者站长论坛 » 建站代码交流 » [新增在线转换] 发个把网址变为 http://%77%77%77%2e%6e%62%35%35%35 形式的代码
落伍者
NB555.COM
<%Dim s s = "www.nb555.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%>
查看个人网站
查看详细资料
TOP
地狱&死神
我是一个小小小小小站长!
傻仔加戆仔一个