明輝手游網(wǎng)中心:是一個免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺!

使用@字符完成二級域名系統(tǒng)

[摘要]利用@字符實(shí)現(xiàn)二級域名系統(tǒng) 不支持泛解析的域名同樣也能做二級域名系統(tǒng) dns.mdb數(shù)據(jù)庫結(jié)構(gòu): 本例只用3字段,部分省略字段自己配合注冊頁面可以隨便加 id(自動遞增) user(文本) torul(文本) ... ... default.asp 頁面內(nèi)容 -------------------...

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


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

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

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


default.asp 頁面內(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ù)庫存名
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地址欄輸入: youname@dns.com就可通過default.asp進(jìn)行域名轉(zhuǎn)向 youname為用戶名 dns.com為你網(wǎng)站的域名