⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 zhibiaoguan.asp

📁 一款用ASP写的办公自动化软件
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=data/conn.asp-->
<!--#include file=connfig.asp-->
<!--#include file=inc/yan.asp-->
<% 
call case9

if request("del")<>"" then 
call del
end if
function del
sql2="delete from zhibiao where id="&request("del")
conn.Execute(sql2)
end function


set rs=server.CreateObject("adodb.recordset")
sql="select * from zhibiao"
rs.open sql,conn,1,1 
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
a:link {
	color: #0000FF;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #0000FF;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
}
body,td,th {
	font-size: 12px;
}
body {
	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/folder.gif" width="16" height="16">指标情况</span></td>
  </tr>
  <tr>
    <td><table width="554" height="91" border="0" align="center" cellspacing="1" bgcolor="#336699">
      <tr>
        <td width="222" height="28" background="images/tile_sub.gif"><div align="center" class="style2 style4">标题</div></td>
        <td width="134" background="images/tile_sub.gif"><div align="center" class="style2 style4">发起人</div></td>
        <td width="99" background="images/tile_sub.gif"><div align="center" class="style2 style4">日期</div></td>
        <td colspan="2" background="images/tile_sub.gif"><div align="center" class="style2 style4">管理</div></td>
      </tr>
      <%
  if not rs.eof then 
  tel=rs.recordcount
  shum=1
  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="27" bgcolor="#FFFFFF"><span class="style3">→</span><a href="#" onClick="window.open('zhibiaoxian.asp?id=<%=rs("id")%>','','scrollbars=yes,width=510,height=500')"><%=rs("title") %></a></td>
        <td bgcolor="#FFFFFF"><div align="center"><%=rs("name") %></div></td>
        <td bgcolor="#FFFFFF"><div align="center"><%=rs("time") %></div></td>
        <td width="39" bgcolor="#FFFFFF"><div align="center"><a href="zhibiaoup.asp?id=<%=rs("id")%>">修改</a></div></td>
        <td width="38" bgcolor="#FFFFFF"><div align="center"><a href="zhibiaoguan.asp?del=<%=rs("id")%>">删除</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="32" colspan="5">&nbsp;
            <div align="right">共 <%= maxpage %> 页　　当前页：<%= requestpage %> 　
		

                       <a href=zhibiaoguan.asp?p=<%=requestpage-1%>>上一页</a>                  <a href=zhibiaoguan.asp?p=<%=requestpage+1%>>下一页</a>              
             
          </div></td>
      </tr>
    </table></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -