落伍者站长论坛 » 免费代码及编程交流 » [新增在线转换] 发个把网址变为 http://%77%77%77%2e%6e%62%35%35%35 形式的代码

nb99.net 发表于 2008-4-17 20:52

[新增在线转换] 发个把网址变为 http://%77%77%77%2e%6e%62%35%35%35 形式的代码

如把：[url]http://www.nb555.com[/url]
变为：[url]http://%77%77%77%2e%6e%62%35%35%35%2e%63%6f%6d[/url]
有兄弟没ASP环境，特加了个在线转换的：[url]http://www.nb555.com/url/[/url][code]
<%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%>
[/code]

[[i] 本帖最后由 nb99.net 于 2008-4-19 00:50 编辑 [/i]]

梦幻雪儿 发表于 2008-4-17 21:25

原来是这样呀

梦幻雪儿 发表于 2008-4-17 21:26

要放在哪呢?

wzmo.com 发表于 2008-4-17 22:34

怎么用呢？
最近论坛上有这形式的网址我还奇怪呢。原来这样的.

catty20 发表于 2008-4-17 22:36

好东西,只是对我没用:lol:

liuqin 发表于 2008-4-17 22:36

作个记号!

omn 发表于 2008-4-17 22:36

请教如何用那

ahwcz 发表于 2008-4-17 22:39

怎么用呢？

bcnq 发表于 2008-4-17 22:53

呵呵，有用吗？

阿红 发表于 2008-4-17 23:04

*** 作者被禁止或删除 内容自动屏蔽 ***

nb99.net 发表于 2008-4-17 23:19

将代码存为 asp 文件，把 s = "www.nb555.com" 改为你的网址，运行一下就可以得到你想要的了。

houniao 发表于 2008-4-17 23:24

纯粹是找罪受 :lol:

竹片子 发表于 2008-4-17 23:26

个人觉得还是不错的，第一想到的是tag运用上，中文转换后至少google能认得了~

临时演员 发表于 2008-4-17 23:30

这样做有什么好处.为什么要去转换叱

琅驭怀喆 发表于 2008-4-17 23:52

记号一下,写程序的时候用得到

530kan 发表于 2008-4-17 23:58

作个记号

nb99.net 发表于 2008-4-18 00:15

中文可以直接用 server.urlencode

ldll 发表于 2008-4-18 00:28

很不错，相当于加密了。:lol:

phuai 发表于 2008-4-18 06:43

这个东西对我有启发，最近刚遇到一个要把文字变成这样的格式的东东要搞

猫喝的果粒橙 发表于 2008-4-18 10:05

不错，做个记号：[code]<%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%>[/code]

查看完整版本: [新增在线转换] 发个把网址变为 http://%77%77%77%2e%6e%62%35%35%35 形式的代码