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

來源:互聯網
上載者:User
  給大家我的思路,希望對某些感興趣的朋友些許協助:

  首先必須有自己的頂級網域名稱:-),還要犧牲自己的首頁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
%>
 


相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。