📄 adminmanage.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<%option explicit%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="cheak.asp"-->
<html>
<head>
<title>斑竹设定</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="images/new.css">
</head>
<body bgcolor="#FFFFFF">
<p> </p>
<p> </p>
<table width="95%" border="1" cellspacing="0" cellpadding="4" align="center" bordercolorlight="#333333" bordercolordark="#FFFFFF">
<tr bgcolor="#F7FDF8">
<td align="center"><b>当前栏目</b></td>
<td align="center"><b>斑竹</b></td>
</tr>
<%dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from Aclass"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "还没有任何栏目"
else
do while not rs.eof
%>
<form method="POST" action="classmana3.asp" align="center" >
<tr>
<td align="center" width="25%"> <% =rs("class")%> </td>
<td>
<input type="hidden" name="classid" value=<%=rs("classID")%>>
<%if len(rs("manage1"))<>0 then%>
<input type="text" name="manage1" value="<% =rs("manage1")%>" size="10" class="myin1">
<%else%>
<input type="text" name="manage1" value="无" size="10" class="myin1">
<%end if%> <%if len(rs("manage2"))<>0 then%>
<input type="text" name="manage2" value="<% =rs("manage2")%>" size="10" class="myin1">
<%else%>
<input type="text" name="manage2" value="无" size="10" class="myin1">
<%end if%> <%if len(rs("manage3"))<>0 then%>
<input type="text" name="manage3" value="<% =rs("manage3")%>" size="10" class="myin1">
<%else%>
<input type="text" name="manage3" value="无" size="10" class="myin1">
<%end if%> <%if len(rs("manage4"))<>0 then%>
<input type="text" name="manage4" value="<% =rs("manage4")%>" size="10" class="myin1">
<%else%>
<input type="text" name="manage4" value="无" size="10" class="myin1">
<%end if%>
<input type="submit" name="B4" value="增加斑竹" >
</td>
</tr>
</form>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
<p align="center"> </p>
<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>填入所加斑竹的名称，<u>必须是系统注册的高级用户</u>；删除斑竹，不能留下空格，应填入“无”。<br>
管理员自动成为所有专栏的斑竹，无需另行设定。 </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -