regpage.asp

好东西~升级版本~校园 仿帝国wap 程序,有后台

<%Response.ContentType = "text/vnd.wap.wml"
reg_name=LCase(request("reg_name"))
reg_pwd=LCase(request("reg_pwd"))
sec_pwd=LCase(request("sec_pwd"))
reg_question=request("reg_question")
reg_answer=LCase(request("reg_answer"))
reg_sex=request("reg_sex")
reg_age=request("reg_age")
reg_msn=request("reg_msn")
reg_qq=request("reg_qq")
'-------------------------------
'写入session
session("reg_name")=reg_name
session("reg_pwd")=reg_pwd
session("sec_pwd")=sec_pwd
session("reg_question")=reg_question
session("reg_answer")=reg_answer
session("reg_sex")=reg_sex
session("reg_age")=reg_age
session("reg_msn")=reg_msn
session("reg_qq")=reg_qq

'-------------------------------
'读入session
'reg_name=session("reg_name")
'reg_pwd=session("reg_pwd")
'sec_pwd=session("sec_pwd")
'reg_question=session("reg_question")
'reg_answer=session("reg_answer")
'reg_sex=session("reg_sex")
'reg_age=session("reg_age")
'reg_msn=session("reg_msn")
'reg_qq=session("reg_qq")
'-------------------------------
'-------------------------------

'错误产生的预防
if  reg_name="" then
error_message=uni("请输入用户昵称！")
elseif reg_name<>"" then
              if len(session("reg_name"))>50 then
              error_message=uni("用户名太长！")
              end if
              if session("reg_pwd")="" or session("sec_pwd")="" then
              error_message=uni("请输入用户密码！")
              elseif  session("reg_pwd")=reg_pwd<>session("sec_pwd")=reg_pwd then
              error_message=uni("用户密码不一致！")
              end if
              if session("reg_question")="" then
              error_message=uni("请输入密码提示问题！")
              end if 
              if session("reg_question")="" then
              error_message=uni("请输入密码答案！")
              end if  
              if session("reg_msn")="" then
              session("reg_msn")="@hotmail.com"
              end if   
              if session("reg_qq")="" then
              session("reg_qq")="norecord"
              end if  
           

%>
<!--#include file="../myinc/dataconnect.inc"-->
<%'打开数据库
  
   if session("reg_name")<>"" and error_message="" then'用户名不为空,错误不为零
                   set rs=server.createobject("adodb.recordset")
                  sql="select person_name from skybird where person_name='"&trim(session("reg_name"))&"'" '检查用户名是否被占用
                  rs.open sql,con,1
                  if rs.eof then
sql="insert into skybird (person_name,person_pwd,person_question,person_answer,person_msn,person_qq,person_sex,person_age)  values ('"&session("reg_name")&"','"&session("reg_pwd")&"','"&session("reg_question")&"','"&session("reg_answer")&"','"&session("reg_msn")&"','"&session("reg_qq")&"','"&session("reg_sex")&"','"&session("reg_age")&"')"
   set rs=con.execute(sql)
    session("online_name")=reg_name
    session("online_pwd")=reg_pwd
'###########################################################
'需要修改地址，变为绝对地址。
Response.Redirect  "http://61.240.131.134/skybird/regmember/overreg.asp"
'####################################
else
error_message=uni("很抱歉，该用户名已经被占用。请重新选择用户名。")
      
end if
end if
%>
<%
end if'与reg_name=""配对
%>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapfourm.org/DTD/wml_1.1.xml">
<wml>
 	<card id="index" title="<%=uni("天堂鸟论坛")%>" >
<p align="center">
<img src="life.png" alt=""/><%=uni("新用户注册")%>
</p>
<p>

<%=error_message%><br/>
<%=uni("昵称:")%><br/>
<input type="text" name="reg_name" value="<%=session("reg_name")%>" /><br/>
<%=uni("输入密码:")%><br/>
<input type="text" name="reg_pwd" value="" /><br/>
<%=uni("重复密码:")%><br/>
<input type="text" name="sec_pwd" value="" /><br/>
<%=uni("取回密码问题:")%><br/>
<input type="text" name="reg_question" value="<%=session("reg_question")%>" /><br/>
<%=uni("取回密码答案:")%><br/>
<input type="text" name="reg_answer" value="<%=session("reg_answer")%>" /><br/>
<%=uni("性别:")%><br/>
<select title="<%=uni("性别")%>" name="reg_sex" value="girl">
<option title="reg_sex" value="boy"><%=uni("男")%></option>
<option title="reg_sex" value="girl"><%=uni("女")%></option>
</select><br/>
<%=uni("您的年龄:")%><br/>
<input type="text" name="reg_age" value="<%=session("reg_age")%>" /><br/>
<%=uni("MSN号码:")%><br/>
<input type="text" name="reg_msn" value="<%=session("reg_msn")%>" /><br/>
<%=uni("QQ号码:")%><br/>
<input type="text" name="reg_qq" value="<%=session("reg_qq")%>" /><br/>
<do type="Options" name="521" label="<%=uni("提交")%>">
<go href="regpage.asp" method="post" accept-charset="gb2312">
<postfield name="reg_name" value="$(reg_name)" />
<postfield name="reg_pwd" value="$(reg_pwd)" />
<postfield name="sec_pwd" value="$(sec_pwd)" />
<postfield name="reg_question" value="$(reg_question)" />
<postfield name="reg_answer" value="$(reg_answer)" />
<postfield name="reg_sex" value="$(reg_sex)" />
<postfield name="reg_age" value="$(reg_age)" />
<postfield name="reg_msn" value="$(reg_msn)" />
<postfield name="reg_qq" value="$(reg_qq)" />
</go>
</do>

<a title="<%=uni("确定")%>"  href="../index.asp"><%=uni("返回")%></a><br/>
</p>
	</card>

</wml>
<% Function uni(Chinese)
  For i = 1 to Len (Chinese)
a=Mid(Chinese, i, 1)
uni=uni & "&#x" & Hex(Ascw(a)) & ";"
next
End Function
%>