📄 admin_specialman.asp
字号:
<%
Option Explicit
Response.buffer=true
const purviewlevel=3
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp"-->
<!--#include file="admin_Function.asp" -->
<%
dim rsspe,errmsg
set rsspe=server.createobject("ADODB.Recordset")
rsspe.open"select * from special order by specialid desc",conn,1,1
if rsspe.eof or rsspe.bof then
errmsg=errmsg + "<br><br><li>还没有专题，请添加新专题！</li>"
errmsg=errmsg + "<br><br><li>你可以：［<a href='admin_SpecialAdd.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" cellspacing="0" cellpadding="0">
<tr>
<td align="center" class="txt1">欢迎来到专题管理面板</td>
</tr>
<tr>
<td align="center" class="txt05">［<a href="admin_SpecialAdd.asp">添加新专题</a>］</td>
</tr>
<tr>
<td><table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#F5F8F5">
<tr align="center">
<td class="txt1">ID号</td>
<td class="txt1">专题名称</td>
<td class="txt1">添加时间</td>
<td class="txt1">操作</td>
</tr><%do while not rsspe.eof%>
<tr align="center">
<td class="txt05"><%=rsspe("specialid")%></td>
<td class="txt05"><%=rsspe("special")%></td>
<td class="txt05"><%=rsspe("specialtime")%> </td>
<td class="txt05"><a href="admin_SpecialMod.asp?specialid=<%=rsspe("specialid")%>">修改</a><%if session("adminpurview")<=2 then%> | <a href="admin_SpecialDel.asp?specialid=<%=rsspe("specialid")%>&spedel=del" onclick="return checkdel();">删除</a>
<input name="spedel" type="hidden" id="spedel" value="del"><%end if%></td>
</tr>
<%
rsspe.movenext
loop
rsspe.close
set rsspe=nothing
end if
call closeconn()
%>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -