📄 admin_webclassman.asp
字号:
<%
Option Explicit
Response.buffer=true
const purviewlevel=1
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp"-->
<!--#include file="admin_Function.asp" -->
<%
dim rsweb,errmsg
set rsweb=server.createobject("ADODB.Recordset")
rsweb.open"select * from webclass order by webclassid desc",conn,1,1
if rsweb.eof or rsweb.bof then
errmsg=errmsg + "<br><br><li>暂时还没有任何频道可管理！</li>"
errmsg=errmsg + "<br><br><li>你可以：［<a href='admin_WebClassAdd.asp'>添加新频道</a>］</li>"
errmsg=errmsg + "<br><br>"
call closeconn()
call ShowErrMsg()
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="Style.css" rel="stylesheet" type="text/css">
<script language=javascript>
function checkdel()
{
if(confirm("是否要删除该专题？一旦删除，将不能恢复！"))
return true;
else
return false;
}
</script>
</head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="border">
<tr>
<td align="center" class="txt1">频道管理面板</td>
</tr>
<tr>
<td align="center" class="txt05">［<a href="admin_WebClassAdd.asp">添加新频道</a>］</td>
</tr>
<tr>
<td><table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="F5F8F5">
<tr align="center" class="txt1">
<td>频道ID</td>
<td>频道名称</td>
<td>链接地址</td>
<td>操作</td>
</tr>
<%do while not rsweb.eof%>
<tr align="center" class="txt05">
<td><%=rsweb("webclassid")%></td>
<td><%=rsweb("webclass")%></td>
<td><%=rsweb("webclassurl")%></td>
<td><a href="admin_WebClassMod.asp?webclassid=<%=rsweb("webclassid")%>">修改</a> | <a href="admin_WebClassDel.asp?webclassid=<%=rsweb("webclassid")%>&webclassdel=del" onclick="return checkdel();">删除</a>
<input name="webclassdel" type="hidden" id="webclassdel" value="del"></td>
</tr>
<%rsweb.movenext
loop%>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<%end if
rsweb.close
call closeconn()
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -