📄 user_reg_ok.asp

📁 电影ASP文件
💻 ASP
字号:
<!--#include file="../film_conn.asp"-->
<%
userid=replace(trim(request.form("userid")),"'","")
userid=replace(userid,"%","")
userid=replace(userid,"=","")
password=replace(trim(Request.form("password")),"'","")
password=replace(password,"%","")
password=replace(password,"=","")
if userid="" then errmsg=errmsg & "请填写用户名！\n"
if len(userid)<5 or len(userid)>15 then errmsg=errmsg & "用户名应在5-15位字符之间！\n"
if left(userid,1)="0" or left(userid,2)="13" then errmsg=errmsg & "对不起，用户名不允许以0或者13开头！\n"
if password="" then errmsg=errmsg & "请填写密码！\n"
if len(password)<5 or len(password)>15 then errmsg=errmsg & "密码应在5-15位字符之间！\n"
if password<>request.form("password2") then errmsg=errmsg & "对不起，两次输入的密码不相同！\n"
if trim(request.form("myemail"))="" then errmsg=errmsg & "请正确填写电子邮件！\n"
if trim(request.form("name"))="" then errmsg=errmsg & "请正确填写姓名！\n"
if trim(request.form("thearea"))="" then errmsg=errmsg & "请重新选择城市！\n"
if trim(request.form("question"))="" then errmsg=errmsg & "非法操作！请不要清空提示问题！\n"
if trim(request.form("ask"))="" then errmsg=errmsg & "请填写提示问题答案！\n"
email=trim(request.form("myemail"))
if instr(email,"@")=0 or right(email,1)="@" or left(email,1)="@" then errmsg=errmsg & "错误的电子邮件地址！\n"

if errmsg<>"" then
    response.write("<script>alert('" & errmsg & "');history.go(-1)</script>")
    response.end
end if
%>
<HTML><HEAD><TITLE><%=webname%> - 新会员注册 - 注册成功</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
</HEAD>
<BODY bgColor=#71757b leftMargin=0 topMargin=0 rightMargin=0 marginheight="0" marginwidth="0" botmargin="0">
<!--#include file="../top.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select userid from users where userid='"&userid&"'"
rs.open sql,conn,1,2
if not rs.eof then
   response.write "<script>alert('很遗憾，您选择的用户名已被注册，请重新选择！');history.back();</Script>"
   response.end
end if

if request("y")<>"" and request("m")<>"" and request("d")<>"" then
birthday=dateserial(request("y"),request("m"),request("d"))
else
birthday="2000-01-01"
end if
dim rs
dim sql1
set rs=server.createobject("adodb.recordset")
sql1="select * from users"
rs.open sql1,conn,1,3

rs.addnew
rs("userid")=userid
rs("password")=password
rs("name")=trim(request("name"))
rs("email")=trim(request("myemail"))
rs("phone")=trim(request("phone"))
rs("Province")=trim(request("Province"))
rs("city")=trim(request("thearea"))
rs("county")=trim(request("thecounty"))
rs("homeaddress")=trim(request("homeaddress"))
rs("question")=trim(request("question"))
rs("ask")=trim(request("ask"))
rs("sex")=trim(request("sex"))
rs("phone")=trim(request("phone"))
rs("askmejoin")=trim(request("askmejoin"))
rs("birthday")=birthday
rs("idcard")=trim(request("idcard"))
rs("qq")=trim(request("qq"))
rs("money")=now() '取消注册加10天
rs("oklook")=1 '暂时注册设普通会员
rs("lasthits")=date()
rs("ip")=Request.ServerVariables("REMOTE_ADDR")
rs.update
%>
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center background=../images/bg-content.gif border=0 valign="top">
  <TBODY>
  <TR>
    <TD width=778 height=1>
      <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=1 
      cellSpacing=0 cellPadding=0 width=778 align=left border=0 valign="top">
        <TBODY>
  <TR>
    <TD width=778 height=188>
      <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 cellSpacing=0 
      cellPadding=0 width=778 border=0>
        <TBODY>
        <TR>
          <TD width=15 height=151>　</TD>
          <TD vAlign=top width=194 height=151><!--#include file="../left1.asp"--></TD>
          <TD vAlign=top width=4></TD>
          <TD vAlign=top width=550 height=151>
            <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 
            cellSpacing=5 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD vAlign=top width="100%" height=386>
                  <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 
                  height=246 cellSpacing=0 cellPadding=0 width="91%" border=0>
                    <TBODY>
                    <TR>
                      <TD vAlign=top width="100%" height=39><!--#include file="../query.asp"--></TD></TR>
                    <TR>
                      <TD width="100%" height=5></TD></TR>
                    <TR>
                      <TD width="100%" height=8></TD></TR>
                    <TR>
                      <TD width="100%" height=5></TD></TR>
                    <TR>
                      <TD width="100%" height=3>
                      <IMG height=21 
                        src="../images/b.gif" width=538 border=0></TD></TR>
                    <TR>
                      <TD width="100%" background=../images/b01.gif height=465 valign="top">
                      <div align="center">
                        <center>
                        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber1">
                          <tr>
      <td height="30" bgcolor="#F6F6F6" style="font-size: 12px">
      <p align="center" style="FONT-SIZE: 12px">感谢您注册成为 <%=webname%> 会员！</td>
                          </tr>
                          <tr>
                            <td style="font-size: 12px">
      <p align="center" style="FONT-SIZE: 12px">您的用户名：<font color="red"><b><%=trim(request("userid"))%></b></font></p>
      <%if birthday="" then%>
      <p align="center" style="FONT-SIZE: 12px">您没有填写生日，系统将您的生日设为默认值：2000-01-01</p><%end if%></td>
                          </tr>
                          <tr>
      <td height="30" style="FONT-SIZE: 12px">
      请点击下面的按钮选择付费方式，超过30天未付费的会员帐号将有可能被系统自动删除。</td>
                          </tr>
                          <tr>
      <td height="15" style="font-size: 12px"></td>
                          </tr>
                          <tr>
                            <td height="30" style="font-size: 12px">
      <form method="POST" action="user_pay.asp">
        <p align="center"><input type="submit" value="下一步进入付费" name="B1"></p>
        <p></p>
      </form>
      </td>
                          </tr>
                          <tr>
                    <td style="font-size: 12px" height="25">您的推广代码是：<input type="text" name="phone1" size="56" style="border-style: solid; border-width: 1" value="<%=weburl%>/film.asp?id=<%=request("userid")%>"></td>
                          </tr>
                          <tr>
                            <td width="100%" style="font-size: 12px" height="25">
                            <span lang="zh-cn">将推广代码发送给您的朋友或者发到论坛，您将有机会赚取更多佣金。</span></td>
                          </tr>
                          <tr>
                            <td width="100%" style="font-size: 12px" height="25"> <a target="_blank" href="user_add_member.asp"><font color="#005BAC">
        请到这里查看更多推广代码以及推广技巧&gt;&gt;</font></a></td>
                          </tr>
                        </table>
                        </center>
                      </div>
                      </TD></TR>
                    <TR>
                      <TD width="100%" height=1>
                      <IMG height=5 
                        src="../images/b02.gif" width=538 
                    border=0></TD></TR></TBODY></TABLE></TD></TR>
              </TBODY></TABLE></TD>
          <TD width=15 height=151>　</TD></TR></TBODY></TABLE></TD></TR>
  </TBODY></TABLE>
</table>
<!--#include file="../bottom.asp"-->
</BODY></HTML>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
response.cookies("userid")=request("userid")
response.cookies("password")=request("password")
response.cookies("okerer")="yesok"
application(""&request("userid")&"")="yes"
response.cookies("askmejoin")=""
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -