admin_user_edit_save.asp

ASP+Accesss数据库设备WEB报修

<!--#include file =conn.asp-->
<!--#include file="md5.asp"-->
<!--#include file="ChkURL.asp"-->
<%if session("pass")<>"ok" then 
    Response.Redirect "index.asp"
    Response.End 
  end if
%>
<%
Dim rs_user,zs_name,user_id,user_name,password,user_ip,purview
user_id=request("user_id")
user_name=request("user_name")
zs_name=request("zs_name")
password=request("password")
password1=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_id="&user_id
rs_user.open sql,conn,3,3
rs_user("user_name")=user_name
rs_user("zs_name")=zs_name
	
if password<>rs_user("password") then
rs_user("password")=password1
end if

rs_user("purview")=purview
rs_user("user_ip")=user_ip
rs_user.update
rs_user.close
set conn=nothing
%>
<script language="javascript">
	alert("修改成功！");
	window.location.href="admin_user_list.asp";
</script>