savechange.asp

来自「网站的后台管理代码......内容比较全面....新手比较适合」· ASP 代码 · 共 35 行

<%
'====================================================================
'
'           中国企业平台后台管理系统  版权所有:中国企业平台
'
'                公司网址 http://www.cnept.net
'
'                        版权所有 翻版必究
'====================================================================
%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../inc/md5.asp"-->
<% set rs=server.CreateObject("adodb.recordset") %>
<%
if session("admin_name")="" then 
response.end
end if%>
<% id=request("id")
name1=request.Form("name")
pwd=md5(request.Form("pwd"),16)
pro=request.Form("quanxian")
set rs=server.CreateObject("adodb.recordset")
sql="select * from manager where id="&request("id")
rs.open sql,conn,1,3
rs("admin_name")=name1
rs("pwd")=pwd
rs("pro")=pro
rs("roleid")=1
rs.update
response.Write "修改管理员成功!!"
Response.Write "<a href='admin_ad.asp'>"
Response.Write "返回"
Response.Write "</a>"
response.End
 %>