利用@字符實(shí)現(xiàn)二級(jí)域名系統(tǒng)


不支持泛解析的域名同樣也能做二級(jí)域名系統(tǒng)

dns.mdb數(shù)據(jù)庫(kù)結(jié)構(gòu)：
本例只用3字段，部分省略字段自己配合注冊(cè)頁(yè)面可以隨便加

id(自動(dòng)遞增)
user(文本)
torul(文本)
... ...


default.asp 頁(yè)面內(nèi)容
----------------------------------------------------------------------------------
<%
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為數(shù)據(jù)庫(kù)存名
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" '改為默認(rèn)的文檔名
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect tourl
end if
%>
------------------------------------------------------------------------------------

IE地址欄輸入: [email protected]就可通過(guò)default.asp進(jìn)行域名轉(zhuǎn)向 youname為用戶名 dns.com為你網(wǎng)站的域名