要达到二级名的效果，必须一下条件以及流程：
1、必须有一个顶级域名，而且此域名必须做好泛解析并做好指向。
2、必须有一台独立的服务器。泛解析的域名指向该服务器。
3、在服务器上的IIS建一个空的主机头名的web站点。
4、将默认的页面设置为你的二机解析程序（比如：freedns.asp）
5、二级域名系列程序（包括申请页：shenqing.htm，添加页add.asp,解析页，）
此程序的优点：
a，可以限制申请域名的敏感字,比如 hacker,wwww,sex,china等
b, 可以限制申请域名的非法字，比如：！·#￥%……—*（）——？‘“/等
c, 每个地址只能申请一个域名。
d，限制申请域名的长度，
e, 如果用户所访问的域名没人申请则转到特定的页面，本例中http://www.asp.net
f, 申请了域名：***.yourname.com 可以同时支持：http://***.yourname.com 以http://www.***.youranme.com 两个域名的访问。
一下为系列程序代码：
shenqing.htm
<form action=adddns.asp method=post name=Frm onSubmit="return check_input()"> <br> <font color=red>加*号为必填内容</font> <br>
您想注册的域名：
http://<input name="nowurl" size=12
style=" BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #000000; FONT-SIZE: 9pt"> .51bxg.com
<br>
你实际的网站地址：
<input name="tourl" size=12
style=" BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #000000; FONT-SIZE: 9pt">
你要求显示的title：
<input name="company" size=12
style=" BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #000000; FONT-SIZE: 9pt">
<br>
<input type="submit" name="Submit" value=" 提 交 信 息 " style="border:1px double rgb(88,88,88);font:9pt">
<input type="reset" name="Reset" value=" 重 新 填 写 " style="border:1px double rgb(88,88,88);font:9pt">
</p>
</form>
添加记录页面add.asp
<!--#include file="char.inc"-->
<!--#include file="conn.asp"-->
<%
uID=request.cookies("*****")
%>
<%
dim nowurl,tourl,company,along,pbkey
nowurl=trim(request.form("nowurl"))+".51bxg.com"
nurl=trim(request.form("nowurl"))
tourl=trim(request.form("tourl"))
company=trim(request.form("company"))
along=20
pbkey="www,sex,admin,w,ww,wwww,hacker,hack"
set rs=server.createobject("adodb.recordset")
sql="select * from dns where userid='"&uid&"'"
rs.open sql,conn,1,1
if not rs.EOF then
response.write"很抱歉，你已经申请过二级域名，每个用户只能申请一个二级域名！<br>你申请的二级域名是http://";+rs("nowurl")
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from dns where nowurl='"&nowurl&"'"
rs.open sql,conn,1,1
if not rs.eof then
response.write"很抱歉，你申请的域名http://";+nowurl+"已经被其他公司申请，请另外申请域名。"
response.end
end if
if len(nurl)>along then
response.write"很抱歉，你输入的域名太长，请重新输入"
response.end
end if
if instr(pbkey,nurl) then
response.write"很抱歉，你输入的域名因为含有敏感字而不管理员屏蔽，请重新输入。"
response.end
end if
'判断字符的合法性
if instr(nurl,"~") or instr(nurl,"`") or instr(nurl,"/") or instr(nurl,"?") or instr(nurl,">") or instr(nurl,"<") or instr(nurl,";") or instr(nurl,":") or instr(nurl,"}") or instr(nurl,"{") or instr(nurl,")") or instr(nurl,"(") or instr(nurl,"*") or instr(nurl,"&") or instr(nurl,"^") or instr(nurl,"%") or instr(nurl,".") or instr(nurl,",") or instr(nurl,"'") or instr(nurl,"~") or instr(nurl,"!") or instr(nurl,"$") then
response.write"很抱歉，你输入的域名含有非法字符，请重新输入，以下字符为非法字符：<br>~ ` / ? > < ; : } { ) ( * & ^ % $ # @ ! "
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from ** where theid is null"
rs.open sql,conn,3,3
rs.addnew
rs("userid")=uID
rs("nowurl")=nowurl
rs("tourl")=tourl
rs("company")=company
rs.update
response.write"祝贺，申请成功，你马上就可使用你的域名 http://";+nowurl
%>
域名解吸程序： freedns.asp
<!--#include file="conn.asp"-->
<%
dim geturl
geturl=replace(Request.ServerVariables("HTTP_HOST"),"www.","")
set rs=server.createobject("adodb.recordset")
sql="select * from tb where nowurl='"&geturl&"'"
rs.open sql,conn,1,1
if rs.eof then
response.redirect"http://www.asp.net";
else
dim tourl,company
tourl=rs("tourl")
company=rs("company")
%>
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META CONTENT="text/html; CHARSET=UTF-8" HTTP-EQUIV="Content-Type">
<TITLE><% =company %></TITLE>
</HEAD>
<frameset frameborder="0" framespacing="0" scrolling="no" border="0" marginheight="0" marginwidth="0" rows="0,*">
<frame scrolling="NO" noresize="0" marginwidth="0" marginheight="0" framespacing="0" frameborder="0" target="main" name="main" SRC="about:blank">
<frame scrolling="yes" noresize="0" marginwidth="0" marginheight="0" framespacing="0" frameborder="0" target="main" name="main" SRC="<% =tourl %>">
<noframes>
<body>
<p>This page uses frames, but your browser doesn't support them.</p></body>
</noframes>
</frameset>
</HTML>
<% end if %> |
相关推荐
编译原理经典教材 目录 第一章引论 1.1什么叫编译程序 1.2编译过程概述 1.3编译程序的结构 1.3.1编译程序总框 1.3.2表格与表格管理 1.3.3出错处理 1.3.4遍 1.3.5编译前端与后端 1.4编译程序与程序设计...
一款开源的免费动态域名解析源代码，作者提供的是VB版本的最终版本，源代码具有二级域名申请，登录，修改注册密码和查看解析状态、查看登录日志等功能。 感谢作者发布共享，以下是作者语(作者QQ:261203，有需要可...
ASP.NET 2.0使用Web Part创建应用程序之二（共二） 体验 .net2.0 的优雅（2） -- ASP.net 主题和皮肤 NET2.0系列介绍（一）.NET 2.0 中Web 应用程序主题的切换 ASP.NET 2.0 中Web 应用程序主题的切换 2.0正式版中...
│ 淘淘商城源代码.zip │ ├─01.第一天 │ 01.课程计划.avi │ 02.淘淘商城介绍.avi │ 03.创建后台工程-taotao-parent.avi │ 04.创建taotao-manager.avi │ 05.svn的使用.avi │ 06.ssm框架整合思路.avi │ 07....
4.1继承的基本原理145 4.2子类对父类的继承146 4.3属性隐藏和方法的覆盖148 4.3.1属性的隐藏148 4.3.2方法的覆盖151 4.4构造方法的继承154 4.5super的使用156 4.5.1用super引用父类的成员156 4.5.2使用super...
核心级系统服务 121 9.1 init服务 121 9.1.1 /etc/inittab文件 121 9.1.2 telinit命令 122 9.2 inetd进程 123 9.2.1 etc/inetd.conf文件 123 9.2.2 安全性与inetd.conf文件 124 9.3 syslogd...
6.3.1 配置网页授权回调域名 135 6.3.2 网页授权流程 135 6.3.3 方法封装 139 6.3.4 案例：通过网页授权获取用户信息 145 6.4 生成带参数二维码 149 6.4.1 创建临时二维码 149 6.4.2 创建永久...
动态组件与插件原理相同，只不过动态组件更加轻巧，它没有规范，意味着它能实现任何事件，由于他是在程序启动时动态编译，所以叫动态组件。 4.站群更加出色 您可以配置同站下的站群，也可以配置出不同域下的站群，...
我们掌握了数据库及其应用技术、数据库原理、计算机网络技术等课程，对数据库的设计、应用、维护及局域网的组成有了深刻的认识与一定的动手实践能力，考取了信息处理、程序设计、数据库技术等国家IT认证。...
动态组件与插件原理相同，只不过动态组件更加轻巧，它没有规范，意味着它能实现任何事件，由于他是在程序启动时动态编译，所以叫动态组件。 4.站群更加出色 您可以配置同站下的站群，也可以配置出不同域下的站群，...
通用用户管理系统， 实现最常用的用户注册、登录、资料管理、个人中心、第三方登录等基本需求，支持扩展二次开发。 > zheng-wechat-mp 微信公众号管理平台，除实现官网后台自动回复、菜单管理、素材管理、用户管理...
2.4.2 使用G D B 调试程序............................................. 49 2.4.3 G D B 常用命令..................................................52 2.4.4 其他的 G D B ......................................
第二节 搜索引擎的基本工作原理.....................................................................................................4 一、抓取..............................................................
第二节 搜索引擎的基本工作原理.....................................................................................................4 一、抓取...............................................................