📄 admin_index.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="md5.inc" -->
<!--#include file="checkstr.asp" -->
<!--#include file="checkadmin.asp" -->
<!--#include file="config.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留溪网上办公平台</title>
<!--#include file="css.css" -->
</head>
<%doing=Trim(Request.QueryString("doing"))
doing=checkstr(doing)%>
<%'删除一条信息
if doing="dele" then
deleid=Int(Request.QueryString("deleid"))
str="select 附件数,附件名 from woa where id="&deleid&" and 常用=0 and 成批删除=1"
set rs=conn.execute(str)
if not rs.eof then
if rs("附件数")>0 then
fj_name=rs("附件名")
folder_name=left(fj_name,19)
folder_name=server.mappath(""&folder_name&"")
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.folderexists(folder_name) then
fso.DeleteFolder(folder_name)
end if
end if
str="delete from woa where id="&deleid&""
conn.execute(str)
end if
rs.close
end if
%>
<body background="images/index_bg.gif" topmargin="0">
<table width="760" height="101" border="0" align="center" cellpadding="0" cellspacing="0" class="tabletblg">
<tr>
<td><img src="images/top.jpg" width="758" height="100"></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td height="25" background="images/menu-d-gg.gif" class="fontsize12"><!--#include file="admin_menu.asp" --></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td background="images/bocolor01.gif"><table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize10"> </td>
</tr>
</table>
<%sortkey=Int(Request.QueryString("sortkey"))
if sortkey=0 then str=" order by id desc"
if sortkey=1 then str=" order by 标题,id desc"
if sortkey=2 then str=" order by 标题 desc,id desc"
if sortkey=3 then str=" order by 发文者,id desc"
if sortkey=4 then str=" order by 发文者 desc,id desc"
if sortkey=5 then str=" order by 发文日期,发文时间,id desc"
if sortkey=6 then str=" order by 发文日期 desc,发文时间 desc,id desc"
if sortkey=7 then str=" order by 附件数,id desc"
if sortkey=8 then str=" order by 附件数 desc,id desc"
str="select * from woa"&str
rs.open str,conn,3,2
rs.pagesize=glyxxs
page=int(Request.QueryString("page"))
if page=0 or page="" then page=1 end if
if page<0 then page=1 end if
if page>rs.pagecount then page=rs.pagecount end if%>
<%if rs.eof then%>
<table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff">
<tr>
<td height="40"><div align="center" class="fontsize14"><font color="#FF0000"><strong>现在没有任何信息。</strong></font></div></td>
</tr>
</table>
<%else%>
<table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff">
<tr>
<td height="30"><div align="center" class="fontsize14">共有信息<font color="#FF0000"><strong><%=rs.recordcount%></strong></font>个 每页<font color="#FF0000"><strong><%=glyxxs%></strong></font>个 计有<font color="#FF0000"><strong><%=rs.pagecount%></strong></font>页 <a href=admin_index.asp?page=1&sortkey=<%=sortkey%> class="fontsize14wu">首页</a> <a href=admin_index.asp?page=<%=page-5%>&sortkey=<%=sortkey%> class="fontsize14wu">前五页</a> <a href=admin_index.asp?page=<%=page-1%>&sortkey=<%=sortkey%> class="fontsize14wu">前一页</a> 第<font color="#FF0000"><strong><%=page%></strong></font>页 <a href=admin_index.asp?page=<%=page+1%>&sortkey=<%=sortkey%> class="fontsize14wu">后一页</a> <a href=admin_index.asp?page=<%=page+5%>&sortkey=<%=sortkey%> class="fontsize14wu">后五页</a> <a href=admin_index.asp?page=<%=rs.pagecount%>&sortkey=<%=sortkey%> class="fontsize14wu">尾页</a></div></td>
</tr>
</table>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="740" border="1" align="center" cellpadding="0" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff">
<tr class="fontsize14">
<td width="450" height="30" background="images/bocolor02.gif">
<div align="center" class="fontsize12"><strong><a href=admin_index.asp?sortkey=<%if sortkey<>1 then response.write "1" else response.write "2" end if%> class="fontsize12wu">标 题</a></strong></div></td>
<td width="50" background="images/bocolor02.gif"> <div align="center" class="fontsize12"><strong><a href=admin_index.asp?sortkey=<%if sortkey<>3 then response.write "3" else response.write "4" end if%> class="fontsize12wu">发文人</a></strong></div></td>
<td width="140" background="images/bocolor02.gif"> <div align="center" class="fontsize12"><strong><a href=admin_index.asp?sortkey=<%if sortkey<>5 then response.write "5" else response.write "6" end if%> class="fontsize12wu">发文时间</a></strong></div></td>
<td width="50" background="images/bocolor02.gif"><div align="center" class="fontsize12"><strong>操作</strong></div></td>
<td width="50" background="images/bocolor02.gif"> <div align="center" class="fontsize12"><strong><a href=admin_index.asp?sortkey=<%if sortkey<>7 then response.write "7" else response.write "8" end if%> class="fontsize12wu">附件数</a></strong></div></td>
</tr>
<%rs.absolutepage=page
for n=1 to rs.pagesize%>
<tr>
<td height="20" class="fontsize12h20"> <a href=admin_disp.asp?dispid=<%=rs("id")%>&page=<%=page%>&sortkey=<%=sortkey%> class="fontsize12wu"><%=left(rs("标题"),35)%></a></td>
<td class="fontsize12h20"> <div align="center"><%=rs("发文者")%></div></td>
<td class="fontsize12h20"> <div align="center"><%=rs("发文日期")&" "&rs("发文时间")%></div></td>
<td class="fontsize12h20"><div align="center">
<p class="fontsize12h20wu"><a href="admin_index.asp?doing=dele&deleid=<%=rs("id")%>&sortkey=<%=sortkey%>&page=<%=page%>" class="fontsize12h20wu">删除</a></p>
</div></td>
<td class="fontsize12h20"> <div align="center"><%=rs("附件数")%></div></td>
</tr>
<%rs.movenext
if rs.eof then exit for
next%>
</table>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff">
<tr>
<td height="30"><div align="center" class="fontsize14">共有信息<font color="#FF0000"><strong><%=rs.recordcount%></strong></font>个 每页<font color="#FF0000"><strong><%=glyxxs%></strong></font>个 计有<font color="#FF0000"><strong><%=rs.pagecount%></strong></font>页 <a href=admin_index.asp?page=1&sortkey=<%=sortkey%> class="fontsize14wu">首页</a> <a href=admin_index.asp?page=<%=page-5%>&sortkey=<%=sortkey%> class="fontsize14wu">前五页</a> <a href=admin_index.asp?page=<%=page-1%>&sortkey=<%=sortkey%> class="fontsize14wu">前一页</a> 第<font color="#FF0000"><strong><%=page%></strong></font>页 <a href=admin_index.asp?page=<%=page+1%>&sortkey=<%=sortkey%> class="fontsize14wu">后一页</a> <a href=admin_index.asp?page=<%=page+5%>&sortkey=<%=sortkey%> class="fontsize14wu">后五页</a> <a href=admin_index.asp?page=<%=rs.pagecount%>&sortkey=<%=sortkey%> class="fontsize14wu">尾页</a></div></td>
</tr>
</table>
<%end if%>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize10"> </td>
</tr>
</table> </td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelr">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tabletblg">
<tr>
<td background="images/bocolor02.gif">
<!--#include file="bottom.asp" --></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -