reg.asp

电子商城代码

<!--#include file="top.asp"-->
<!--#include file="include/md5.asp"-->
<!--#include file="include/56770_email_cls.asp"-->
<script>
function openwin()
{
document.reg_check.user_id.value=document.reg.user_id.value;
var popupWin = window.open('', 'check', 'width=300,height=100,resizable=no,scrollbars=no,menubar=no');
document.reg_check.submit()
}
</SCRIPT>
<%
session.codepage=65001
response.charset="utf-8"
strwebtitle=www56770com_word388
response.write c_skin_56770(c_skin_word(skin_head))
topmenu()
www56770com_reg_doc()
select Case request("action")
        Case "regok" : regok()
	    Case Else 
	            reg()
End Select 
Sub reg 
        response.write"<table width='"&webwidth&"' cellpadding='0' cellspacing='0' align='center'>"&_
                      "  <tr>"&_
                      "   <td>"&c_skin_56770(c_skin_word(skin_reginput))&"</td>"&_
                      "  </tr>"&_
                      "</table>"
End Sub 

Sub regok 

        Dim user_mail,user_name,pass1,pass2,password,city,user_tel,user_adds,user_postalcode
        Dim fapiao_taitou,fapiao_company,fapiao_zhanghao,fapiao_shuihao,fapiao_adds,fapiao_zip
        Dim regerror
        user_mail=Safereplace(trim(request("user_mail")))
        user_id=Safereplace(trim(request("user_id")))
        user_name=Safereplace(trim(request("user_name")))
        pass1=Safereplace(trim(request("ps1")))
        pass2=Safereplace(trim(request("ps2")))
        password=pass2
        city=Safereplace(trim(request("city")))
		If city="" Then city="-"
        user_tel=Safereplace(trim(request("user_tel")))
		If user_tel="" Then user_tel="0"
        user_adds=Safereplace(trim(request("user_adds")))
		If user_adds="" Then user_adds="-"
        user_postalcode=Safereplace(trim(request("user_postalcode")))
		If user_postalcode="" Then user_postalcode="066000"
        fax=Safereplace(trim(request("fax")))
		If fax="" Then fax="03358064544"
        '鍙戠エ淇℃伅
        fapiao_taitou=Safereplace(trim(request("fapiao_taitou")))
        fapiao_company=Safereplace(trim(request("fapiao_company")))
        fapiao_zhanghao=Safereplace(trim(request("fapiao_zhanghao")))
        fapiao_shuihao=Safereplace(trim(request("fapiao_shuihao")))
        fapiao_adds=Safereplace(trim(request("fapiao_adds")))
        fapiao_zip=Safereplace(trim(request("fapiao_zip")))
        If Len(user_id)<2 Or Len(user_id)>16 Then
		        If not check_name(user_id) Then 
                       regerror=true
		               mes=mes&"路"&www56770com_word121&"<br>"
				Else
                       regerror=true
		               mes=mes&"路"&www56770com_word411&"<br>"				
				End If 
        End if
        If pass1<>pass2 Or pass1="" Or pass2="" Then
                regerror=true
		        mes=mes&"路"&www56770com_word167&"<br>"
        End If
        If not check_name(pass1) Or not check_name(pass2) Then
                regerror=true
		        mes=mes&"路"&www56770com_word167&"<br>"
        End If
        If Len(user_name)<2 Or Len(user_name)>10 Or not check_name(user_name) Then
                regerror=true
		        mes=mes&"路"&www56770com_word165&"<br>"
        End If
        If Len(user_tel)<6 Or Len(user_tel)>13 Then
                regerror=true
		        mes=mes&"路"&www56770com_word168&"<br>"
        End If
        If IsValidEmail(user_mail)=false Then
                regerror=true
		        mes=mes&"路"&www56770com_word169&"<br>"
        End If
        If Len(user_postalcode)>7 Then
                regerror=true
		        mes=mes&"路"&www56770com_word170&"<br>"
        End If
        If Len(user_adds)<3 Or Len(user_adds)>255 Then
                regerror=true
		        mes=mes&"路"&www56770com_word171&"<br>"
        End If
        set rs=server.createobject("ADODB.Recordset")
        sql="select * from [56770_user] where user_id='"&user_id&"'"
        rs.open sql,conn,1,3
        if not(rs.eof or rs.bof) Then
		        regerror=True
		        mes="路"&www56770com_word413&"<br>"
        End if
        If regerror=true Then
        response.write"<table width='"&webwidth&"' cellpadding='0' cellspacing='0' align='center'>"&_
                      "  <tr>"&_
                      "   <td>"&_
                      "      <table width='88%' cellpadding='0' cellspacing='0' align='center'>"&_
                      "        <tr>"&_
                      "          <td>"
		        'response.write"<meta http-equiv=refresh content=5;url=javascript:history.go(-1)>"
                tl=www56770com_word675
		        regerror=true
                mes="路"&www56770com_word675&"<br><br>"&mes&"<br>路<a href='javascript:history.go(-1)'><img border=0 src=images/re.gif align=absmiddle>"&www56770com_word345&"</a>"
		        mes=mes&"<br><br>"&loading&""
		        call sendinfo(tl,mes)
        response.write"       </td>"&_
                      "      </tr>"&_
                      "     </table>"&_
                      "    </td>"&_
                      "  </tr>"&_
                      "</table>"
        else
		set rs=server.createobject("ADODB.Recordset")
		sql="select * from [56770_user]"
		rs.open sql,conn,1,3
				rs.addnew
				rs("user_id")=user_id
				rs("user_adds")=user_adds
				rs("user_mail")=user_mail
				rs("user_password")=md5(password)
				rs("user_postalcode")=user_postalcode
				rs("user_name")=user_name
				rs("fax")=fax
				rs("sex")=request("sex")
				rs("user_tel")=user_tel
				rs("user_grade")=1
				rs("regdate")=now()
				rs("lastlogintime")=now()
				rs("regip")=request.servervariables("remote_addr")
				rs("locksj")=now()
				rs("logins")=1
				rs("usermoney")=0
				rs("sumpay")=0
				rs("ifpay")=0
				rs("shenqing")=0
				rs("jifen")=sys_56770com14
				rs("city")=city
				rs("lock")=1             '閿佸畾鐘舵