📄 reg_ok.asp

📁 一个较好的网上购物系统是基于ASP的多用户网上商城
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
if request.form("temp")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('非法操作!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
else

if request.form("username")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('用户帐号不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if
if request.form("password1")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('密码不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if
if request.form("password2")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('确认密码不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if
if request.form("password2")<>request.form("password2") then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('2次密码不同，请重新输入!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if

if request.form("email")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('Email不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if
if request.form("realname")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('真实姓名不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if
if request.form("sex")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('请选择性别!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if
if request.form("shopname")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('店铺名称不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if
if request.form("shopcontent")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('店铺描述不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if
if request.form("shopaddress")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('店铺地址不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if
if request.form("shopphone")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('联系电话不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if

username=request.form("username")
password1=request.form("password1")
email=request.form("email")
question=request.form("question")
answer=request.form("answer")
qq=request.form("qq")

realname=request.form("realname")
sex=request.form("sex")

shopname=request.form("shopname")
shopcontent=request.form("shopcontent")
shopaddress=request.form("shopaddress")
shopphone=request.form("shopphone")

set rs=server.createobject("adodb.recordset")
sql="select * from user_info where (user_id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("user_name")=username
rs("user_password")=password1
rs("user_email")=email
rs("user_question")=question
rs("user_answer")=answer
rs("user_qq")=qq
rs("user_realname")=realname
rs("user_sex")=sex
rs("shop_name")=shopname
rs("shop_content")=shopcontent
rs("shop_address")=shopaddress
rs("shop_phone")=shopphone
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing

session("antry")="" '提交成功，清空session("antry")，以防重复提交！！
%>
<title><%=homepage%> － 注册成功</title>
<LINK href="style.css" type=text/css rel=stylesheet>
<body><TABLE width="760" class=page border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR> 
      <TD>
<!--#include file="top.asp"-->
<TABLE width=760 border=0 align=center cellpadding="4">
  <TBODY>
    <TR> 
      <TD align="center" vAlign=top> 
        <TABLE cellSpacing=0 cellPadding=0 width="550" border=0>
          <TBODY>
            <TR> 
              <TD><table width="100%" border="0" cellpadding="6">
                  <tr> 
                    <td align="center">注册成功!<a href="user_login.asp">点击这里进行登陆</a>!</td>
                  </tr>
                </table></TD>
            </TR>
          </TBODY>
        </TABLE>
        </TD>
    </TR>
  </TBODY>
</TABLE>
<%end if%>
<!--#include file="bottom.asp"-->
</TD>
    </TR>
  </TBODY>
</TABLE>
⌨️ 快捷键说明

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