ASP二级域名程序（对，没错，不是URL转发）V2

导读：
　　豚小屋
　　這個世界，除了豬，還有誰在快樂著····
　　级域名与与转发的区别就在于，比如：
　　http://blog.gu999.com.cn/index.php
　　二级域名将转向到http://blog.gu999.com.cn/index.php
　　URL转发会到http://blog.gu999.com.cn/
　　也就是说二级域名也可以当作一个域名来看待，现在网上有好多URL转发的程序，我写了个二级域名的程序，好了，闲话少说，代码说话~~
　　实现原理很简单：
　　首先，网站根目录下要放一个index.asp文件用于地址的转发
　　其次，要有个404.htm，名字可以随便取，但在虚拟主机上一定要把它设成默认404错误页，我们主要的域名解析就靠它了，呵呵~
　　最后，要有个真正的404错误页，叫它true404.htm
　　第一版代码：
　　404.htm
　　Quotation
　　<scriptlanguage=vbscript>
　　const Domain="royee.com" //改成你的域名（需支持泛解析）
　　</script>
　　
　　<scriptlanguage=javascript>
　　function getURL()
　　{
　　return location.href;
　　}
　　function href(val)
　　{
　　if (val=="")
　　{
　　return location.href;
　　}
　　else
　　{
　　location.href=val
　　}
　　}
　　</script>
　　
　　<scriptlanguage=vbscript>
　　url=geturl()
　　url=replace(url,"http://","")
　　host=left(url,instr(url,"/")-1)
　　secDomain=left(host,len(host)-len(Domain)-1)
　　extUrl=right(url,len(url)-len(host))
　　exturl=replace(exturl,"&","%26")
　　href("index.asp?secDomain="+secDomain+"&extUrl="+extUrl)
　　</script>
　　index.asp
　　Quotation
　　const Domain="royee.com" //改成你的域名（需支持泛解析）
　　const frontURL="http://domain.royee.com/" //改成你的网站地址
　　serverName=Request.ServerVariables("SERVER_NAME")
　　extURL=Request.ServerVariables("SCRIPT_NAME")
　　if request("extURL")="" and request("secDomian")="" then
　　secDomain=left(serverName,len(serverName)-len(Domain)-1)
　　else
　　secDomain=request("secDomain")
　　extURL=request("extUrl")
　　end if
　　select case secDomain
　　case ""
　　response.redirect frontURL&extURL
　　case "www"
　　response.redirect frontURL&extURL
　　case "ftp"
　　response.redirect "ftp://172.16.69.81"
　　case "05jb"
　　response.redirect frontURL&"05jb"&extURL
　　case else
　　response.redirect "true404.htm" //404错误页面
　　end select
　　修正第一版中的一些Bug：
　　1、二级域名后不跟地址只会转到 域名+index.asp
　　2、不存在的地址不会显示404错误
　　3、输入不存在的地址造成404转向死循环第二版代码：
　　Pages: [1]
　　Trackbacks(0)
　　Add a comment
　　Emots
　　
　　
　　
　　
　　
　　Enable HTML
　　Enable UBB
　　Enable Emots
　　Hidden
　　Remember
　　Nickname Password Optional
　　Site URI Email
　　
　　
　　
　　 Login
　　 Calendar
　　<2007><12>
　　Ding Hai (Swine)
　　Su Mo Tu We Th Fr Sa
　　1
　　3 4 5 7 8
　　10 11 12 13 14 15
　　16 17 18 19 20 21 22
　　23 25 26 27 28 29
　　30 31
　　 Music Player
　　Get the Flash Playerto see this player.
　　 Search
　　 Latest Comments
　　sashung:zan细心的小孩呀
　　-:zan
　　漂过:没有月亮的中秋节，呵呵，...
　　w:饿昏的猪 E-mail:...
　　 Links
　　 Statistics
　　Visits 28428
　　Today 109
　　Entries 151
　　Comments 4
　　Trackbacks 0
　　Messages 0
　　Users 3
　　Online 7
　　 ADS by Google
　　 Search Google
　　
　　Putin the Keywords
　　Web DL2008.CN
　　Put the Form
　　 FanFou
　　 Alimama
　　
　　
　　
　　 AlimamaAD

本文转自
http://www.dl2008.cn/post/98/