admin_user_add_save.asp

ASP+Accesss数据库设备WEB报修

<%if session("pass")<>"ok" then 
    Response.Redirect "index.asp"
    Response.End 
  end if
%>
<!--#include file =conn.asp-->
<!--#include file="md5.asp"-->
<!--#include file="ChkURL.asp"-->
<%
Dim rs_user,zs_name,user_id,user_name,password,user_ip
user_name=request("user_name")
zs_name=request("zs_name")
password=md5(trim(request("password")))
purview=request("purview")
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("purview")=purview
		rs_user("user_ip")=user_ip
        rs_user("date")=now()
        rs_user.update
        rs_user.movelast
        session("user_id")=rs_user("user_id")
        rs_user.close
%>
<script language="javascript">
	alert("用户添加成功！");
	window.location.href="admin_user_list.asp";
</script>
<%
response.end
else
%>
<script language="javascript">
	alert("已经有人选择了该用户名称！\n请选择另一个用户名称！\n可以尝试在要记住的名称结尾添加一个数字！");
	window.history.back();
</script>
<%end if%>