userregpost.asp

来自「本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程」· ASP 代码 · 共 30 行

<!--#include file="mdb.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="Inc/function.asp"-->
<%
if usery<>"yes" then
response.write"<SCRIPT language=JavaScript>alert('"&webname&"已经不允许新用户注册了，谢谢你的支持 ！\n\n如果想成为本站用户请联系本站。');"
response.write"JavaScript:window.close()</SCRIPT>"
response.end
end if
const ChannelID=2
Const ShowRunTime="Yes"
SkinID=0
dim UserName,Password,PwdConfirm,Question,Answer,Sex,Email,Homepage,QQ,MSN
UserName=trim(request("UserName"))
Password=trim(request("Password"))
PwdConfirm=trim(request("PwdConfirm"))
Question=trim(request("Question"))
Answer=trim(request("Answer"))
Sex=trim(Request("Sex"))
Email=trim(request("Email"))
Homepage=trim(request("Homepage"))
QQ=trim(request("QQ"))
MSN=trim(request("MSN"))
if UserName="" or strLength(UserName)>12 or strLength(UserName)<4 then
	founderr=true
	errmsg=errmsg & "<br><li>请输入用户名(不能大于12小于4)</li>"
else
  	if Instr(UserName,"=")>0 or Instr(UserName,"%")>0 or Instr(UserName,chr(32))>0 or Instr(UserName,"?")>0 or Instr(UserName,"&")>0 or Instr(UserName,";")>0 or Instr(UserName,",")>0 or Instr(UserName,"'")>0 or Instr(UserName,",")>0 or Instr(UserName,chr(34))>0 or Instr(UserName,chr(9))>0 or Instr(UserName,"