📄 sys_kind_master.asp
字号:
<!--插入html头部分以及数据库接口-->
<!--#include file="in_conn.asp"-->
<body>
<!--插入网站置顶-->
<% if u_name="" then
Response.Redirect "log_err.asp"
else
%>
<!--#include file="in_topmb.asp"-->
<% end if %>
<%
if u_power<2 OR u_name<>DEF_sysadm then
Response.Redirect "resp.asp?cmd=adm_bigpower"
end if
%>
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdbar"><tr>
<td width="100%" height="100%">
<a href="index.asp">[首页]</a>-<a href="sys.asp">后台维护</a>-<font class="ft1">版面编辑管理</font>
</td>
</tr></table>
<table align="center" width="700" height="101" border="0" cellspacing="0" cellpadding="6" class="rdd">
<tr>
<td width="150" valign="top" class="rdk2">
<!--插入左部分-->
<!--#include file="in_sys_left.asp"-->
</td>
<td valign="top">
<table align="center" width="100%" height="25" border="0" cellspacing="0" cellpadding="0" class="rdd">
<tr>
<th width="80" class="rdr" style="background-color:<% =bg1 %>">版面名称</th>
<th width="130" class="rdr" style="background-color:<% =bg1 %>">版主一</th>
<th width="130" class="rdr" style="background-color:<% =bg1 %>">版主二</th>
<th width="130" class="rdr" style="background-color:<% =bg1 %>">版主三</th>
<th style="background-color:<% =bg1 %>">操作</th>
</tr>
<%
dim rs2
set rs2=server.CreateObject("adodb.recordset")
sqlstr="SELECT name,ID FROM tblmates WHERE power>1"
rs2.open sqlstr,conn,1,1
dim vvsele
vvsele="smaster"
'列出所有版面分类
sqlstr="SELECT * FROM tblkind ORDER BY kd_class DESC"
rs.open sqlstr,conn,1,1
FOR i=1 TO rs.RecordCount
%>
<tr>
<form name='fmkind_<% =rs("kd_ID") %>' action="sys_kind_master_go.asp" method="post">
<td width="80" align="center" class="rdd">
<% =rs("kd_name") %>
<input type="hidden" name="hidKID" value='<% =rs("kd_ID") %>'>
</td>
<%
For i2=1 to 3
rs2.MoveFirst
%>
<td width="130" class="rdd" align="center">
<select name=<% =vvsele&i2 %>>
<option value=''>----请选择----</option>
<%
for i3=1 to rs2.RecordCount
if rs2("ID")=rs("masterID_"&i2) then
Response.Write "<option value='"&rs2("ID")&"' selected>"&rs2("name")&"</option>"
else
Response.Write "<option value='"&rs2("ID")&"'>"&rs2("name")&"</option>"
end if
rs2.MoveNext
next
%>
</select>
</td>
<%
Next
%>
<td align="center" class="rdd">
<input type="button" name="btn_edit" value="修改" class="an" onClick="javascript:this.disabled=true;submit();">
</td>
</form>
</tr>
<%
rs.MoveNext
NEXT
rs.close
rs2.close
set rs2=nothing
%>
</table>
<br>
<font color="red"><b>**版主的候选人必须是已被任命的<u>班级管理员</u>，如果想设置普通成员为版主，请先将其任命为<u>班级管理员。</u></b></font>(查看成员资料的时候可以看到[任命为管理员]选项)
</td>
</tr>
</table>
<!--插入在线统计-->
<!--#include file="in_online.asp"-->
<!--插入网站置底-->
<!--#include file="in_bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -