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
%>