程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP技巧 >> asp使用用戶名做二級域名的方法

asp使用用戶名做二級域名的方法

編輯:ASP技巧

經常會到這樣的一個問題,在某一個網站上注冊一個用戶名,這樣後,你就會擁有一個以這個用戶的二級域名,然後你可以對這個二級域名的網站進行一些操作和管理。這裡介紹一下ASP二級域名網站的實現過程

這裡以www.ASPbc.com為例,步驟如下:
1、去域名管理的地方,解析一下*.ASPbc.com到你的服務器的IP上。
進入域名管理,找到主機記錄解析(A記錄),點擊“添加主機記錄”,然後在彈出的框內輸入"*",注意,不能輸入"*.ASPbc.com",點擊確定後,然後輸入IP地址:*.*.*.*,然後再點擊確定就可以了。剩下的就是等待dns解析了,大概要二個小時左右的時間。

2、現在登錄到服務器上,在服務器上的IIS裡面做一些處理。
服務器上的默認網站就是一個泛域名例子,如果做好第一步,你不管輸入任何*.ASPbc.com就可以打開默認網站下的默認文件。
通常默認網站會被禁掉的,所以我們要手動創建一個類似默認網站的方法。
在IIS中新建一個網站,方法和普通的新建網站的方法一樣,最重要的是主機頭一定要留空(這是最重要的)。

3、經過了上面兩步,可以通過任何二級域名就可以打開這個網站中的默認文件(如index.ASP),但是打開的頁面都是一樣,所以下面要根據不同的用戶名,調取不同的內容,然後顯示出來。這就需要從二級域名中得到用戶名,然後去數據庫中查詢一下這個用戶的相關信息,然後顯示到頁面上。

Dim HostName
HostName = LCase(Request.ServerVariables("SERVER_NAME"))
HostName = Replace(HostName,"www.","") ’去掉前面的www
If Instr(HostName,"ASPbc.com") < 2 Then
  response.write "必須是二級域名才可以" '防止ASPbc.com這個域名進入
  response.end
End If
UserName = Split(HostName,".")(0) '得到用戶名
UserName = Replace(Replace(UserName,"'",""),";","") ’過濾掉單引號和分號

'查詢到用戶信息,並保存到一些變量中去
sql="select userid,telephone,…… from users where username="&UserName
rs.open sql,conn,1,1
if not rs.eof then
   userid=rs("userid")
   telephone=rs("telephone")
   ……
end if
rs.close

上面的代碼通常保存為一個公用文件,供每個頁面引用,用來得到用戶的信息。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved