checklogin.asp

自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑浏览又可以用手机访问的互动同学录单班级系统。这套系统同学录系统可以满足现在WAP普及的今天同学用手机上网交流的需求

<%@LANGUAGE="VBSCRIPT"  CODEPAGE="65001"%>
<!--#include file="conn.asp"-->
<%
response.ContentType="text/vnd.wap.wml"
studentid=request.form("studentid")
password=request.form("password")
password2=request.form("password2")
qq=request.form("qq")
email=trim(request.form("email"))
passquestion=trim(request.form("passquestion"))
passanswer=trim(request.form("passanswer"))
sname=trim(request.form("sname"))
sex=request.form("sex")


set rs=server.CreateObject("Adodb.Recordset")
sql="select studentid from ec where studentid='"&studentid&"'"
	rs.open sql,conn,1,3
if not rs.eof then
session("error")=1
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect("loginerror.asp")
end if
if password<>password2 then 
session("error")=2
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect("loginerror.asp")
end if
if passquestion="" or passanswer="" or sname="" or password="" or password2="" or studentid=""then 
session("error")=3
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect("loginerror.asp")
end if
rs.close
set rs=server.CreateObject("Adodb.Recordset")
	rs.open "select * from ec",conn,1,3
rs.addnew()
rs("studentid")=studentid
rs("sname")=sname
rs("sex")=sex
rs("pic")="img/image0.gif"
rs("picurl")="img/image0.gif"
rs("oicq")=qq
rs("email")=email
rs("password")=password
rs("pwdquest")=passquestion
rs("pwdanswer")=passanswer
rs("usertype")=3
rs("regtime")=now 
rs("picwidth")=32
rs("picheight")=32 
	rs.update
	rs.close
	set rs=nothing
  conn.close
 set conn=nothing
%>
<?xml version="1.0"?> 
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
"http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card>
<p>&#x6CE8;&#x518C;&#x6210;&#x529F;</p>
<p><anchor title="Back">Login
<go href="index.asp"/>
</anchor></p>
</card>
</wml>