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

redsnow

http://www.enjoywork.cn

http://%77%77%77%2E%65%6E%6A%6F%79%77%6F%72%6B%2E%63%6E

1. <%Dim s
   
2. s = "www.enjoywork.cn"
   
3. Response.Write "http://" & UrlToAsc(s)
   
4. Function UrlToAsc(url)
   
5.         Dim i
   
6.         For i = 1 To Len(url)
   
7.                 UrlToAsc = UrlToAsc & "%" & Hex(Asc(Mid(url,i,1)))
   
8.         Next
   
9. End Function%>

复制代码

y

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

waitme

很明显

得寸进尺

这代码怎么用，，

懑梵

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

whlcr

有没有PHP的？

长天

关键是有意思吗

cquyf

redsnow

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