ASP编程：二级域名道理和法式

我想详细了解ASP整站代码与PSP整站代码有什么优缺点，那个更好，更安全，更用容易维护，和管理。。。法式|二级域名   二级域名道理和法式，请求便可守旧 [通俗框架势二级域名]
要到达二级名的后果，必需一下前提和流程：
1、必需有一个顶级域名，并且此域名必需做好泛解析并做好指向。
2、必需有一台自力的办事器。泛解析的域名指向该办事器。
3、在办事器上的IIS建一个空的主机头名的web站点。
4、将默许的页面设置为你的二机解析法式（好比：freedns.asp）
5、二级域名系列法式（包含请求页：shenqing.htm，添加页add.asp,解析页，）


此法式的长处：
a，可以限制请求域名的敏感字,好比 hacker,wwww,sex,china等
b, 可以限制请求域名的不法字，好比：！・#￥%……―*（）――？‘“/等
c, 每一个地址只能请求一个域名。
d，限制请求域名的长度，
e, 假如用户所会见的域名没人请求则转到特定的页面，本例中的http://www.51bxg.com/miss.html
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("H</p>  实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同，ASP拥有应用系统所有权，用户拥有使用权，应用系统集中放在ASP的数据中心中，集中管理，分散使用，以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务，实现规模效益。

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。