使用ASP实现http://xx@xx.xx虚拟域名
[ 2006-05-09 13:22:32 | 作者: kite ]
【摘 要】本文详细介绍如何使用ASP实现http://xx@xx.xx虚拟域名。
给大家我的思路,希望对某些感兴趣的朋友些许帮助:
首先必须有自己的顶级域名:-),还要牺牲自己的首页index.asp的命名(比如说:将首页改名为index1.asp,不过在程序里可以通过判断将没有带@参数的域名再跳转到首页).
首先在将域名所在根目录下的默认首页index.asp作为获取@前参数跳转
index.asp
<script>
file://获取当前页的完整URL:http://xxx@xxx.xxx形式
var xx=location.href
file://将输入的域名url以url参数形式传递到go.asp
document.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.aspresponse.Redirect("index1.asp")else'处理url参数,取得http://username@domain.com中的usernameurl=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 ifrs.closeset rs=nothingend ifconn.closeset conn=nothing%>
永久地址: http://www.jmkite.com/kite/technology/feed.asp?q=comment&id=75
给大家我的思路,希望对某些感兴趣的朋友些许帮助:
首先必须有自己的顶级域名:-),还要牺牲自己的首页index.asp的命名(比如说:将首页改名为index1.asp,不过在程序里可以通过判断将没有带@参数的域名再跳转到首页).
首先在将域名所在根目录下的默认首页index.asp作为获取@前参数跳转
index.asp
<script>
file://获取当前页的完整URL:http://xxx@xxx.xxx形式
var xx=location.href
file://将输入的域名url以url参数形式传递到go.asp
document.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.aspresponse.Redirect("index1.asp")else'处理url参数,取得http://username@domain.com中的usernameurl=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 ifrs.closeset rs=nothingend ifconn.closeset conn=nothing%>
永久地址: http://www.jmkite.com/kite/technology/feed.asp?q=comment&id=75
此文还没有评论.
您无法为这篇日志发表评论.







心月湖
青草荷塘