使用ASP實現http://xx@xx.xx虛擬網域名稱

　　給大家我的思路,希望對某些感興趣的朋友些許協助:

　　首先必須有自己的頂級網域名稱:-),還要犧牲自己的首頁index.asp的命名(比如說:將首頁改名為index1.asp,不過在程式裡可以通過判斷將沒有帶@參數的網域名稱再跳轉到首頁).

　　首先在將網域名稱所在根目錄下的預設首頁index.asp作為擷取@前參數跳轉
index.asp



go.asp處理網域名稱並實現跳轉
<%'資料庫連接,存放使用者註冊資訊,內容為網域名稱,以及網域名稱所指向的具體URL地址,網域名稱訪問簡單記數,以及一些使用者資訊%>
<!--#includefile="conn.asp"-->
<%
'擷取URL參數
url=request.QueryString("url")
'判斷是否是以虛擬@網域名稱形式傳遞過來
ifinstr(url,"@")=0then
'如果沒有則直接跳轉到自己的首頁index1.asp
response.Redirect("index1.asp")
else
'處理url參數,取得中的username
url=right(url,(len(url)-len("http://")))
url=left(url,(instr(url,"@")-1))
user=url
'從資料庫中取出於username對應的轉向目標url地址
setrs=conn.execute("selectsiteurlfromurlwhereuser='"&user&"'")
ifrs.boforrs.eofthen
'如果沒有記錄則顯示:該網域名稱不存在
response.Write("<ahref='http://skyworm.com'><fontsize=2><center>該網域名稱不存在</center></font></a>")
else
'對網域名稱訪問率簡單記數
conn.execute("updateurlsetcount=count+1whereuser='"&user&"'")
'跳轉到虛擬網域名稱對應的目標url地址,程式結束!
response.Redirect(rs(0))
endif
rs.close
setrs=nothing
endif
conn.close
setconn=nothing
%>