利用@字符实现二级域名系统


不支持泛解析的域名同样也能做二级域名系统

dns.mdb数据库结构：
本例只用3字段，部分省略字段自己配合注册页面可以随便加

id(自动递增)
user(文本)
torul(文本)
... ...


default.asp 页面内容
----------------------------------------------------------------------------------
<%
dim user
user=trim(request("user"))
if user="" then
%>
<script language="vbscript">
location.href="?user="&location.href
</script>
<%
else
user=replace(user,"http://","")
auser=instr(user,"@")
if auser>0 then
user=left(user,auser-1)
end if
mdbname="dns.mdb" 'dns.mdb为数据库存名
set conn=server.createobject("adodb.connection")
conn.open "dbq="&server.mappath(mdbname)&";driver={microsoft access driver (*.mdb)};"
set rs=server.createobject("adodb.recordset")
rs.open "select * from userdns where user='"&user&"'",conn,1,1
if not rs.eof then
tourl=rs("tourl")
else
tourl="index.asp" '改为默认的文档名
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect tourl
end if
%>
------------------------------------------------------------------------------------

IE地址栏输入: youname@dns.com就可通过default.asp进行域名转向 youname为用户名 dns.com为你网站的域名