regok.asp

UQC虚拟主机专用免费域名转向程序,域名也不需要支持泛解晰,就可以达到二级域名转向效果,不需要独立主机也可以为用户提供免费域名转向服务,且独立管理.

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "Select * From [user]",Conn,1,3
RecordCount = Rs.RecordCount
Rs.Close
%>
<%
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "Select * From [domain]",Conn,1,3
RecordCount = Rs.RecordCount
Rs.Close
%>
<%
if Request.Cookies ("reg_free_domain")="true" then
msg="系统不许连续注册多个免费域名！"
call initerr()
Response.End
end if
username=trim(lcase(Request.Form ("username")))
domainname=trim(Request.Form ("domainname"))
psw=trim(Request.Form ("psw"))
ypsw=trim(Request.Form ("ypsw"))
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"))
tname=trim(Request.Form ("tname"))
tphone=trim(Request.Form ("tphone"))
tadr=trim(Request.Form ("tadr"))
if username="" or domainname="" or psw="" or ypsw="" or sitename="" or url="" or email="" or tname="" or tphone="" or tadr="" then
msg="输入项出错！请确认所有表单填写完整！"
call initerr()
Response.End
end if
if psw<>ypsw 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,"