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/
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值