当前位置:asp编程网>技术教程>Asp教程>  正文

asp使用用户名做二级域名的方法

2011-12-29 11:03:48   来源:www.aspbc.com    作者:wangsdong   浏览量:2834   收藏

经常会到这样的一个问题,在某一个网站上注册一个用户名,这样后,你就会拥有一个以这个用户的二级域名,然后你可以对这个二级域名的网站进行一些操作和管理。这里介绍一下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

上面的代码通常保存为一个公用文件,供每个页面引用,用来得到用户的信息。



关于我们-广告合作-联系我们-积分规则-网站地图

Copyright(C)2013-2017版权所属asp编程网