利用@字符實現二級域名系統


不支持泛解析的域名同樣也能做二級域名系統

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為你網站的域名