check_reg.asp

基于ASP的SQL小区物业管理系统课程设计

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/conn.asp"-->
<!--#include file="Function.asp"-->
<%
   dim rroom,rname,rpassword,rquestion,ranswer,email,pic,yanz,ntime
   rroom=RequestX("room")
   rname=RequestX("username")
   rpassword=RequestX("password")
   rrealname=RequestX("realname")
   rquestion=RequestX("question")
   ranswer=RequestX("answer")
   email=RequestX("email")
   pic=RequestX("pic")
   yanz=RequestX("yanz")
   ntime=now()
%>
<% 
   set rs1=Server.CreateObject("ADODB.RecordSet")
   sql="select * from yanzheng where pic='"&pic&"' and zi='"&yanz&"'"
   rs1.open sql,conn,1,1
   if rs1.recordcount=0 then
   result=Server.URLEncode("对不起，验证码错误！！！")
   Response.Redirect "register.asp?result="&result
   Response.End()
   rs.close
   set rs=nothing
   else
%>
<% 
   set rs=Server.CreateObject("ADODB.RecordSet")
   sql="select * from room where room_id='"&rroom&"'"
   rs.open sql,conn,1,1
   if rs.recordcount=0 then
   result=Server.URLEncode("对不起，该房间不存在，请确认！！！")
   Response.Redirect "register.asp?result="&result
   rs.close
   set rs=nothing
   Response.End()
   else
%>
<% 
   set cmd=Server.CreateObject("ADODB.COMMAND")
   cmd.ActiveConnection=conn
   cmd.CommandText="select count(*) from userlist where room_id='"&rroom&"'or username='"&rname&"'"
   set rs=cmd.execute
   if rs(0)>0 then
   result=Server.URLEncode("对不起，该房间或用户已经存在！！！")
   Response.Redirect "register.asp?result="&result
   rs.close
   set rs=nothing
   else
   'cmd.CommandText="select max(id) from userlist"
   'set rs=cmd.execute
   'dim y_id
   'y_id=rs(0)+1
   cmd.CommandText="insert into userlist values('"&rroom&"','"&rname&"','"&rrealname&"','"&rpassword&"','"&rquestion&"','"&ranswer&"','"&email&"',0,'"&ntime&"')"
   cmd.execute
   end if
   end if
   end if
   Response.Redirect("index.asp")
%>
<% '
'   set cMail=Server.CreateObject("CDNOTS.NewMail")
'   cMail.subject="感谢您的注册" 
'   cMail.from="[e-mail]"
'   cMail.to=Request.Form("email")
'   cMail.body=Request.Form("email")&",感谢您的注册，请记住你的用户名："&rname&"和密码:"&rpassword
'   cMail.send
'   set cMail=nothing
%>