📄 newuserreg_in.asp

📁 功能最强大的ASP网站
💻 ASP
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/func.asp"-->
<%
username=replace(requestA("username")," ","")
userpass1=request("userpass1")
userpass2=request("userpass2")
chname=request("chname")
enname=request("enname")
rchname=request("rchname")
chcountry=request("chcountry")
encountry=request("encountry")
chprovince=request("chprovince")
enprovince=request("enprovince")
chcity=request("chcity")
encity=request("encity")
chaddress=request("chaddress")
enaddress=request("enaddress")
postcode=request("postcode")
telephoneno=request("telephoneno")
email=request("email")
faxno=request("faxno")


set rs = conn.execute ("select * from usergroup where IsDefault='Y' ")
if rs.eof then
	session("mesg")="系统未设置默认用户组,暂不允许注册"
	response.redirect "../result.asp"
end if
menu = rs("GroupCode")
rs.close


set rsl = conn.execute ("select * from userlevel where IsDefault='Y' ")
if rsl.eof then
	session("mesg")="系统未设置默认用户级别,暂不允许注册"
	response.redirect "../result.asp"
end if
level = rsl("levelCode")
rsl.close


'需要增加字段校验信息
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where username='"&username&"'"
rs.open sql,conn,1,3
if not rs.eof then
	session("mesg")="已经存在"&username&"用户,请另外选择用户名"
	response.redirect "../result.asp"
end if

set rsc=server.createobject("adodb.recordset")
sql="select * from account where username='"&username&"'"
rsc.open sql,conn,1,3
if not rsc.eof then
	session("mesg")="已经存在"&username&"用户,请另外选择用户名"
	response.redirect "../result.asp"
end if


'获取管理用户
set rsm=server.createobject("adodb.recordset")
if requestA("id")<>"" then
	sql="select * from [user] where id="&int(requestA("id"))
else
	sql="select * from [user] where username='"&requestA("manageuser")&"'"
end if
rsm.open sql,conn,1,1
if rsm.eof then
	manageuser = ""
else
manageuser=rsm("username")
web=rsm("web")
end if
rsm.close



set rsd=server.createobject("adodb.recordset")
sql="select * from accountdetail"
rsd.open sql,conn,1,3

rs.addnew
rs("manageuser")=manageuser
rs("username")=username
rs("userpass")=userpass1
rs("chname")=chname
rs("enname")=enname
rs("rchname")=rchname
rs("chcountry")=chcountry
rs("encountry")=encountry
rs("chprovince")=chprovince
rs("enprovince")=enprovince
rs("chcity")=chcity
rs("encity")=encity
rs("chaddress")=chaddress
rs("enaddress")=enaddress
rs("postcode")=postcode
rs("telephoneno")=telephoneno
rs("email")=email
rs("faxno")=faxno
rs("regtime")=date()
rs("status")="正常"
rs("updebit")=1000
rs("level")=level
rs("web")=web
rs("menu")=menu
rs("price")=price

rsc.addnew
rsc("username")=username
rsc("balance")=0
rsc("freeze")=0
rsc("debit")=0
rsc("regtime")=date()

rsd.addnew
rsd("username")=username
rsd("direction")="开户"
rsd("amount")=0
rsd("balance")=0
rsd("freeze")=0
rsd("debit")=0
rsd("regtime")=date()
rsd("remark")="开户"
rsd("billno")=0

rs.update
rsc.update
rsd.update
rs.close
rsc.close
rsd.close
set rs=nothing
set rsc=nothing
set rsd=nothing

on error resume next
Body = session("REGEMAIL")
Body = replace(Body,"[userpass]",userpass1)
Body = replace(Body,"[username]",username)
Body = replace(Body,"[comname]",session("COMNAME"))
'ret = SendEMail(email,Body)

ret = SendSysMail("SysMail-UserReg",username,orderid,email)

%>
<html>
<head>
<meta http-equiv='Content-Language' content='zh-cn'>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<title>新用户[<%=username%>]注册成功，请登陆！</title>
<link rel='stylesheet' type='text/css' href='../inc/css.css'>
</head>
<body bgcolor='#cccccc' text='#000000' leftmargin='0' topmargin='0'>
<div align='left'></div>
<table border='0' cellspacing='0' cellpadding='0' align='left' height='100%' width='98%'>
  <tr> 
    <td bgcolor='949494' width='1'></td>
    <td valign='top' bgcolor='#ffffff' width='818'>
      <table width='100' border='0' cellpadding='0' cellspacing='0'>
        <tr> 
          <td height='6'>&nbsp;</td>
        </tr>
        <tr> 
          <td height='6'> 
            <div align='left'><img src='../images/line1.gif' width='300' height='1'></div>
          </td>
        </tr>
        <tr> 
          <td height='20'> 
            <div align='left'>　<img src='../images/dotdb.gif' width='10' height='10'> 
              <font color='#000000'>当前位置：<span class='color01'>交易结果</span></font></div>
          </td>
        </tr>
        <tr> 
          <td height='6'> 
            <div align='left'><img src='../images/line1.gif' width='300' height='1'></div>
          </td>
        </tr>
      </table>
      <font color='#000000'> </font> 
      <table width='100%' border='0' cellpadding='0' cellspacing='0'>
        <tr> 
          <td height='36'> 
            <div align='center'><br>
              <br>
              <img src='../images/line1.gif' width='100%' height='1'><br>
              <br>
新用户[<%=username%>]注册成功，请<a href="../index.asp">登陆</a>！
            </div>
                <p><img src='../images/line1.gif' width='100%' height='1'>&nbsp;&nbsp; 
              </p>
            
          </td>
        </tr>
        <tr> 
          <td height='36'>&nbsp; </td>
        </tr>
      </table>
    <td bgcolor='949494' width='2'></td>
  </tr>
</table> 
</body> </html>
⌨️ 快捷键说明

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