使用ASP实现http://xx@xx.xx虚拟域名

时间:2008-10-07 12:04:16  来源:第二电脑网上收集  作者:

  第二电脑网导读:将域名所在根目录下的默认首页index.asp作为获取@前参数跳转 index.asp <script>file://获取当前页的完整URL:http://xxx@xxx....
  正文:   给大家我的思路,希望对某些感兴趣的朋友些许帮助:

  首先必须有自己的顶级域名:-),还要牺牲自己的首页index.ASP/ target=_blank class=infotextkey>asp的命名(比如说:将首页改名为index1.asp,不过在程序里可以通过判断将没有带@参数的域名再跳转到首页).

  首先在将域名所在根目录下的默认首页index.asp作为获取@前参数跳转
index.asp

<script>file://获取当前页的完整URL:http://xxx@xxx.xxx形式var xx=location.hreffile://将输入的域名url以url参数形式传递到go.aspdocument.location.href="go.asp?url="+xx</script>


go.asp处理域名并实现跳转
<%'数据库连接,存放用户注册信息,内容为域名,以及域名所指向的具体URL地址,域名访问简单记数,以及一些用户信息%>
<!--#include file="conn.asp" -->
<%
'获取URL参数
url=request.QueryString("url")
'判断是否是以虚拟@域名形式传递过来
if instr(url,"@")=0 then
'如果没有则直接跳转到自己的首页index1.asp
response.Redirect("index1.asp")
else
'处理url参数,取得http://username@domain.com中的username
url=right(url,(len(url)-len("http://")))
url=left(url,(instr(url,"@")-1))
user=url
'从数据库中取出于username对应的转向目标url地址
set rs=conn.execute("select siteurl from url where user='"&user&"'")
if rs.bof or rs.eof then
'如果没有记录则显示:该域名不存在
response.Write("<a href='http://skyworm.com'><font size=2><center>该域名不存在</center></font></a>")
else
'对域名访问率简单记数
conn.execute("update url set count=count+1 where user='"&user&"'")
'跳转到虚拟域名对应的目标url地址,程序结束!
response.Redirect(rs(0))
end if
rs.close
set rs=nothing
end if
conn.close
set conn=nothing
%>

使用ASP实现http://xx@xx.xx虚拟域名》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Programming/ASP/2008-10-07/2923.html


关键字:

关于《使用ASP实现http://xx@xx.xx虚拟域名》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td