📄 piguan.asp
字号:
<!--#include file=data/conn.asp-->
<!--#include file=connfig.asp-->
<!--#include file=inc/yan.asp-->
<%
call case1
if request("del")<>"" and (ps("shenhe")=1 or ps("chaoji")=1) then
call del
end if
function del
sql2="delete from fajian where id="&request("del")
conn.Execute(sql2)
end function
if request("shen")<>"" and (ps("shenhe")=1 or ps("chaoji")=1) then
call up
end if
function up
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from fajian where id="&request("id")
rs1.open sql1,conn,1,3
rs1("shen")=request("shen")
rs1("sname")=session("admin_name")
rs1.update
rs1.close
end function
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from fajian order by time desc"
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
-->
</style>
<link href="table.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
a:link {
color: #0000FF;
text-decoration: none;
}
a:visited {
color: #0000FF;
text-decoration: none;
}
a:hover {
color: #000000;
text-decoration: none;
}
a:active {
text-decoration: none;
}
.style2 {color: #FFFFFF}
.style4 {color: #FF0000}
.style5 {color: #000000}
.style7 {
color: #FFFFFF;
font-size: 16px;
font-family: "黑体";
}
-->
</style>
</head>
<body>
<table width="300" border="0" align="center" cellspacing="0">
<tr>
<td height="31" valign="middle" bgcolor="BC82D6"> <img src="images/isexists.gif" width="16" height="16"> <span class="style7">批示管理</span></td>
</tr>
<tr>
<td><table width="508" border="0" align="center" cellspacing="1" bgcolor="#336699" style="border:ta">
<tr bgcolor="#FFFF00">
<td width="171" height="31" background="images/tile_sub.gif"><div align="center" class="style5">发文标题</div></td>
<td width="52" background="images/tile_sub.gif"><div align="center" class="style5">发文人</div></td>
<td width="105" background="images/tile_sub.gif" bgcolor="#FFFFFF"><div align="center" class="style5">日期</div></td>
<td colspan="3" background="images/tile_sub.gif"><div align="center" class="style5">管理</div></td>
</tr>
<%
if not rs.eof then
tel=rs.recordcount
shum=15
rs.pagesize=shum
maxpage=rs.pagecount
requestpage=clng(request("p"))
if requestpage="" or requestpage=0 then
requestpage=1
end if
if requestpage>maxpage then
requestpage=maxpage
end if
if not requestpage=1 then
rs.move (requestpage-1)*rs.pagesize
end if
for i=1 to rs.pagesize and not rs.eof
%>
<tr >
<td height="26" bgcolor="#FFFFFF"><span class="style4">→</span><a href="#" onClick="window.open('faxian.asp?id=<%=rs("id")%>','','scrollbars=yes,width=510,height=500')"><%=rs("title")%></a></td>
<td height="26" bgcolor="#FFFFFF" ><div align="center"><%=rs("name")%></div></td>
<td bgcolor="#FFFFFF" ><div align="center"><%=rs("time")%></div></td>
<td width="57" bgcolor="#FFFFFF" >
<div align="center"><span class="style2"></span>
<%if rs("shen")=1 then%>
已审核
<% End If %>
<%if rs("shen")=0 then%>
<a href=piguan.asp?shen=1&id=<%=rs("id")%> onClick="return confirm('确定审核吗？')">审核</a>
<% End If %>
</div></td>
<td width="47" bgcolor="#FFFFFF" >
<div align="center">
<%if rs("shen")=1 then%>
修改
<% Else %>
<a href=update.asp?id=<%=rs("id")%>>修改</a>
<% End If %>
</div></td>
<% If ps("chaoji")=1 Then %>
<td width="50" bgcolor="#FFFFFF" ><div align="center"><a href=piguan.asp?del=<%=rs("id")%>&p=<%=requestpage%>>删除</a></div></td>
<% End If %>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
else
response.Write("暂无信息")
end if
rs.close
%>
<tr bgcolor="#F3F3F3">
<td height="35" colspan="6"><div align="right">
<div align="right">
共 <%= maxpage %> 页 当前页：<%= requestpage %> <a href=piguan.asp?p=<%=requestpage-1%>>上一页</a> <a href=piguan.asp?p=<%=requestpage+1%>>下一页</a>
</div>
</div></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -