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

📄 managerinfo.asp

📁 为我们公司使用的oa系统
💻 ASP
字号:
🔍 
<!--#include file="conn.asp"-->
<!--#include file="lib/incjs.asp"-->
<!--#include file="lib/UBB_news.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>合肥法制办后台管理系统！</title>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
<link href="../Style/main3.css" rel="stylesheet" type="text/css">
</head>

<body>
<% 
dim rs 
dim page
dim allcount
dim pagenumber
dim i
dim thedate
const maxcountperpage = 10

if not isempty(request("pp")) then
      page=cint(request("pp"))
   else
      page=1
end if
if page<1 then
   page=1
end if

sql="select * from fileInfo  order by filetime desc"
set rs=cnSQL.execute(sql)
if not rs.eof then rs.movefirst
allcount = 0
do while not rs.eof
   allcount =  allcount +1
   rs.movenext
loop
if (allcount mod maxcountperpage)  =  0 then
    pagenumber = (allcount \ maxcountperpage)-1
else
    pagenumber = (allcount \ maxcountperpage)+ 1
end if
if not (rs.eof and rs.bof) then rs.movefirst

for i = 1 to ((page -1) * maxcountperpage) 
    if not rs.eof then rs.movenext
next 
%>

<table width="94%" border="0" align="center" cellpadding="8" cellspacing="1" bgcolor="#7B9AE7">
  <tr align="center"> 
    <td colspan="4" class="font"><a name="newsmanager" class="font4"><font color="#FFFFFF">站台资料管理</font></a></td>
  </tr>
  <tr bgcolor="#C4D1F4" align="center"> 
    <td width="8%"><font size="2">编号</font></td>
    <td width="52%" bgcolor="#C4D1F4"><font size="2">标题&amp;发表时间</font></td>
    <td width="16%"><font size="2">添加者</font></td>
    <td width="24%"><font size="2">操作</font></td>
  </tr>
  <%
		dim icount
		if allcount>maxcountperpage then
           icount=maxcountperpage
		else		      		
		   icount=allcount
		end if
		
		for i =  1 to icount
		  if not rs.eof then %>
  <tr> 
    <td bgcolor="#FFFFFF" align="center"><font size="2"><%= rs("filekey") %></font></td>
    <td bgcolor="#FFFFFF"><div align="center"><font size="2"><%= rs("filetitle") %> 
        <font color="#FF0000"> [<%=rs("Filetime") %>]</font></font></div></td>
    <td bgcolor="#FFFFFF"><div align="center"><font size="2"><%= rs("addfileuser") %></font></div></td>
    <td align="center" valign="middle" bgcolor="#FFFFFF"><font size="2"><a href="#" onClick="MM_openBrWindow('EditFile.Asp?ID=<%=rs("filekey") %>','法规建议','scrollbars=yes,width=700,height=410')">编辑</a> 
      <a href="EditFileResult.asp?ID=<%=Rs("fileKey")%>&action=del">删除</a></font></td>
  </tr>
  <% end if 
		  if not rs.eof then rs.movenext
		  next 
		  %>
</table>
<table width="94%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <% if page>0 and pagenumber=-1  then pagenumber=0 %>
    <td align="right"><font size="2"><%= page %> /<%= pagenumber %>页, <%= maxcountperpage %>条记录/每页&nbsp; 
      <!--上页-->
      <%if Page>1 then%>
      <%="<a href=managerinfo.asp?pp=" &Page-1 &">上页</a>"%> 
      <%end if%>
      <!--下页-->
      <% if allcount>page*maxcountperpage then %>
      <%="<a href=managerinfo.asp?pp=" & Page+1 & ">下页</a>"%> 
      <%end if%>
      &nbsp;</font>&nbsp;&nbsp;</td>
</table>
</body>
</html>

⌨️ 快捷键说明

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