广场 › 『免费资源 Free Hosting Discussion』 › [代码]把网址变为 %77%77%77%2E%65%6E%6A%6F%79%77%6F%72%6B%2E%63%6E 形式的代码

redsnow 发表于 2008 年 4 月 17 日 22:25:20

[代码]把网址变为 %77%77%77%2E%65%6E%6A%6F%79%77%6F%72%6B%2E%63%6E 形式的代码

http://www.enjoywork.cn

http://%77%77%77%2E%65%6E%6A%6F%79%77%6F%72%6B%2E%63%6E<%Dim s
s = "www.enjoywork.cn"
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%>

y 发表于 2008 年 4 月 17 日 22:43:33

url2asc=lambda s:''.join([ '%%%x'%ord(i) for i in s ])
print url2asc('www.jgwy.net')
#python比之vbs的无比优越性...

waitme 发表于 2008 年 4 月 18 日 11:59:00

:( :(

很明显 发表于 2008 年 4 月 18 日 12:50:11

:(

得寸进尺 发表于 2008 年 4 月 18 日 13:05:03

这代码怎么用，，

懑梵 发表于 2008 年 4 月 18 日 13:26:42

把代码里的域名换成你的 然后另存为asp文件运行就可以了。

whlcr 发表于 2008 年 4 月 19 日 17:28:49

有没有PHP的？

长天 发表于 2008 年 4 月 19 日 17:57:45

关键是有意思吗

cquyf 发表于 2008 年 4 月 19 日 18:14:33

:lol :lol

redsnow 发表于 2008 年 4 月 19 日 19:21:41

当然有用的地方了...................

查看完整版本: [代码]把网址变为 %77%77%77%2E%65%6E%6A%6F%79%77%6F%72%6B%2E%63%6E 形式的代码