📄 caigouguan.asp
字号:
<!--#include file=data/conn.asp-->
<!--#include file=connfig.asp-->
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from caigou where name='"&session("admin_name")&"' 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;
}
body {
background-image: url();
background-color: #ffffff;
}
.style2 {color: #FFFFFF}
.style3 {color: #FF0000}
.style4 {color: #000000}
.style6 {font-size: 16px;
color: #FFFFFF;
font-family: "黑体";
}
-->
</style></head>
<body>
<table width="300" border="0" align="center" cellspacing="0">
<tr>
<td height="31" bgcolor="BC82D6"><span class="style6"> <img src="images/caigou.gif" width="20" height="20">采购计划</span></td>
</tr>
<tr>
<td><table width="454" border="0" align="center" cellspacing="1" bgcolor="#336699" style="border:ta">
<tr>
<td width="227" height="31" background="images/tile_sub.gif"><div align="center" class="style2 style4">发文标题</div></td>
<td width="69" background="images/tile_sub.gif"><div align="center" class="style2 style4">日期</div></td>
<td background="images/tile_sub.gif"><div align="center" class="style2 style4">管理</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="style3">→</span><a href="#" onClick="window.open('caigouxian.asp?id=<%=rs("id")%>','','scrollbars=yes,width=510,height=500')"><%=rs("title")%></a></td>
<td bgcolor="#FFFFFF" ><div align="center"><%=rs("time")%></div></td>
<td bgcolor="#FFFFFF" >
<div align="center">
<div align="center">
<%if rs("shen")=1 then%>
已审核
<% End If %>
<%if rs("shen")=0 then%>
未审核
<% End If %>
</div>
</div>
<div align="center"></div>
<div align="center"></div>
<div align="center"></div></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
else
response.Write("暂无信息")
end if
rs.close
%>
<tr bgcolor="#F3F3F3">
<td height="35" colspan="3"><div align="right">
共 <%= maxpage %> 页 当前页：<%= requestpage %>
<a href=caigou.asp?p=<%=i-1%>></a> <a href=caigouguan.asp?p=<%=requestpage-1%>>上一页</a> <a href=caigouguan.asp?p=<%=requestpage+1%>>下一页</a>
</div></td>
</tr>
</table></td>
</tr>
</table>
<div align="center">
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -