📄 caigou.asp
字号:
<!--#include file=data/conn.asp-->
<!--#include file=connfig.asp-->
<!--#include file=inc/yan.asp-->
<%
'判断用户权限
call case6
if request("del")<>"" and (ps("caigoushen")=1 or ps("chaoji")=1) then
call del
end if
'删除采购信息
function del
sql2="delete from caigou where id="&request("del")
conn.Execute(sql2)
end function
if request("caigoushen")<>"" and (ps("caigoushen")=1 or ps("chaoji")=1) then
call up
end if
'修改采购信息
function up
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from caigou where id="&request("id")
rs1.open sql1,conn,1,3
rs1("shen")=request("caigoushen")
rs1("pname")=session("admin_name")
rs1.update
rs1.close
end function
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from caigou 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-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="508" border="0" align="center" cellspacing="1" bgcolor="#336699" style="border:ta">
<tr>
<td width="153" height="31" background="images/tile_sub.gif"><div align="center" class="style4">标题</div></td>
<td width="54" background="images/tile_sub.gif"><div align="center" class="style4">发文人</div></td>
<td width="121" background="images/tile_sub.gif"><div align="center" class="style4">日期</div></td>
<td colspan="3" background="images/tile_sub.gif"><div align="center" class="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('caigouxian1.asp?id=<%=rs("id")%>','','scrollbars=yes,width=510,height=500')"><%=rs("title")%></a></td>
<td height="26" bgcolor="#FFFFFF" ><%=rs("name")%></td>
<td bgcolor="#FFFFFF" ><%=rs("time")%></td>
<td width="57" bgcolor="#FFFFFF" >
<div align="center">
<%if rs("shen")=1 then%>
已审核
<% End If %>
<%if rs("shen")=0 then%>
<a href=caigou.asp?caigoushen=1&id=<%=rs("id")%>>审核</a>
<% End If %>
</div></td>
<td width="47" bgcolor="#FFFFFF" >
<div align="center">
<%if rs("shen")=1 then%>
修改
<% Else %>
<a href=cupdate.asp?id=<%=rs("id")%>>修改</a>
<% End If %>
</div></td>
<td width="50" bgcolor="#FFFFFF" ><div align="center"><a href=caigou.asp?del=<%=rs("id")%>&p=<%=requestpage%>>删除</a></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="6"><div align="right">
共 <%= maxpage %> 页 当前页：<%= requestpage %>
<a href=caigou.asp?p=<%=requestpage+1%>>上一页</a> <a href=caigou.asp?p=<%=requestpage+1%>>下一页</a>
</div></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -