马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?注册
×
<TABLE cellSpacing=0 cellPadding=0 width="100%" bgColor=#3060a0 border=0>
<TBODY>
<TR>
<TD vAlign=center align=middle width=589 bgColor=#4e4e4e height=25><FONT color=#ffffff><B>二级域名原理以及程序,申请即可开通</B></FONT></TD></TR>
<TR>
<TD vAlign=center align=middle height=38><FONT color=#ffffff>作者:扬子 来源:开发者俱乐部 加入时间:2002-12-12 蓝宝石软件站</FONT> </TD></TR>
<TR>
<TD vAlign=top height=48><FONT color=#ffffff>'::::::: 此程序属扬子原创 ::::::::::::::::::<BR>'::::::: 在sql2000,2000s中测试通过::::::::<BR>'::::::: 联系我:QQ:21112856,Email:yangzinet@hotmail.com:::::::::<BR>'::::::: http://www.tingfo.net ::::::<BR><BR>要达到二级名的效果,必须一下条件以及流程:<BR>1、必须有一个顶级域名,而且此域名必须做好泛解析并做好指向。<BR>2、必须有一台独立的服务器。泛解析的域名指向该服务器。<BR>3、在服务器上的IIS建一个空的主机头名的web站点。<BR>4、将默认的页面设置为你的二机解析程序(比如:freedns.asp)<BR>5、二级域名系列程序(包括申请页:shenqing.htm,添加页add.asp,解析页,)<BR><BR><BR>此程序的优点:<BR>a,可以限制申请域名的敏感字,比如 hacker,wwww,sex,china等<BR>b, 可以限制申请域名的非法字,比如:!·#¥%……—*()——?‘“/等<BR>c, 每个地址只能申请一个域名。<BR>d,限制申请域名的长度,<BR>e, 如果用户所访问的域名没人申请则转到特定的页面,本例中的http://www.51bxg.com/miss.html<BR>f, 申请了域名:***.yourname.com 可以同时支持:http://***.yourname.com 以及http://www.***.youranme.com 两个域名的访问。<BR><BR><BR>一下为系列程序代码:<BR>shenqing.htm<BR><BR><form action=adddns.asp method=post name=Frm onSubmit="return check_input()"> <br> <font color=red>加*号为必填内容</font> <br><BR>您想注册的域名: <BR>http://<input name="nowurl" size=12 <BR>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> <br><BR>你实际的网站地址:<BR><input name="tourl" size=12 <BR>style=" BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #000000; FONT-SIZE: 9pt"><BR>你要求显示的title:<BR><input name="company" size=12 <BR>style=" BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #000000; FONT-SIZE: 9pt"><BR><BR><BR><br><BR><input type="submit" name="Submit" value=" 提 交 信 息 " style="border:1px double rgb(88,88,88);font:9pt"><BR> <BR><input type="reset" name="Reset" value=" 重 新 填 写 " style="border:1px double rgb(88,88,88);font:9pt"><BR></p><BR></form><BR><BR><BR>添加记录页面add.asp<BR><!--#include file="char.inc"--><BR><!--#include file="conn.asp"--><BR><%<BR>uID=request.cookies("*****")<BR>%><BR><%<BR>dim nowurl,tourl,company,along,pbkey<BR>nowurl=trim(request.form("nowurl"))+".51bxg.com"<BR>nurl=trim(request.form("nowurl"))<BR>tourl=trim(request.form("tourl"))<BR>company=trim(request.form("company"))<BR>along=20<BR>pbkey="www,sex,admin,w,ww,wwww,hacker,hack"<BR><BR><BR>set rs=server.createobject("adodb.recordset")<BR>sql="select * from dns where userid='"&uid&"'"<BR>rs.open sql,conn,1,1<BR>if not rs.EOF then<BR>response.write"很抱歉,你已经申请过二级域名,每个用户只能申请一个二级域名!<br>你申请的二级域名是:http://"+rs("nowurl")<BR>response.end<BR>end if<BR><BR><BR>set rs=server.createobject("adodb.recordset")<BR>sql="select * from dns where nowurl='"&nowurl&"'"<BR>rs.open sql,conn,1,1<BR>if not rs.eof then<BR>response.write"很抱歉,你申请的域名:http://"+nowurl+"已经被其他公司申请,请另外申请域名。"<BR>response.end<BR>end if<BR><BR>if len(nurl)>along then<BR>response.write"很抱歉,你输入的域名太长,请重新输入"<BR>response.end <BR>end if<BR><BR>if instr(pbkey,nurl) then<BR>response.write"很抱歉,你输入的域名因为含有敏感字而不管理员屏蔽,请重新输入。"<BR>response.end<BR>end if<BR><BR>'判断字符的合法性<BR>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<BR>response.write"很抱歉,你输入的域名含有非法字符,请重新输入,以下字符为非法字符:<br>~ ` / ? > < ; : } { ) ( * & ^ % $ # @ ! "<BR>response.end<BR>end if<BR><BR><BR>set rs=server.createobject("adodb.recordset")<BR>sql="select * from ** where theid is null"<BR>rs.open sql,conn,3,3<BR>rs.addnew<BR>rs("userid")=uID<BR>rs("nowurl")=nowurl<BR>rs("tourl")=tourl<BR>rs("company")=company<BR>rs.update<BR>response.write"祝贺,申请成功,你马上就可使用你的域名:http://"+nowurl<BR>%> <BR><BR><BR>域名解吸程序: freedns.asp<BR><!--#include file="conn.asp"--><BR><%<BR>dim geturl<BR>geturl=replace(Request.ServerVariables("HTTP_HOST"),"www.","")<BR><BR>set rs=server.createobject("adodb.recordset")<BR>sql="select * from tb where nowurl='"&geturl&"'"<BR>rs.open sql,conn,1,1<BR>if rs.eof then<BR>response.redirect"http://www.51bxg.com/miss.html"<BR>else<BR>dim tourl,company<BR>tourl=rs("tourl")<BR>company=rs("company")<BR>%><BR><HTML><BR><HEAD><BR><META http-equiv="Content-Type" content="text/html; charset=gb2312"><BR><META CONTENT="text/html; CHARSET=UTF-8" HTTP-EQUIV="Content-Type"><BR><TITLE><% =company %></TITLE><BR></HEAD><BR><BR><BR><frameset frameborder="0" framespacing="0" scrolling="no" border="0" marginheight="0" marginwidth="0" rows="0,*"><BR><frame scrolling="NO" noresize="0" marginwidth="0" marginheight="0" framespacing="0" frameborder="0" target="main" name="main" SRC="about:blank"><BR><BR><frame scrolling="yes" noresize="0" marginwidth="0" marginheight="0" framespacing="0" frameborder="0" target="main" name="main" SRC="<% =tourl %>"><BR><BR><noframes><BR><body><BR><p>This page uses frames, but your browser doesn't support them.</p></body><BR></noframes><BR></frameset><BR></HTML><BR><% end if %><IMG height=1 src="http://soft.bluejewel.net/down_info.asp?id=44" width=1 border=0><BR></FONT></TD></TR></TBODY></TABLE> |