www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > admin/sys/admin.asp

    <!--#include file="../config.asp" -->
<!--#include file="../inc/md5.asp" -->
<script language="javascript">
//CharMode函数
//测试某个字符是属于哪一类.
function CharMode(iN){
if (iN>=48 && iN <=57) //数字
return 1;
if (iN>=65 && iN <=90) //大写字母
return 2;
if (iN>=97 && iN <=122) //小写
return 4;
else
return 8; //特殊字符
}
//bitTotal函数
//计算出当前密码当中一共有多少种模式
function bitTotal(num){
modes=0;
for (i=0;i<4;i++){
if (num & 1) modes++;
num>>>=1;
}
return modes;
}
//checkStrong函数
//返回密码的强度级别
function checkStrong(sPW){
if (sPW.length<=6)
return 0; //密码太短
Modes=0;
for (i=0;i<sPW.length;i++){
//测试每一个字符的类别并统计一共有多少种模式.
Modes|=CharMode(sPW.charCodeAt(i));
}
return bitTotal(Modes);
}
//pwStrength函数
//当用户放开键盘或密码输入框失去焦点时,根据不同的级别显示不同的颜色
function pwStrength(pwd){
O_color="#eeeeee";
L_color="#FF0000";
M_color="#FF9900";
H_color="#33CC00";
if (pwd==null||pwd==''){
Lcolor=Mcolor=Hcolor=O_color;
}
else{
S_level=checkStrong(pwd);
switch(S_level) {
case 0:
Lcolor=Mcolor=Hcolor=O_color;
case 1:
Lcolor=L_color;
Mcolor=Hcolor=O_color;
break;
case 2:
Lcolor=Mcolor=M_color;
Hcolor=O_color;
break;
default:
Lcolor=Mcolor=Hcolor=H_color;
}
}
GE("strength_L").style.background=Lcolor;
GE("strength_M").style.background=Mcolor;
GE("strength_H").style.background=Hcolor;
return;
}
</script>
<link href="../inc/mm.css" rel="stylesheet" type="text/css" />
<%
call zwtj()
mytit="<a href=""admin.asp"">系统管理员</a>"
select case action
case "","show"
call show()
case "add"
call add()
case "ed"
call ed()
case "modpsw"
call modpsw()
case "power"
call power()
case "del"
call del()
case "aadd"
call aadd()
case "infoc"
call infoc()
case "pswc"
call pswc()
case "powerc"
call powerc()
end select

'显示用户
sub show()
call chkqx(1,1)
call record(rs,"select * from Jw_admin order by id asc",1)
call head()
%>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#1A74A6">
<tr>
<td bgcolor="#FFFFFF">
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="6" background="/images/admin/bg.gif" class="fontw" id="tit"><strong><%= mytit %> &gt;&gt; 管理员列表 || <a href="?action=add">添加管理员</a></strong></td>
</tr>
<form action="" method="post" name="form1" id="form1">
<tr>
<td width="3%" align="center" bgcolor="#C5E0F3"><strong>ID</strong></td>
<td width="31%" bgcolor="#C5E0F3"><strong>用户名</strong></td>
<td width="24%" align="center" bgcolor="#C5E0F3"><strong>初始时间</strong></td>
<td width="10%" align="center" bgcolor="#C5E0F3"><strong>登陆次数</strong></td>
<td width="29%" align="center" bgcolor="#C5E0F3"><strong>操作</strong></td>
<td width="3%" bgcolor="#C5E0F3"><input type="checkbox" name="selectall" onclick="selectit()" /></td>
</tr>
<%
if not rs.eof then
dim i
i=0
dim bgc
do while not rs.eof
if i mod 2=0 then 
bgc="#D2E9FF"
else
bgc="#D2E1EE"
end if
%>
<tr id="r<%=rs("id")%>" bgcolor=<%= bgc %> onMouseOver="museing(r<%=rs("id")%>,0,'<%= bgc %>')" onMouseOut="museing(r<%=rs("id")%>,1,'<%= bgc %>')">
<td align="center"><%= rs("id") %></td>
<td><%=rs("admin_name") %></td>
<td align="center"><%= rs("ctim") %></td>
<td align="center"><%= rs("dgrees") %></td>
<td align="center"><input name="Submit" type="button" class="bt" value="修改资料" onclick="window.location.href='?action=ed&id=<%= rs("id") %>'" /><input name="Submit2" type="button" class="bt" value="修改密码" onclick="window.location.href='?action=modpsw&id=<%= rs("id") %>'" /><input name="Submit3" type="button" class="bt" value="权限设置" onclick="window.location.href='?action=power&id=<%= rs("id") %>'"/></td>
<td><input name="idstr" type="checkbox" value="<%= rs("id") %>" onclick="td_bgcolor(r<%=rs("id")%>,1)" /></td>
</tr>
<% 
i=i+1
rs.movenext
loop
end if 
%>
<tr>
<td colspan="6" bgcolor="#C5E0F3"><input name="del" type="button" class="button_1" id="del" value="删除所选" onmouseup="tjqr('您确定要删除？此操作无法逆转！','?action=del')" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'"/></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<% 
call recordend(rs)
call connend()
call foot() 
end sub

'添加用户
sub add()
call chkqx(1,2)
call head()
%>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#1A74A6">
<tr>
<td bgcolor="#FFFFFF">
<table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="3" background="/images/admin/bg.gif" class="fontw" id="tit"><strong><%= mytit %> &gt;&gt; 添加管理员</strong></td>
</tr>
<form action="" method="post" name="form1" id="form1">
<tr>
<td width="10%" bgcolor="#C5E0F3">用&nbsp;户&nbsp;名：</td>
<td width="29%" bgcolor="#C5E0F3"><input name="admin_name" type="text" class="inp" id="admin_name" onfocus="this.className='focus'" onblur="this.className='inp';out_admin_name()" size="40" maxlength="16" style="width:240px;"/></td>
<td width="61%" bgcolor="#C5E0F3"><div id="cadmin_name"></div></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">密&nbsp;&nbsp;&nbsp;&nbsp;码：</td>
<td bgcolor="#C5E0F3"><input name="admin_psw" type="password" class="inp" id="admin_psw" onfocus="this.className='focus'" onblur="this.className='inp';pwStrength(this.value);out_admin_psw()" onkeyup="pwStrength(this.value)" size="40" maxlength="16" style="width:240px;"/></td>
<td bgcolor="#C5E0F3"><div id="cadmin_psw"></div></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">&nbsp;</td>
<td bgcolor="#C5E0F3">

<table width="180" border="0" cellspacing="1" cellpadding="1">
<tr bgcolor="#EFEFEF">
<td align="center" id="strength_L">弱</td>
<td align="center" id="strength_M">中</td>
<td align="center" id="strength_H">强</td>
</tr>
</table>

</td>
<td bgcolor="#C5E0F3">&nbsp;</td>
</tr>
<tr>
<td bgcolor="#C5E0F3">重复密码：</td>
<td bgcolor="#C5E0F3"><input name="admin_psw1" type="password" class="inp" id="admin_psw1" onfocus="this.className='focus'" onblur="this.className='inp';out_admin_psw1()" size="40" maxlength="16" style="width:240px;"/></td>
<td bgcolor="#C5E0F3"><div id="cadmin_psw1"></div></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">真实姓名：</td>
<td bgcolor="#C5E0F3"><input name="truename" type="text" class="inp" id="truename" onfocus="this.className='focus'" onblur="this.className='inp'" size="40" maxlength="20" style="width:240px;"/></td>
<td bgcolor="#C5E0F3"><div id="ctruename"></div></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">联系电话：</td>
<td bgcolor="#C5E0F3"><input name="tel" type="text" class="inp" id="tel" onfocus="this.className='focus'" onblur="this.className='inp'" size="40" maxlength="20" style="width:240px;"/></td>
<td bgcolor="#C5E0F3"><div id="ctel"></div></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">E-mail：</td>
<td bgcolor="#C5E0F3"><input name="email" type="text" class="inp" id="email" onfocus="this.className='focus'" onblur="this.className='inp'" size="40" maxlength="30" style="width:240px;"/></td>
<td bgcolor="#C5E0F3"><div id="cemail"></div></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">QICQ：</td>
<td bgcolor="#C5E0F3"><input name="qq" type="text" class="inp" id="qq" onfocus="this.className='focus'" onblur="this.className='inp'" size="40" maxlength="20" style="width:240px;"/></td>
<td bgcolor="#C5E0F3"><div id="cqq"></div></td>
</tr>
<tr>
<td colspan="3" bgcolor="#C5E0F3"><div id="msg"></div></td>
</tr>
<tr>
<td colspan="3" bgcolor="#C5E0F3"><input onclick="useradd()" name="go" type="button" class="button_1" id="go" value="提交" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'">
<input name="reset" type="reset" class="button_1" id="reset" value="重置" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'"/></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<SCRIPT language="javascript" event="onkeydown" for="document">
if(event.keyCode==13&&event.srcElement.type!='button'&&event.srcElement.type!='submit'&&event.srcElement.type!='reset'&&event.srcElement.type!='textarea'&&event.srcElement.type!='')
useradd();
</SCRIPT>
<% 
call connend()
call foot() 
end sub

'修改资料
sub ed()
if int(request.cookies(fmid)("admin_id"))<>int(id) then 
call chkqx(1,4)
end if

if id="" then 
call cc("版面参数错误")
end if
set rs=conn.execute("select * from Jw_admin where id="&id)
call head()
%>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#1A74A6">
<tr>
<td bgcolor="#FFFFFF">
<table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="3" background="/images/admin/bg.gif" class="fontw" id="tit"><strong><%= mytit %> &gt;&gt; 资料修改</strong></td>
</tr>
<form action="" method="post" name="form1" id="form1">
<tr>
<td width="13%" bgcolor="#C5E0F3">用&nbsp;户&nbsp;名：</td>
<td width="32%" bgcolor="#C5E0F3"><%= rs("admin_name") %></td>
<td width="55%" bgcolor="#C5E0F3"></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">登陆次数：</td>
<td bgcolor="#C5E0F3"><%= rs("dgrees") %></td>
<td bgcolor="#C5E0F3">&nbsp;</td>
</tr>
<tr>
<td bgcolor="#C5E0F3">最后登陆时间：</td>
<td bgcolor="#C5E0F3"><%= rs("lasttime") %></td>
<td bgcolor="#C5E0F3">&nbsp;</td>
</tr>
<tr>
<td bgcolor="#C5E0F3">最后登陆IP：</td>
<td bgcolor="#C5E0F3"><%= rs("lastip") %></td>
<td bgcolor="#C5E0F3">&nbsp;</td>
</tr>
<tr>
<td bgcolor="#C5E0F3">真实姓名：</td>
<td bgcolor="#C5E0F3"><input name="truename" type="text" class="inp" id="truename" onfocus="this.className='focus'" onblur="this.className='inp'" size="40" value="<%= rs("truename") %>" maxlength="20" style="width:240px;"/></td>
<td bgcolor="#C5E0F3"><div id="ctruename"></div></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">联系电话：</td>
<td bgcolor="#C5E0F3"><input name="tel" type="text" class="inp" id="tel" onfocus="this.className='focus'" onblur="this.className='inp'" value="<%= rs("tel") %>" size="40" maxlength="20" style="width:240px;"/></td>
<td bgcolor="#C5E0F3"><div id="ctel"></div></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">E-mail：</td>
<td bgcolor="#C5E0F3"><input name="email" type="text" class="inp" id="email" onfocus="this.className='focus'" value="<%= rs("email") %>" onblur="this.className='inp'" size="40" maxlength="30" style="width:240px;"/></td>
<td bgcolor="#C5E0F3"><div id="cemail"></div></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">QICQ：</td>
<td bgcolor="#C5E0F3"><input name="qq" type="text" class="inp" id="qq" onfocus="this.className='focus'" value="<%= rs("qq") %>" onblur="this.className='inp'" size="40" maxlength="20" style="width:240px;"/></td>
<td bgcolor="#C5E0F3"><div id="cqq"></div></td>
</tr>

<tr>
<td colspan="3" bgcolor="#C5E0F3"><div id="msg"></div></td>
</tr>
<tr>
<td colspan="3" bgcolor="#C5E0F3"><input onclick="infoc()" name="go" type="button" class="button_1" id="go" value="提交" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'">
<input name="reset" type="reset" class="button_1" id="reset" value="重置" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'"/></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<SCRIPT language="javascript" event="onkeydown" for="document">
if(event.keyCode==13&&event.srcElement.type!='button'&&event.srcElement.type!='submit'&&event.srcElement.type!='reset'&&event.srcElement.type!='textarea'&&event.srcElement.type!='')
infoc();
</SCRIPT>
<% 
call recordend(rs)
call connend()
call foot() 
end sub

'修改密码
sub modpsw()
if int(request.cookies(fmid)("admin_id"))<>int(id) then 
call chkqx(1,5)
end if
if id="" then 
call cc("版面参数错误")
end if
set rs=conn.execute("select * from Jw_admin where id="&id)
call head()
%>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#1A74A6">
<tr>
<td bgcolor="#FFFFFF">
<table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="3" background="/images/admin/bg.gif" class="fontw" id="tit"><strong><%= mytit %> &gt;&gt; 密码修改</strong></td>
</tr>
<form action="" method="post" name="form1" id="form1">
<tr>
<td width="10%" bgcolor="#C5E0F3">用&nbsp;户&nbsp;名：</td>
<td width="32%" bgcolor="#C5E0F3"><%= rs("admin_name") %></td>
<td width="58%" bgcolor="#C5E0F3"></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">旧&nbsp;密&nbsp;码：</td>
<td bgcolor="#C5E0F3"><input name="opsw" type="password" class="inp" id="opsw" onfocus="this.className='focus'" onblur="this.className='inp';out_opsw()" size="40" maxlength="16" style="width:240px;"/></td>
<td bgcolor="#C5E0F3"><div id="copsw"></div></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">新&nbsp;密&nbsp;码：</td>
<td bgcolor="#C5E0F3"><input name="admin_psw" type="password" class="inp" id="admin_psw" onfocus="this.className='focus'" onblur="this.className='inp';pwStrength(this.value);out_admin_psw()" onkeyup="pwStrength(this.value)" size="40" maxlength="16" style="width:240px;"/></td>
<td bgcolor="#C5E0F3"><div id="cadmin_psw"></div></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">&nbsp;</td>
<td bgcolor="#C5E0F3"><table width="180" border="0" cellspacing="1" cellpadding="1">
<tr bgcolor="#EFEFEF">
<td align="center" id="strength_L">弱</td>
<td align="center" id="strength_M">中</td>
<td align="center" id="strength_H">强</td>
</tr>
</table></td>
<td bgcolor="#C5E0F3">&nbsp;</td>
</tr>
<tr>
<td bgcolor="#C5E0F3">重复密码：</td>
<td bgcolor="#C5E0F3"><input name="admin_psw1" type="password" class="inp" id="admin_psw1" onfocus="this.className='focus'" onblur="this.className='inp';out_admin_psw1()" size="40" maxlength="16" style="width:240px;"/></td>
<td bgcolor="#C5E0F3"><div id="cadmin_psw1"></div></td>
</tr>

<tr>
<td colspan="3" bgcolor="#C5E0F3"><div id="msg"></div></td>
</tr>
<tr>
<td colspan="3" bgcolor="#C5E0F3"><input onclick="pswc()" name="go" type="button" class="button_1" id="go" value="提交" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'">
<input name="reset" type="reset" class="button_1" id="reset" value="重置" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'"/></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<SCRIPT language="javascript" event="onkeydown" for="document">
if(event.keyCode==13&&event.srcElement.type!='button'&&event.srcElement.type!='submit'&&event.srcElement.type!='reset'&&event.srcElement.type!='textarea'&&event.srcElement.type!='')
pswc();
</SCRIPT>
<% 
call recordend(rs)
call connend()
call foot() 
end sub

'权限设置
sub power()
call chkqx(1,6)
if id="" then 
call cc("版面参数错误")
end if
set rs=conn.execute("select * from Jw_admin where id="&id)
dim qx1,qx2,qx3,qx4,qx5,qx6,qx7,qx8,qx9,qx10,qx11,qx12,qx13
qx1=rs("qx1")
qx2=rs("qx2")
qx3=rs("qx3")
qx4=rs("qx4")
qx5=rs("qx5")
qx6=rs("qx6")
qx7=rs("qx7")
qx8=rs("qx8")
qx9=rs("qx9")
qx10=rs("qx10")
qx11=rs("qx11")
qx12=rs("qx12")
qx13=rs("qx13")
call head()
%>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#1A74A6">
<tr>
<td bgcolor="#FFFFFF">
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="5" background="/images/admin/bg.gif" class="fontw" id="tit"><strong><%= mytit %> &gt;&gt; 权限设置</strong></td>
</tr>
<form action="?action=powerc&id=<%= id %>" method="post" name="form1" id="form1">
<tr>
<td colspan="5" bgcolor="#C5E0F3"><strong>用户名：<%= rs("admin_name") %>&nbsp;</strong></td>
</tr>

<tr>
<td colspan="5" bgcolor="#C5E0F3"><table border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="100" class="fontr">系统用户管理：</td>
<td>
<input name="qx1" type="checkbox" class="inp2" id="qx1" value="1" <% If instr(qx1,",1,")>0 Then Response.Write("checked") end if%>/></td>
<td>查看用户列表</td>
<td><input name="qx1" type="checkbox" id="qx1" value="2" <% If instr(qx1,",2,")>0 Then Response.Write("checked") end if%>/></td>
<td>新建用户</td>
<td><input name="qx1" type="checkbox" id="qx1" value="3" <% If instr(qx1,",3,")>0 Then Response.Write("checked") end if%>/></td>
<td>删除用户</td>
<td><input name="qx1" type="checkbox" id="qx1" value="4" <% If instr(qx1,",4,")>0 Then Response.Write("checked") end if%>/></td>
<td>修改资料</td>
<td><input name="qx1" type="checkbox" id="qx1" value="5" <% If instr(qx1,",5,")>0 Then Response.Write("checked") end if%>/></td>
<td>修改密码</td>
<td><input name="qx1" type="checkbox" id="qx1" value="6" <% If instr(qx1,",6,")>0 Then Response.Write("checked") end if%>/></td>
<td>设置权限</td>
</tr>
</table></td>
</tr>

<tr>
<td colspan="5" bgcolor="#C5E0F3"><table border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="100" class="fontr">管理菜单：</td>
<td>
<input name="qx2" type="checkbox" id="qx2" value="1" <% If instr(qx2,",1,")>0 Then Response.Write("checked") end if%>/></td>
<td>可查看管理模式 </td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="5" bgcolor="#C5E0F3" class="fontr">单一页面管理权限：</td>
</tr>
<tr>
<td width="19%" bgcolor="#C5E0F3">
<input name="qx3" type="checkbox" id="qx3" value="1" <% If instr(qx3,",1,")>0 Then Response.Write("checked") end if%>/>

管理菜单设置[后台]</td>
<td width="21%" bgcolor="#C5E0F3"> <input name="qx3" type="checkbox" id="qx3" value="2" <% If instr(qx3,",2,")>0 Then Response.Write("checked") end if%>/>
管理登陆日志</td>
<td width="18%" bgcolor="#C5E0F3"> <input name="qx3" type="checkbox" id="qx3" value="3" <% If instr(qx3,",3,")>0 Then Response.Write("checked") end if%>/>
服务器信息</td>
<td width="22%" bgcolor="#C5E0F3"> <input name="qx3" type="checkbox" id="qx3" value="4" <% If instr(qx3,",4,")>0 Then Response.Write("checked") end if%>/>
关键字管理</td>
<td width="20%" bgcolor="#C5E0F3"> <input name="qx3" type="checkbox" id="qx3" value="5" <% If instr(qx3,",5,")>0 Then Response.Write("checked") end if%>/>
会员管理</td>
</tr>
<tr>
<td bgcolor="#C5E0F3"> <input name="qx3" type="checkbox" id="qx3" value="6" <% If instr(qx3,",6,")>0 Then Response.Write("checked") end if%>/>
会员组管理</td>
<td bgcolor="#C5E0F3"> <input name="qx3" type="checkbox" id="qx3" value="7" <% If instr(qx3,",7,")>0 Then Response.Write("checked") end if%>/>
人才招聘管理</td>
<td bgcolor="#C5E0F3"> <input name="qx3" type="checkbox" id="qx3" value="8" <% If instr(qx3,",8,")>0 Then Response.Write("checked") end if%>/>
站内调查管理</td>
<td bgcolor="#C5E0F3"> <input name="qx3" type="checkbox" id="qx3" value="9" <% If instr(qx3,",9,")>0 Then Response.Write("checked") end if%>/>
留言反馈管理</td>
<td bgcolor="#C5E0F3"> <input name="qx3" type="checkbox" id="qx3" value="10" <% If instr(qx3,",10,")>0 Then Response.Write("checked") end if%>/>
加盟申请管理</td>
</tr>
<tr>
<td bgcolor="#C5E0F3"> <input name="qx3" type="checkbox" id="qx3" value="11" <% If instr(qx3,",11,")>0 Then Response.Write("checked") end if%>/>
上传文件管理</td>
<td bgcolor="#C5E0F3"> <input name="qx3" type="checkbox" id="qx3" value="12" <% If instr(qx3,",12,")>0 Then Response.Write("checked") end if%>/>
执行SQL命令</td>
<td bgcolor="#C5E0F3"> <input name="qx3" type="checkbox" id="qx3" value="13" <% If instr(qx3,",13,")>0 Then Response.Write("checked") end if%>/>
压缩数据库</td>
<td bgcolor="#C5E0F3"><input name="qx3" type="checkbox" id="qx3" value="14" <% If instr(qx3,",14,")>0 Then Response.Write("checked") end if%>/> 
数据库备分</td>
<td bgcolor="#C5E0F3"> <input name="qx3" type="checkbox" id="qx3" value="15" <% If instr(qx3,",15,")>0 Then Response.Write("checked") end if%>/>
流量统计</td>
</tr>

<tr>
<td colspan="5" bgcolor="#C5E0F3"><table border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="100" class="fontr">公告管理：</td>
<td>
<input name="qx4" type="checkbox" id="qx4" value="1" <% If instr(qx4,",1,")>0 Then Response.Write("checked") end if%>/></td>
<td>添加分类</td>
<td><input name="qx4" type="checkbox" id="qx4" value="2" <% If instr(qx4,",2,")>0 Then Response.Write("checked") end if%>/></td>
<td>编辑分类</td>
<td><input name="qx4" type="checkbox" id="qx4" value="3" <% If instr(qx4,",3,")>0 Then Response.Write("checked") end if%>/></td>
<td>删除分类</td>
<td><input name="qx4" type="checkbox" id="qx4" value="4" <% If instr(qx4,",4,")>0 Then Response.Write("checked") end if%>/></td>
<td>添加公告</td>
<td><input name="qx4" type="checkbox" id="qx4" value="5" <% If instr(qx4,",5,")>0 Then Response.Write("checked") end if%>/></td>
<td>编辑公告</td>
<td><input name="qx4" type="checkbox" id="qx4" value="6" <% If instr(qx4,",6,")>0 Then Response.Write("checked") end if%>/></td>
<td>删除公告</td>
</tr>
</table></td>
</tr>

<tr>
<td colspan="5" bgcolor="#C5E0F3"><table border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="100" class="fontr">导航菜单[前台]：</td>
<td><input name="qx5" type="checkbox" id="qx5" value="1" <% If instr(qx5,",1,")>0 Then Response.Write("checked") end if%>/></td>
<td>添加</td>
<td><input name="qx5" type="checkbox" id="qx5" value="2" <% If instr(qx5,",2,")>0 Then Response.Write("checked") end if%>/></td>
<td>编辑</td>
<td><input name="qx5" type="checkbox" id="qx5" value="3" <% If instr(qx5,",3,")>0 Then Response.Write("checked") end if%>/></td>
<td>删除</td>
</tr>
</table></td>
</tr>

<tr>
<td colspan="5" bgcolor="#C5E0F3"><table border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="100" class="fontr">网站信息：</td>
<td><input name="qx6" type="checkbox" id="qx6" value="1" <% If instr(qx6,",1,")>0 Then Response.Write("checked") end if%>/></td>
<td>添加</td>
<td><input name="qx6" type="checkbox" id="qx6" value="2" <% If instr(qx6,",2,")>0 Then Response.Write("checked") end if%>/></td>
<td>编辑</td>
<td><input name="qx6" type="checkbox" id="qx6" value="3" <% If instr(qx6,",3,")>0 Then Response.Write("checked") end if%>/></td>
<td>删除</td>
</tr>
</table></td>
</tr>

<tr>
<td colspan="5" bgcolor="#C5E0F3"><table border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="100" class="fontr">图片展示： </td>
<td><input name="qx7" type="checkbox" id="qx7" value="1" <% If instr(qx7,",1,")>0 Then Response.Write("checked") end if%>/></td>
<td>添加分类</td>
<td><input name="qx7" type="checkbox" id="qx7" value="2" <% If instr(qx7,",2,")>0 Then Response.Write("checked") end if%>/></td>
<td>编辑分类</td>
<td><input name="qx7" type="checkbox" id="qx7" value="3" <% If instr(qx7,",3,")>0 Then Response.Write("checked") end if%>/></td>
<td>删除分类</td>
<td><input name="qx7" type="checkbox" id="qx7" value="4" <% If instr(qx7,",4,")>0 Then Response.Write("checked") end if%>/></td>
<td>添加图片</td>
<td><input name="qx7" type="checkbox" id="qx7" value="5" <% If instr(qx7,",5,")>0 Then Response.Write("checked") end if%>/></td>
<td>编辑图片</td>
<td><input name="qx7" type="checkbox" id="qx7" value="6" <% If instr(qx7,",6,")>0 Then Response.Write("checked") end if%>/></td>
<td>删除图片</td>
</tr>
</table>
</td>
</tr>

<tr>
<td colspan="5" bgcolor="#C5E0F3"><table border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="100" class="fontr">友情链接：</td>
<td><input name="qx8" type="checkbox" id="qx8" value="1" <% If instr(qx8,",1,")>0 Then Response.Write("checked") end if%>/></td>
<td>添加分类</td>
<td><input name="qx8" type="checkbox" id="qx8" value="2" <% If instr(qx8,",2,")>0 Then Response.Write("checked") end if%>/></td>
<td>编辑分类</td>
<td><input name="qx8" type="checkbox" id="qx8" value="3" <% If instr(qx8,",3,")>0 Then Response.Write("checked") end if%>/></td>
<td>删除分类</td>
<td><input name="qx8" type="checkbox" id="qx8" value="4" <% If instr(qx8,",4,")>0 Then Response.Write("checked") end if%>/></td>
<td>添加链接</td>
<td><input name="qx8" type="checkbox" id="qx8" value="5" <% If instr(qx8,",5,")>0 Then Response.Write("checked") end if%>/></td>
<td>编辑链接</td>
<td><input name="qx8" type="checkbox" id="qx8" value="6" <% If instr(qx8,",6,")>0 Then Response.Write("checked") end if%>/></td>
<td>删除链接</td>
</tr>
</table></td>
</tr>

<tr>
<td colspan="5" bgcolor="#C5E0F3"><table border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="100" class="fontr">文章：</td>
<td><input name="qx9" type="checkbox" id="qx9" value="1" <% If instr(qx9,",1,")>0 Then Response.Write("checked") end if%>/></td>
<td>添加分类</td>
<td><input name="qx9" type="checkbox" id="qx9" value="2" <% If instr(qx9,",2,")>0 Then Response.Write("checked") end if%>/></td>
<td>编辑分类</td>
<td><input name="qx9" type="checkbox" id="qx9" value="3" <% If instr(qx9,",3,")>0 Then Response.Write("checked") end if%>/></td>
<td>删除分类</td>
<td><input name="qx9" type="checkbox" id="qx9" value="4" <% If instr(qx9,",4,")>0 Then Response.Write("checked") end if%>/></td>
<td>添加文章</td>
<td><input name="qx9" type="checkbox" id="qx9" value="5" <% If instr(qx9,",5,")>0 Then Response.Write("checked") end if%>/></td>
<td>编辑文章</td>
<td><input name="qx9" type="checkbox" id="qx9" value="6" <% If instr(qx9,",6,")>0 Then Response.Write("checked") end if%>/></td>
<td>删除文章</td>
<td><input name="qx9" type="checkbox" id="qx9" value="7" <% If instr(qx9,",7,")>0 Then Response.Write("checked") end if%>/></td>
<td>来源</td>
<td><input name="qx9" type="checkbox" id="qx9" value="8" <% If instr(qx9,",8,")>0 Then Response.Write("checked") end if%>/></td>
<td>编辑</td>
</tr>
</table></td>
</tr>

<tr>
<td colspan="5" bgcolor="#C5E0F3"><table border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="100" class="fontr">画册：</td>
<td><input name="qx10" type="checkbox" id="qx10" value="1" <% If instr(qx10,",1,")>0 Then Response.Write("checked") end if%>/></td>
<td>添加分类</td>
<td><input name="qx10" type="checkbox" id="qx10" value="2" <% If instr(qx10,",2,")>0 Then Response.Write("checked") end if%>/></td>
<td>编辑分类</td>
<td><input name="qx10" type="checkbox" id="qx10" value="3" <% If instr(qx10,",3,")>0 Then Response.Write("checked") end if%>/></td>
<td>删除分类</td>
<td><input name="qx10" type="checkbox" id="qx10" value="4" <% If instr(qx10,",4,")>0 Then Response.Write("checked") end if%>/></td>
<td>添加画册</td>
<td><input name="qx10" type="checkbox" id="qx10" value="5" <% If instr(qx10,",5,")>0 Then Response.Write("checked") end if%>/></td>
<td>编辑画册</td>
<td><input name="qx10" type="checkbox" id="qx10" value="6" <% If instr(qx10,",6,")>0 Then Response.Write("checked") end if%>/></td>
<td>删除画册</td>
</tr>
</table></td>
</tr>

<tr>
<td colspan="5" bgcolor="#C5E0F3"><table border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="100" class="fontr">视频：</td>
<td><input name="qx11" type="checkbox" id="qx11" value="1" <% If instr(qx11,",1,")>0 Then Response.Write("checked") end if%>/></td>
<td>添加分类</td>
<td><input name="qx11" type="checkbox" id="qx11" value="2" <% If instr(qx11,",2,")>0 Then Response.Write("checked") end if%>/></td>
<td>编辑分类</td>
<td><input name="qx11" type="checkbox" id="qx11" value="3" <% If instr(qx11,",3,")>0 Then Response.Write("checked") end if%>/></td>
<td>删除分类</td>
<td><input name="qx11" type="checkbox" id="qx11" value="4" <% If instr(qx11,",4,")>0 Then Response.Write("checked") end if%>/></td>
<td>添加视频</td>
<td><input name="qx11" type="checkbox" id="qx11" value="5" <% If instr(qx11,",5,")>0 Then Response.Write("checked") end if%>/></td>
<td>编辑视频</td>
<td><input name="qx11" type="checkbox" id="qx11" value="6" <% If instr(qx11,",6,")>0 Then Response.Write("checked") end if%>/></td>
<td>删除视频</td>
</tr>
</table></td>
</tr>

<tr>
<td colspan="5" bgcolor="#C5E0F3"><table border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="100" class="fontr">产品：</td>
<td><input name="qx12" type="checkbox" id="qx12" value="1" <% If instr(qx12,",1,")>0 Then Response.Write("checked") end if%>/></td>
<td>添加分类</td>
<td><input name="qx12" type="checkbox" id="qx12" value="2" <% If instr(qx12,",2,")>0 Then Response.Write("checked") end if%>/></td>
<td>编辑分类</td>
<td><input name="qx12" type="checkbox" id="qx12" value="3" <% If instr(qx12,",3,")>0 Then Response.Write("checked") end if%>/></td>
<td>删除分类</td>
<td><input name="qx12" type="checkbox" id="qx12" value="4" <% If instr(qx12,",4,")>0 Then Response.Write("checked") end if%>/></td>
<td>添加产品</td>
<td><input name="qx12" type="checkbox" id="qx12" value="5" <% If instr(qx12,",5,")>0 Then Response.Write("checked") end if%>/></td>
<td>编辑产品</td>
<td><input name="qx12" type="checkbox" id="qx12" value="6" <% If instr(qx12,",6,")>0 Then Response.Write("checked") end if%>/></td>
<td>删除产品</td>
<td><input name="qx12" type="checkbox" id="qx12" value="7" <% If instr(qx12,",7,")>0 Then Response.Write("checked") end if%>/></td>
<td>订单管理</td>
</tr>
</table></td>
</tr>

<tr>
<td colspan="5" bgcolor="#C5E0F3"><table border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="100" class="fontr">下载：</td>
<td><input name="qx13" type="checkbox" id="qx13" value="1" <% If instr(qx13,",1,")>0 Then Response.Write("checked") end if%>/></td>
<td>添加分类</td>
<td><input name="qx13" type="checkbox" id="qx13" value="2" <% If instr(qx13,",2,")>0 Then Response.Write("checked") end if%>/></td>
<td>编辑分类</td>
<td><input name="qx13" type="checkbox" id="qx13" value="3" <% If instr(qx13,",3,")>0 Then Response.Write("checked") end if%>/></td>
<td>删除分类</td>
<td><input name="qx13" type="checkbox" id="qx13" value="4" <% If instr(qx13,",4,")>0 Then Response.Write("checked") end if%>/></td>
<td>添加软件</td>
<td><input name="qx13" type="checkbox" id="qx13" value="5" <% If instr(qx13,",5,")>0 Then Response.Write("checked") end if%>/></td>
<td>编辑软件</td>
<td><input name="qx13" type="checkbox" id="qx13" value="6" <% If instr(qx13,",6,")>0 Then Response.Write("checked") end if%>/></td>
<td>删除软件</td>
<td><input name="qx13" type="checkbox" id="qx13" value="7" <% If instr(qx13,",7,")>0 Then Response.Write("checked") end if%>/></td>
<td>级别</td>
<td><input name="qx13" type="checkbox" id="qx13" value="8" <% If instr(qx13,",8,")>0 Then Response.Write("checked") end if%>/></td>
<td>语言</td>
<td><input name="qx13" type="checkbox" id="qx13" value="9" <% If instr(qx13,",9,")>0 Then Response.Write("checked") end if%>/></td>
<td>运行环境</td>
</tr>
</table></td>
</tr>

<tr>
<td colspan="5" bgcolor="#A7CFED">
<input name="selall" type="checkbox" id="selall" value="1" onclick="sel()"/>
选择所有权限</td>
</tr>


<tr>
<td colspan="5" bgcolor="#C5E0F3"><div id="msg"></div></td>
</tr>
<tr>
<td colspan="5" bgcolor="#C5E0F3"><input name="go" type="submit" class="button_1" id="go" value="提交" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'">
<input name="reset" type="reset" class="button_1" id="reset" value="重置" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'"/></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<script language="javascript">
function sel()
{
var form=document.form1;
var action=event.srcElement.name;
for (var i=0;i<form.elements.length;i++){//遍历表单项 
var e=form.elements[i];;
e.checked=(action=="sel")?(GE("selall").checked):(!e.checked);
}
}
</script>
<SCRIPT language="javascript" event="onkeydown" for="document">
if(event.keyCode==13&&event.srcElement.type!='button'&&event.srcElement.type!='submit'&&event.srcElement.type!='reset'&&event.srcElement.type!='textarea'&&event.srcElement.type!='')
pswc();
</SCRIPT>
<% 
call recordend(rs)
call connend()
call foot() 

end sub

'添加管理员////////////////////////////////////////////////////////////////////////////////
sub aadd()
call chkqx(1,2)
dim admin_name,admin_psw,truename,tel,email,qq
admin_name=getform("admin_name",1,1)
admin_psw=getform("admin_psw",1,1)
truename=getform("truename",1,1)
tel=getform("tel",1,1)
email=getform("email",1,1)
qq=getform("qq",1,1)

if issafestr(admin_name)=false then 
call errs("用户名中含有危险字符")
end if
admin_psw=md5(admin_psw)
call record(rs,"select * from Jw_admin where admin_name='"&admin_name&"'",3)
if rs.eof then 
rs.addnew()
rs("admin_name")=admin_name
rs("admin_psw")=admin_psw
rs("truename")=truename
rs("tel")=tel
rs("email")=email
rs("qq")=qq
rs("ctim")=now()
rs("dgrees")=0
rs.update()
else
call errs("对不起，该用户名已被占用")
end if
call recordend(rs)
call errs(0)
end sub

'资料修改////////////////////////////////////////////////////////////////////////////////
sub infoc()
if int(request.cookies(fmid)("admin_id"))<>int(id) then 
call chkqx(1,4)
end if
dim truename,tel,email,qq
truename=getform("truename",1,1)
tel=getform("tel",1,1)
email=getform("email",1,1)
qq=getform("qq",1,1)
call record(rs,"select * from Jw_admin where id="&id,3)
rs("truename")=truename
rs("tel")=tel
rs("email")=email
rs("qq")=qq
rs("ctim")=now()
rs("dgrees")=0
rs.update()
call recordend(rs)
call errs(0)
end sub
'修改密码////////////////////////////////////////////////////////////////////////////////
sub pswc()
if int(request.cookies(fmid)("admin_id"))<>int(id) then 
call chkqx(1,5)
end if
dim opsw,admin_psw
opsw=getform("opsw",1,1)
admin_psw=getform("admin_psw",1,1)
opsw=md5(opsw)
admin_psw=md5(admin_psw)
call record(rs,"select * from Jw_admin where id="&id,3)
if lcase(opsw)<>lcase(rs("admin_psw")) then 
call errs("旧密码不正确，请重新输入")
else
rs("admin_psw")=lcase(admin_psw)
rs.update()
end if
call recordend(rs)
call errs(0)
end sub
'权限设置////////////////////////////////////////////////////////////////////////////////
sub powerc()
call chkqx(1,6)
dim qx1,qx2,qx3,qx4,qx5,qx6,qx7,qx8,qx9,qx10,qx11,qx12,qx13

qx1=","&replace(Trim(Request.Form("qx1"))," ","")&","
qx2=","&replace(Trim(Request.Form("qx2"))," ","")&","
qx3=","&replace(Trim(Request.Form("qx3"))," ","")&","
qx4=","&replace(Trim(Request.Form("qx4"))," ","")&","
qx5=","&replace(Trim(Request.Form("qx5"))," ","")&","
qx6=","&replace(Trim(Request.Form("qx6"))," ","")&","
qx7=","&replace(Trim(Request.Form("qx7"))," ","")&","
qx8=","&replace(Trim(Request.Form("qx8"))," ","")&","
qx9=","&replace(Trim(Request.Form("qx9"))," ","")&","
qx10=","&replace(Trim(Request.Form("qx10"))," ","")&","
qx11=","&replace(Trim(Request.Form("qx11"))," ","")&","
qx12=","&replace(Trim(Request.Form("qx12"))," ","")&","
qx13=","&replace(Trim(Request.Form("qx13"))," ","")&","

call record(rs,"select * from Jw_admin where id="&id,3)
rs("qx1")=qx1
rs("qx2")=qx2
rs("qx3")=qx3
rs("qx4")=qx4
rs("qx5")=qx5
rs("qx6")=qx6
rs("qx7")=qx7
rs("qx8")=qx8
rs("qx9")=qx9
rs("qx10")=qx10
rs("qx11")=qx11
rs("qx12")=qx12
rs("qx13")=qx13
rs.update()
call recordend(rs)
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'删除/////////////////////////////////////////////////////////////////////////////////////
sub del()
call chkqx(1,3)
dim dpic,j
dim idstr,iid,i
idstr=replace(Trim(Request.Form("idstr"))," ","")
iid=split(idstr,",")
for i=0 to ubound(iid)
conn.execute("delete * from Jw_admin where id="&iid(i))
next
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub
%>
<script language="javascript">
// 用户名
function out_admin_name()
{
var chk=true;
chk=outlen(GE("cadmin_name"),GE("admin_name")," 用户名已经入"," 请输入用户名[5-16]",5,16);
return chk;
}
//密码
function out_admin_psw()
{
var chk=true;
chk=outlen(GE("cadmin_psw"),GE("admin_psw")," 密码已经入"," 请输入密码[6-16]",6,16);
return chk;
}
//验证密码
function out_admin_psw1()
{
var chk=true;
if(GE("admin_psw1").value==""||GE("admin_psw").value!=GE("admin_psw1").value)
{
chk=false;
GE("cadmin_psw1").className="d_err";
GE("cadmin_psw1").innerHTML=err+" 两次输入的密码不一致";
}
else
{
GE("cadmin_psw1").className="d_ok";
GE("cadmin_psw1").innerHTML=ok+" 符合要求";
chk=true;
}
return chk;
}

//旧密码
function out_opsw()
{
var chk=true;
chk=outlen(GE("copsw"),GE("opsw")," 旧密码已经入"," 请输入旧密码[6-16]",6,16);
return chk;
}

function useradd()
{
var chk=true;
if (!out_admin_name()){chk=false;}
if (!out_admin_psw()){chk=false;}
if (!out_admin_psw1()){chk=false;}
if (chk==true){
GE("go").disabled="disabled";
GE("reset").disabled="disabled";

var admin_name=escape(GE("admin_name").value);
var admin_psw=escape(GE("admin_psw").value);
var truename=escape(GE("truename").value);
var tel=escape(GE("tel").value);
var email=escape(GE("email").value);
var qq=escape(GE("qq").value);

var Ajax = new oAjax("?action=aadd",backs);
var arrKey = new Array("admin_name","admin_psw","truename","tel","email","qq");
var arrValue =new Array(admin_name,admin_psw,truename,tel,email,qq);
Ajax.Post(arrKey,arrValue);
GE("msg").innerHTML=loading;
function backs(str)
{
if(str=="0")
{
GE("msg").innerHTML=ok+"&nbsp;&nbsp;操作成功";
window.location.href="?fid=<%= fid %>"
}
else
{
GE("msg").className="d_err";
GE("msg").innerHTML=err+"&nbsp;&nbsp;"+unescape(str);
GE("go").disabled="";
GE("reset").disabled="";
}
}
}
}
//资料修改
function infoc()
{
GE("go").disabled="disabled";
GE("reset").disabled="disabled";

var truename=escape(GE("truename").value);
var tel=escape(GE("tel").value);
var email=escape(GE("email").value);
var qq=escape(GE("qq").value);

var Ajax = new oAjax("?action=infoc&id=<%= id %>",backs);
var arrKey = new Array("truename","tel","email","qq");
var arrValue =new Array(truename,tel,email,qq);
Ajax.Post(arrKey,arrValue);
GE("msg").innerHTML=loading;
function backs(str)
{
if(str=="0")
{
GE("msg").innerHTML=ok+"&nbsp;&nbsp;操作成功";
}
else
{
GE("msg").className="d_err";
GE("msg").innerHTML=err+"&nbsp;&nbsp;"+unescape(str);
GE("go").disabled="";
GE("reset").disabled="";
}
}
}

//密码修改
function pswc()
{
var chk=true;
if (!out_opsw()){chk=false;}
if (!out_admin_psw()){chk=false;}
if (!out_admin_psw1()){chk=false;}
if (chk==true){
GE("go").disabled="disabled";
GE("reset").disabled="disabled";

//GE("form1").action="?action=pswc&id=<%= id %>";
//GE("form1").submit();

var opsw=escape(GE("opsw").value);
var admin_psw=escape(GE("admin_psw").value);

var Ajax = new oAjax("?action=pswc&id=<%= id %>",backs);
var arrKey = new Array("opsw","admin_psw");
var arrValue =new Array(opsw,admin_psw);
Ajax.Post(arrKey,arrValue);
GE("msg").innerHTML=loading;
function backs(str)
{
if(str=="0")
{
GE("msg").innerHTML=ok+"&nbsp;&nbsp;操作成功";
}
else
{
GE("msg").className="d_err";
GE("msg").innerHTML=err+"&nbsp;&nbsp;"+unescape(str);
GE("go").disabled="";
GE("reset").disabled="";
}
}
}
}
</script>