仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 666|回复: 7
打印 上一主题 下一主题

[学习教程] ASP网站制作之二级域名道理和程序,请求便可守旧.

[复制链接]
海妖 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:30:21 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题要到达二级名的效果,必需一下前提和流程:
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=Frm><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
%>



域名解吸程序:freedns.asp
<!--#includefile="conn.asp"-->
<%
dimgeturl
geturl=replace(Request.ServerVariables("HTTP_HOST"),"www.","")

setrs=server.createobject("adodb.recordset")
sql="select*fromtbwherenowurl="&geturl&""
rs.opensql,conn,1,1
ifrs.eofthen
response.redirect"http://www.51bxg.com/miss.html"
else
dimtourl,company
tourl=rs("tourl")
company=rs("company")
%>
<HTML>
<HEAD>
<METAhttp-equiv="Content-Type"content="text/html;charset=gb2312">
<METACONTENT="text/html;CHARSET=UTF-8"HTTP-EQUIV="Content-Type">
<TITLE><%=company%></TITLE>
</HEAD>


<framesetframeborder="0"framespacing="0"scrolling="no"border="0"marginheight="0"marginwidth="0"rows="0,*">
<framescrolling="NO"noresize="0"marginwidth="0"marginheight="0"framespacing="0"frameborder="0"target="main"name="main"SRC="about:blank">

<framescrolling="yes"noresize="0"marginwidth="0"marginheight="0"framespacing="0"frameborder="0"target="main"name="main"SRC="<%=tourl%>">

<noframes>
<body>
<p>Thispageusesframes,butyourbrowserdoesntsupportthem.</p></body>
</noframes>
</frameset>
</HTML>
<%endif%>
对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了,
不帅 该用户已被删除
沙发
发表于 2015-1-19 15:45:24 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
谁可相欹 该用户已被删除
板凳
发表于 2015-1-24 14:22:59 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
柔情似水 该用户已被删除
地板
发表于 2015-2-1 16:52:25 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
因胸联盟 该用户已被删除
5#
发表于 2015-2-7 10:14:39 | 只看该作者
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
精灵巫婆 该用户已被删除
6#
发表于 2015-2-21 17:55:23 | 只看该作者
多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
飘灵儿 该用户已被删除
7#
发表于 2015-3-6 20:40:26 | 只看该作者
不能只是将它停留在纸上谈兵的程度上。
兰色精灵 该用户已被删除
8#
发表于 2015-3-13 08:49:57 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-22 19:56

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表