📄 save_user.asp
字号:
<!--#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," "," ")
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-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -