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

<!--#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

%>