reg.asp

类似于baidu的百度知道

<!--#include file=conn.asp-->
<!--#include file="Function_QT.asp"-->
<!--#include file="Config.asp"-->
<!--#include file="md5.asp"-->
<TITLE>用户注册</TITLE>
<META http-equiv=content-type content="text/html; charset=GB2312">

<!--#include file=top.asp-->

<%if request("submit")="提  交" then
jiance=request("name")
if InStr(jiance,"or")<>0 or InStr(jiance,"'")<>0 or InStr(jiance,"`")<>0 or InStr(jiance,"=")<>0 or InStr(jiance,"-")<>0 or InStr(jiance,",")<>0 or InStr(jiance,"and")<>0 then 
Response.Write "<script language=JavaScript>{alert('用户名含有非法字符！');history.back();}</script>"
Response.End 
end if
if InStr(request("question"),"or")<>0 or InStr(request("question"),"'")<>0 or InStr(request("question"),"`")<>0 or InStr(request("question"),"=")<>0 or InStr(request("question"),"-")<>0 or InStr(request("question"),",")<>0 or InStr(request("question"),"and")<>0 then 
Response.Write "<script language=JavaScript>{alert('密码提示问题含有非法字符！');history.back();}</script>"
Response.End 
end if
if InStr(request("answer"),"or")<>0 or InStr(request("answer"),"'")<>0 or InStr(request("answer"),"`")<>0 or InStr(request("answer"),"=")<>0 or InStr(request("answer"),"-")<>0 or InStr(request("answer"),",")<>0 or InStr(request("answer"),"and")<>0 then 
Response.Write "<script language=JavaScript>{alert('密码提示问题答案含有非法字符！');history.back();}</script>"
Response.End 
end if
if request("email")<>"" then
if Instr(request("email"),"=")>0 or Instr(request("email"),"%")>0 or Instr(request("email"),chr(32))>0 or Instr(request("email"),"?")>0 or Instr(request("email"),"&")>0 or Instr(request("email"),";")>0 or Instr(request("email"),",")>0 or Instr(request("email"),"'")>0 or Instr(request("email"),",")>0 or Instr(request("email"),chr(34))>0 or Instr(request("email"),chr(9))>0 or Instr(request("email"),"