regpost.asp

一个不错的音乐网站

<%PageName="UserRegPost"%>
<!--#include file="conn.asp"-->
<!--#include file="functionuser.asp"-->
<!--#include file="Star.INC"-->
<%
founderr=false

if request.form("UserName")="" or len(request.form("UserName"))>20 then
	errmsg=errmsg+""+"用户名输入错误(未输入或长度超过了20个字节)。<br>"
	founderr=true
else
	UserName=trim(request.form("UserName"))
end if
if request.form("password")="" or Len(request.form("password"))>20 then
	errmsg=errmsg+""+"请输入您的密码(长度不能大于20)。<br>"
	founderr=true
else
	password=request.form("password")
end if

if password<>request("password2") then
	errmsg=errmsg+""+"您输入的密码和确认密码不一致。"
	founderr=true
end if
if IsValidEmail(trim(request.form("Email")))=false then
	errmsg=errmsg+""+"您的Email有错误。"
	founderr=true
else
	Email=trim(request.form("Email"))
end if

if request.form("youbian")="" or Len(request.form("youbian"))<6 then
	errmsg=errmsg+""+"你的邮政编码有误，请查证后重新输入。<br>"
	founderr=true
else
	youbian=request.form("youbian")
end if
if request.form("OICQ")="" or Len(request.form("OICQ"))<5 then
	errmsg=errmsg+""+"你的OICQ号码有误，请查证后重新输入。<br>"
	founderr=true
else
	oicq=request.form("oicq")
end if

if founderr=true then
	call error()
else
	set rs=server.createobject("adodb.recordset")
	sql="select * from [user] where username='"&username&"'"
	rs.open sql,conn,1,3
	if not rs.eof or username=WebName then
		errmsg=""+"对不起，您输入的用户名已经被注册，请重新输入。"
		founderr=true
	else
		rs.addnew
		rs("username")=username
		rs("password")=password
		rs("email")=email
		rs("oicq")=oicq
		rs("loginDate")=NOW()
                rs("loginIP")=Request.ServerVariables("REMOTE_ADDR")
		rs("vipdate")=request.form("vipdate")
		if request.form("Address")<>"" then rs("Address")=request.form("Address")
		if request.form("Tel")<>"" then rs("Tel")=request.form("Tel")
		if request.form("Sex")<>"" then rs("Sex")=request.form("Sex")
		if request.form("Youbian")<>"" then rs("Youbian")=request.form("Youbian")
		if request.form("Name")<>"" and request.form("Shenfenzheng")<>"" then
			rs("Name")=request("Name")
			rs("Shenfenzheng")=request("Shenfenzheng")
		end if
		rs("addDate")=NOW()
		'rs("lockuser")=true (VIP用户审核)
		rs.update
	end if
	rs.close

	if founderr=true then
		call error()
	else
%>
<LINK href="../images/index.css" rel=stylesheet type=text/css>
<script src=../js/js.js></script>
<script language="javascript" src="../js/header.JS"></script>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="770">
    <tr>
      <td width="101" bgcolor="#FFFFFF"></td>
      <td width="669" bgcolor="#FFFFFF">
      <table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
        <tr>
                            <td width="180"  align="right" bgcolor="#FFFFFF">登录帐号：</td>
                            <td width="320" bgcolor="#FFFFFF" >&nbsp; 
                             <%=username%>                            
                            </td>
            </tr>
                          <tr> 
                            <td width="180"  align="right" bgcolor="#FFFFFF">登录密码：</td>
                            <td width="320" bgcolor="#FFFFFF" >&nbsp; 
                            <%=password%>
                            </td>
                          </tr>
                          <tr> 
                            <td width="180"  align="right" bgcolor="#FFFFFF">电子邮件：</td>
                            <td width="320" bgcolor="#FFFFFF" >&nbsp;<%=Email%></td>
                          </tr>
                          <tr> 
                            <td width="180"  align="right" bgcolor="#FFFFFF">会员类型：</td>
                            <td width="320" bgcolor="#FFFFFF" >&nbsp;<%=request.form("vipdate")%>天会员 
                            </td>
                          </tr>
                          <tr> 
                            <td width="180"  align="right" bgcolor="#FFFFFF">您的性别：</td>
                            <td width="320" bgcolor="#FFFFFF" >&nbsp;<%=request.form("Sex")%></td>
                          </tr>
                          <tr> 
                            <td width="180"  align="right" bgcolor="#FFFFFF">真实姓名：</td>
                            <td width="320" bgcolor="#FFFFFF" >&nbsp; 
                              <%if request.form("Name")="" then%>
                              未填写 
                              <%else%>
                              <%=request.form("Name")%> 
                              <%end if%>
                            </td>
                          </tr>
                          <tr> 
                            <td width="180"  align="right" bgcolor="#FFFFFF">身份证号：</td>
                            <td width="320" bgcolor="#FFFFFF" >&nbsp; 
                              <%if request.form("Shenfenzheng")="" then%>
                              未填写 
                              <%else%>
                              <%=request.form("Shenfenzheng")%> 
                              <%end if%>
                            </td>
                          </tr>
                          <tr> 
                            <td width="180"  align="right" bgcolor="#FFFFFF">联系电话：</td>
                            <td width="320" bgcolor="#FFFFFF" >&nbsp; 
                              <%if request.form("Tel")="" then%>
                              未填写 
                              <%else%>
                              <%=request.form("Tel")%> 
                              <%end if%>
                            </td>
                          </tr>
                          <tr> 
                            <td width="180"  align="right" bgcolor="#FFFFFF">详细地址：</td>
                            <td width="320" bgcolor="#FFFFFF" >&nbsp; 
                              <%if request.form("Address")="" then%>
                              未填写 
                              <%else%>
                              <%=request.form("Address")%> 
                              <%end if%>
                            </td>
                          </tr>
                          <tr> 
                            <td width="180"  align="right" bgcolor="#FFFFFF">邮政编码：</td>
                            <td width="320" bgcolor="#FFFFFF" >&nbsp; 
                              <%if request.form("Youbian")="" then%>
                              未填写 
                              <%else%>
                              <%=request.form("Youbian")%> 
                              <%end if%>
                            </td>
                          </tr>
                          <tr> 
                            <td width="180"  align="right" bgcolor="#FFFFFF">OICQ号码：</td>
                            <td width="320" bgcolor="#FFFFFF" >&nbsp; 
                              <%if request.form("Oicq")="" then%>
                              未填写 
                              <%else%>
                              <%=request.form("Oicq")%> 
                              <%end if%>
                            </td>
                          </tr>
                                  <tr> 
                                    <td width="500"  align="center" colspan="2" bgcolor="#FFFFFF"> 
                                    　</td>

        </tr>
      </table>
      </td>
    </tr>
    </table>
  </center>
</div>

</body>
 <!--#include file="reg-bottom.asp" -->
 <%
	end if
	set rs=nothing
end if
conn.close
set conn=nothing
%>