ASP网站制作之二级域名道理和程序，请求便可守旧
只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天程序|二级域名|二级域名:::::::此程序属扬子原创:::::::::::::::::::::::::在sql2000，2000s中测试经由过程::::::::
:::::::接洽我：QQ：21112856，Email：yangzinet@hotmail.com:::::::::
:::::::http://www.tingfo.net::::::
要到达二级名的效果，必需一下前提和流程：
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
<formaction=adddns.aspmethod=postname=FrmonSubmit="returncheck_input()"><br><fontcolor=red>加*号为必填内容</font><br>
您想注册的域名：
http://<inputname="nowurl"size=12
style="BORDER-BOTTOM:1pxdouble;BORDER-LEFT:1pxdouble;BORDER-RIGHT:1pxdouble;BORDER-TOP:1pxdouble;COLOR:#000000;FONT-SIZE:9pt">.51bxg.com
<br>
你实践的网站地点：
<inputname="tourl"size=12
style="BORDER-BOTTOM:1pxdouble;BORDER-LEFT:1pxdouble;BORDER-RIGHT:1pxdouble;BORDER-TOP:1pxdouble;COLOR:#000000;FONT-SIZE:9pt">
你请求显现的title：
<inputname="company"size=12
style="BORDER-BOTTOM:1pxdouble;BORDER-LEFT:1pxdouble;BORDER-RIGHT:1pxdouble;BORDER-TOP:1pxdouble;COLOR:#000000;FONT-SIZE:9pt">
<br>
<inputtype="submit"name="Submit"value="提交信息"style="border:1pxdoublergb(88,88,88);font:9pt">
<inputtype="reset"name="Reset"value="重新填写"style="border:1pxdoublergb(88,88,88);font:9pt">
</p>
</form>
增加纪录页面add.asp
<!--#includefile="char.inc"-->
<!--#includefile="conn.asp"-->
<%
uID=request.cookies("*****")
%>
<%
dimnowurl,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"
setrs=server.createobject("adodb.recordset")
sql="select*fromdnswhereuserid="&uid&""
rs.opensql,conn,1,1
ifnotrs.EOFthen
response.write"很抱愧，你已请求过二级域名，每一个用户只能请求一个二级域名！<br>你请求的二级域名是：http://"+rs("nowurl")
response.end
endif
setrs=server.createobject("adodb.recordset")
sql="select*fromdnswherenowurl="&nowurl&""
rs.opensql,conn,1,1
ifnotrs.eofthen
response.write"很抱愧，你请求的域名：http://"+nowurl+"已被其他公司请求，请别的请求域名。"
response.end
endif
iflen(nurl)>alongthen
response.write"很抱愧，你输出的域名太长，请从头输出"
response.end
endif
ifinstr(pbkey,nurl)then
response.write"很抱愧，你输出的域名由于含有敏感字而不论理员屏障，请从头输出。"
response.end
endif
判别字符的正当性
ifinstr(nurl,"~")orinstr(nurl,"`")orinstr(nurl,"/")orinstr(nurl,"?")orinstr(nurl,">")orinstr(nurl,"<")orinstr(nurl,";")orinstr(nurl,":")orinstr(nurl,"}")orinstr(nurl,"{")orinstr(nurl,")")orinstr(nurl,"(")orinstr(nurl,"*")orinstr(nurl,"&")orinstr(nurl,"^")orinstr(nurl,"%")orinstr(nurl,".")orinstr(nurl,",")orinstr(nurl,"")orinstr(nurl,"~")orinstr(nurl,"!")orinstr(nurl,"$")then
response.write"很抱愧，你输出的域名含有不法字符，请从头输出，以下字符为不法字符：<br>~`/?><;:}{)(*&^%$#@!"
response.end
endif
setrs=server.createobject("adodb.recordset")
sql="select*from**wheretheidisnull"
rs.opensql,conn,3,3
rs.addnew
rs("userid")=uID
rs("nowurl")=nowurl
rs("tourl")=tourl
rs("company")=company
rs.update
response.write"庆祝，请求乐成，你即刻便可利用你的域名：http://"+nowurl
%>
</p>无法实现跨操作系统的应用。当然这也是微软的理由之一，只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP，ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的； 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名") 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
页:
[1]