📄 browsefiles.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="32%" bgcolor="#C4D1F4"><font size="2">标题&amp;发表时间</font></td>
    <td width="49%"><font size="2">详细内容</font></td>
    <td width="11%"><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"><a href="showFileInfo.Asp?ID=<%=Rs("fileKey")%>&action=view" target="_blank"> 
        <% dim content
	content=rs("filecontent")
	if len(content)<30 then 
	%>
        <%=content  %> 
        <%  
	else
	%>
        <%=mid(content,1,28)&"..."%> 
        <%  	
	end if   	 
	 %>
        </a></font></div></td>
    <td align="center" valign="middle" bgcolor="#FFFFFF"><font size="2"><a href="#" onClick="MM_openBrWindow('showFileInfo.Asp?ID=<%=Rs("fileKey")%>&action=view','法规建议','scrollbars=yes,width=700,height=560')">浏览</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="1"><%= page %> /<%= pagenumber %>页, <%= maxcountperpage %>条记录/每页&nbsp; 
      <!--上页-->
      <%if Page>1 then%>
      <%="<a href=browseFiles.asp?pp=" &Page-1 &">上页</a>"%> 
      <%end if%>
      <!--下页-->
      <% if allcount>page*maxcountperpage then %>
      <%="<a href=browseFiles.asp?pp=" & Page+1 & ">下页</a>"%> 
      <%end if%>
      </font>&nbsp;&nbsp;&nbsp;</td>
</table>
</body>
</html>
⌨️ 快捷键说明

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