日期:2011-10-22 浏览次数:21175 次
<%'数据库连接,存放用户注册信息,内容为域名,以及域名所指向的具体URL地址,域名访问简单记数,以及一些用户信息%>
<!--#includefile="conn.asp"-->
<%
'获取URL参数
url=request.QueryString("url")
'判断是否是以虚拟@域名形式传递过来
ifinstr(url,"@")=0then
'如果没有则直接跳转到自己的首页index1.asp
response.Redirect("index1.asp")
else
'处理url参数,取得中的username
url=right(url,(len(url)-len("http://")))
url=left(url,(instr(url,"@")-1))
user=url
'从数据库中取出于username对应的转向目标url地址
setrs=conn.execute("selectsiteurlfromurlwhereuser='"&user&"'")
ifrs.boforrs.eofthen
'如果没有记录则显示:该域名不存在
response.Write("<ahref='http://skyworm.com'><fontsize=2><center>该域名不存在</center></font></a>")
else
'对域名访问率简单记数
conn.execute("updateurlsetcount=count+1whereuser='"&user&"'")
'跳转到虚拟域名对应的目标url地址,程序结束!
response.Redirect(rs(0))
endif
rs.close
setrs=nothing
endif
conn.close
setconn=nothing
%>