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"很抱歉，你已經(jīng)申請過二級域名，每個用戶只能申請一個二級域名！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+"已經(jīng)被其他公司申請，請另外申請域名。"
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.51bxg.com/miss.html"
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>
