2026年11月2日 · 今日 0 帖 · 会员 6.1万 · 主题 17.4万
登录 · 注册 · 游客,欢迎随便逛逛
返回版块
1000
Lv9有为九子能等级图标
勋章勋章勋章勋章勋章
帖子
9.3万
回复
2,089
积分
60.3万
注册
2006-12-06
[怀旧国机]

Asp之使用用户名做二级域名

[复制链接]
查看 137 回复 0
楼主 发表于 | 只看该作者

经常会到这样的一个问题,在某一个网站上注册一个用户名,这样后,你就会拥有一个以这个用户的二级域名,然后你可以对这个二级域名的网站进行一些操作和管理。这里介绍一下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=“* userid,telephone,…… from users where username=“&amp;UserName

rs.open sql,conn,1,1

if not rs.eof then

userid=rs(“userid“)

telephone=rs(“telephone“)

……

end if

rs.c第 1/2 页,共 2 页

下页 全部 余下 >>Asp类的定义方法和使用方法

<<Asp根据用户生日得到其星座lose

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

登录回复

登录后可以回复这个帖子。旧账号可使用原密码登录。

登录 注册新号
← 返回版块