<!--#include file="../include/config.asp"-->
<!--#include file="../include/conn_system.asp"-->
<!--#include file="../../inc/hl_md5.asp"-->     <!-------恒浪整合文件'------>
<!--#include file="../../inc/UpiConfig.asp"-->  <!-------恒浪整合文件'------>
<%
        dim rs,sql,bz,birthday,from
	
        bz=request("bz")
        bz=replace(bz," ","&nbsp;")
        bz=replace(bz,chr(13)&chr(10),"<Br>")
		
	birthday=request("year") & "年" & request("month") & "月" & request("day") & "日"
        from=request("sheng") & request("shi")	
	
	if request("password")<>request("qr_password") then
%>
<SCRIPT LANGUAGE=vbscript>
<!--
msgbox("'密码' 和 '确认密码' 不一致!")
Sub window_onload
window.history.back
End Sub
-->
</SCRIPT>

<%  else
	sql="select * from [user] where username='" & request("username") & "'"
	set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,3,3
	if rs.eof then
        rs.addnew

        rs("username")=request("username")
		'rs("password")=request("password")
        rs("password")=md5(request("password"),16)
        rs("name")=request("name")
        rs("sex")=request("sex")
        rs("birthday")=birthday
        rs("sfz")=request("sfz")
        rs("thissite")=request("thissite")
        rs("job")=request("job")
        rs("from")=from
        rs("fax")=request("fax")
        rs("tel")=request("tel")
        rs("sj")=request("sj")
        rs("qq")=request("qq")
        rs("email")=request("email")
        rs("yb")=request("yb")
        rs("address")=request("address")
        rs("date")=now()
        rs("http")=request("http")
        rs("bz")=bz
        rs.update
		
		'//==恒浪整合注册开始==By Howave.Net & SeaShell 2007/05/11==
		IF HLIntegration = True Then
		    '//---------登录---
		    Session("zjlogin")=""
		    Session("adminlogin")="ok"
		    Session("user_id")=rs("id")
		    Session("user_name")=request("username")		
		    Dim H_ComeUrl,H_Question,H_Answer,H_UserSex
			H_Question = Request("username") & "的问题"
			H_Answer = Request("username") & "的答案"
			If Request("sex") = "男" Then
			    H_UserSex = 1
			Else
			    H_UserSex = 2
			End IF
			H_ComeUrl=Request.ServerVariables("HTTP_REFERER")
			If Instr(H_ComeUrl,"reg2.asp")>1 Then
		        H_ComeUrl = Replace(H_ComeUrl,"reg2.asp","")
		    End If
		    Howave_Reg Request("username"),Request("password"),Request("email"),H_Question,H_Answer,H_UserSex,H_ComeUrl
		    Response.End()
		End If						
		'//==恒浪整合注册结束====
		rs.Close
		Set rs=Nothing
%>
<html>
<head>
<title>会员注册</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../../style.css" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<br>
<br>
<br>
<table width="400" border="0" cellspacing="3" cellpadding="0" height="300" align="center" class="xu_kuan">
  <tr bgcolor="#fff9e1"> 
    <td align="center" valign="middle" bgcolor="#fff9e1" class="font"><font color="#FF6600"><br>
      恭喜您！你已成功成为我们的会员！</font><br>
      你可输入'用户名'和'密码'登陆我们的网站<br>
      <br>
      <table width="185" border="0" cellspacing="0" cellpadding="0" >
        <form action="../../checklogin.asp" method=post name="form1" onSubmit="return checklogin()">
          <tr valign="middle"> 
            <td width="64" height="32" align="right" class="font"><font color="#FF6600">用户名：</font></td>
            <td width="121"> 
              <input type="text" name="username" size="18" class="textinput">
            </td>
          </tr>
          <tr valign="middle"> 
            <td width="64" align="right" class="font"><font color="#FF6600">密　码：</font></td>
            <td width="121"> 
              <input type="password" name="password" size="18" class="textinput">
            </td>
          </tr>
          <tr align="center" valign="middle"> 
            <td height="46" colspan="2"> 
              <input name="imageField" type="image" src="../../images/login.gif" width="35" height="18" border="0">
            </td>
          </tr>
        </form>
      </table>
      <br>
      <br>
      [<a href="../../index.asp" class="linkfont">返回首页</a>]</td>
  </tr>
</table>
</body>
</html>
<%else%>
<SCRIPT LANGUAGE=vbscript>
<!--
msgbox("你所输入的'用户名'已存在!")
Sub window_onload

window.history.back

End Sub

-->
</SCRIPT>
<%end if
end if
%>
<!--#include file=../include/foot.asp-->