user_reg_ok.asp

WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼

<%@LANGUAGE="VBSCRIPT"  CODEPAGE="65001"%>
<!--#include file="inc/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("User_Login_Error.asp")
end if

set rs=server.CreateObject("Adodb.Recordset")
sql="select studentid from ec where Sname='"&Sname&"'"
	rs.open sql,conn,1,3
if not rs.eof then
session("error")=4
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect("User_Login_Error.asp")
end if

if passquestion="" or passanswer="" or sname="" or password="" or studentid=""then 
session("error")=3
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect("User_Login_Error.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>