user_reg_save.asp

ASP+Accesss数据库设备WEB报修

<!--#include file =conn.asp-->
<!--#include file="md5.asp"-->
<!--#include file="admin/ChkURL.asp"-->
<%
Dim rs_user,zs_name,user_id,user_name,password,user_ip
zs_name=request("zs_name")
user_name=request("user_name")
password=md5(trim(request("password")))
user_ip=request.servervariables("remote_addr")

Set rs_user = Server.CreateObject("ADODB.Recordset")
sql="select * from user_reg where user_name = '" & user_name & "'"
rs_user.open sql,conn,3,2

if rs_user.eof and rs_user.bof then
        rs_user.addnew
        rs_user("user_name")=user_name
		rs_user("zs_name")=zs_name
        rs_user("password")=password
		rs_user("user_ip")=user_ip
        rs_user("date")=date
        rs_user.update
        rs_user.movelast
        session("user_id")=rs_user("user_id")
        rs_user.close
%>
<script language="javascript">
	alert("用户注册成功！\n请您登录后提交报修！");
	window.location.href="index.asp";
</script>
<%
response.end
else
%>
<script language="javascript">
	alert("已经有人选择了该用户名称！\n请选择另一个用户名称！\n可以尝试在要记住的名称结尾添加一个数字！");
	window.history.back();
</script>
<%end if%>