regok.asp

程序主要功能如下: 1,可实现多域名的二级域名申请,添加多个域名 2,可限制各域名的注册数 3,可对域名进行排序 3,可限制用户多长时间内可注册一次 4,可设置是否弹出广告条,以及

<!--#include file="conn.asp"-->

<%
username=trim(lcase(Request.Form ("username")))
domainname=trim(Request.Form ("domainname"))
psw=trim(Request.Form ("psw"))
whide=trim(Request.Form ("whide"))
sitename=trim(Request.Form ("sitename"))
sitejs=trim(Request.Form ("sitejs"))
url=trim(lcase(Request.Form ("url")))
email=trim(Request.Form ("zzmail"))
if username="" or domainname="" or psw="" or sitename="" or url="" or email="" then
msg="输入项出错！请确认所有表单填写完整！"
call initerr()
Response.End
end if
if IsValidEmail(Email)=false then
msg="邮箱不真实，请重新输入！"
call initerr()
Response.End
end if
username=CStr(Replace(username,chr(13)&chr(10),""))
password=CStr(Replace(password,chr(13)&chr(10),""))
domainname=CStr(Replace(domainname,chr(13)&chr(10),""))
if server.HTMLEncode(username)<>username or InStr(username,"【")<>0 or InStr(username,"】")<>0 or InStr(username," ")<>0 or InStr(username,"　")<>0 or InStr(username,"