userregpost.asp

本程序采用花香内核

<!--#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="no" then%>
<table width="100%" height="286"  border="0" cellpadding="0" cellspacing="0" class="table-hx66s">
  <tr>
    <td align="center"><%=webname%>已经不允许新用户注册了！<br>
    <br>
    如果想成为本站用户请联系<a href="mailto:<%=webmail%>"><%=webmail%></a></td>
  </tr>
</table>
<%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,"