admin_mod.asp

网站的后台管理代码......内容比较全面....新手比较适合

<%
'====================================================================
'
'           中国企业平台后台管理系统  版权所有:中国企业平台
'
'                公司网址 http://www.cnept.net
'
'                        版权所有 翻版必究
'====================================================================
%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../inc/checkpro.asp"-->
<% set rs=server.CreateObject("adodb.recordset") %>
<%
if session("admin_name")="" then 
response.end
end if%>
<%
sql="select * from manager where id="&request("id")
rs.open sql,conn,1,3
if rs("roleid")=0 then
response.Write "超级管理员不能被修改"
response.End
else
%>
<style type="text/css">
<!--
.asd {
	border: 1px solid #000000;
	font-size: 12px;
}
body {
	background-color: #eeeeee;
}
-->
</style>

<form id="form1" name="form1" method="post" action="savechange.asp?id=<%=rs("id")%>">
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<table width="716" height="131" border="0" align="center" class="asd">
  <tr>
    <td height="26" colspan="2" background="../images/pics/tile_sub.gif">&gt;修改管理员</td>
  </tr>
  <tr>
    <td width="63" height="20">用户名</td>
    <td width="641"><input name="name" type="text" id="name" value="<%=rs("admin_name")%>" /></td>
  </tr>
  <tr>
    <td height="22">密  码</td>
    <td><input name="pwd" type="password" id="pwd" value="<%=rs("pwd")%>" /></td>
  </tr>
  <tr>
    <td height="19">权 限</td>
    <td>
      <label><input name="quanxian" type="checkbox" id="quanxian" value="新闻管理" <%if instr(1,rs("pro"),"新闻管理",1)<>0 then response.Write("checked") %> />
        新闻管理</label>      <label>
        <input name="quanxian" type="checkbox" id="quanxian" value="案例管理" <%if instr(1,rs("pro"),"案例管理",1)<>0 then response.Write("checked") %> />
        案例管理</label>      <label>
        <input name="quanxian" type="checkbox" id="quanxian" value="会员中心" <%if instr(1,rs("pro"),"会员中心",1)<>0 then response.Write("checked") %> />
        会员中心</label>      <label>
        <input name="quanxian" type="checkbox" id="quanxian" value="招聘管理" <%if instr(1,rs("pro"),"招聘管理",1)<>0 then response.Write("checked") %> />
        招聘管理</label>      <label>
        <input name="quanxian" type="checkbox" id="quanxian" value="产品管理" <%if instr(1,rs("pro"),"产品管理",1)<>0 then response.Write("checked") %> />
        产品管理</label>
        <label> <br />
		<label>
        <input name="quanxian" type="checkbox" id="quanxian" value="订单管理" <%if instr(1,rs("pro"),"订单管理",1)<>0 then response.Write("checked") %> />
        订单管理</label>
		<label>
        <input name="quanxian" type="checkbox" id="quanxian" value="留言管理" <%if instr(1,rs("pro"),"留言管理",1)<>0 then response.Write("checked") %> />
        留言管理</label>
			<label>
        <input name="quanxian" type="checkbox" id="quanxian" value="调查管理" <%if instr(1,rs("pro"),"调查管理",1)<>0 then response.Write("checked") %> />
        调查管理</label>
			<label>
        <input name="quanxian" type="checkbox" id="quanxian" value="下载管理" <%if instr(1,rs("pro"),"下载管理",1)<>0 then response.Write("checked") %> />
        下载管理</label>
        <input name="quanxian" type="checkbox" id="quanxian" value="系统管理" <%if instr(1,rs("pro"),"系统管理",1)<>0 then response.Write("checked") %> />
        系统管理(可添加管理员)</label>
   
    </td>
  </tr>
    <tr>
    <td height="32">&nbsp;</td>
    <td><input type="submit" name="Submit" value="添加" />&nbsp;&nbsp;&nbsp;
      <input type="reset" name="Submit2" value="取消" /></td>
  </tr>
</table> </form>
</body>
</html>
<%end if%>