繁体中文
设为首页
加入收藏
当前位置:ASP技术首页 >> ASP技巧 >> 使用ASP实现http://xx@xx.xx虚拟域名

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

2006-03-15 08:00:00  作者:  来源:互联网  浏览次数:0  文字大小:【】【】【
简介:  给大家我的思路,希望对某些感兴趣的朋友些许帮助:   首先必须有自己的顶级域名:-),还要牺牲自己的首页index.asp的命名(比如说:将首页改名为index1.asp,不过在程序里可以通过判断将没有带@参数的域名再跳转...
关键字:虚拟域名 xx http ASP

  给大家我的思路,希望对某些感兴趣的朋友些许帮助:

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

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

index.asp

go.asp处理域名并实现跳转

<%'数据库连接,存放用户注册信息,内容为域名,以及域名所指向的具体URL地址,域名访问简单记数,以及一些用户信息%>

<%

'获取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("

该域名不存在
")

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

%>

责任编辑:admin
相关文章