管理文件

<!--
/*---------------------------------------------------- */
/* 作者:谌忠辉                                        */
/* 时间:2004-04-28                                    */
/* 功能:软件管理                                  */
/* ----------------------------------------------------*/
-->
<!--#include file="../PassYz.asp"-->
<!--#include file="../Connection.asp"-->
<!--#include file="../inc/Md5encrypt.asp"-->
<!--#include file="../Inc/FunPublic.asp"-->
<html><head>
<link rel="stylesheet" type="text/css" href="../css/Forum.css">
</head>

<body bgcolor="#F7F7FF" topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0">
<%dim sql
 dim admin_flag
 admin_flag="42E"
 yh=request.Cookies("login")("yh")
 yhqx=request.Cookies("login")("qx")
 if (yh="" or instr(yhqx,admin_flag)=0) then
  Errmsg=Errmsg+"您没有管理本页面的权限或者登陆超时,请向管理员申请权限或者重新登陆!!"
  call Error(Errmsg,"",0)
    else
 %>
<table height="100%" cellspacing="0" cellpadding="0" width="100%" bgcolor="#f1f4f9" border="1" id="table1" bordercolor="#7C88B6" style="border-collapse: collapse">
 <tr align="middle">
  <td valign="top">
   <table border="1" width="100%" id="table4" height="30" class="table">  
    <form method="POST" action="">

    <tr>
     <td width="90">
     &nbsp;<img border="0" src="../Images/t_but.jpg" width="12" height="12">
     模块名称:</td>
     <td width="140">
     <input type="text" name="SoftName" size="20" class="input"></td>
     <td width="72">
     <input type="submit" value="查 询" name="B1" class="button"></td>
     <td> </td>
    </tr></form>
   </table>
  
  <table class="xpTable" id="table2" cellspacing="0" cellpadding="2" width="764" bgcolor="#e4e9f3" altrowcolor="oldlace" borderstyle="0">
   <thead>
    <tr align="middle">
     <td width="49" height="23">编号</td>
     <td width="167">模块名称</td>
     <td width="88">录入员</td>
     <td width="93">录入时间</td>
     <td width="147" colspan="2">操 作</td>
    </tr>
   </thead>
   <% Sql="select SoftName,SoftInName,SoftInTime,ID,SoftUrl,SoftFile from SoftName where (1=1) and SoftLx=0"
      Name=checkStr(Request.Form("SoftName"))
      If trim(Name)<>"" then sql=sql & "and SoftName like '%" & trim(Name) & "%'"
               sql=sql & " order by SoftInTime asc"                                                                                                                                                                                                                              
      Set Rs=Conn.doexecute(Sql)
               If (Rs.RecordCount=0) Then
             %>
   <tr align="middle">
    <td class="boder" height="26" colspan="6" width="756">该栏目还没有信息!!</td>
   </tr>
   <%
               else
         Rs.pagesize=14      '每页显示的行数                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
                  total=Rs.pagecount   '总页数                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
                  dim currentpage                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            
                  currentpage=Request("page")                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
                  if currentpage="" then currentpage=1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         
                  if not isNumeric(currentpage) then  '判断是否为数字                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
                     currentpage=1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
                   elseif CInt(currentpage)>total then                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
                     currentpage=total                    '大于总页数时,将总页数勿给变量                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
                  end if                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
                  currentpage=CInt(currentpage)    '字符转换为数字                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
                  Rs.AbsolutePage =currentpage  '指标相对於第一笔的位置                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
                  RowCount =Rs.pagesize                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
                  If Not Rs.Eof AND RowCount>0 Then                                                                                                                                                                                                                                               
                  Do While Not Rs.Eof AND RowCount>0
               %>
   <tr align="middle">
    <td class="boder1" height="25"><%=trim(Rs("Id"))%></td>
    <td class="boder" width="168"><%=Rs("SoftName")%></td>
    <td class="boder" width="89"><%=Rs("SoftInName")%> </td>
    <td class="boder" width="94"><%=datevalue(Rs("SoftInTime"))%></td>
    <td class="boder" width="71">&nbsp;<a href="SoftOption.asp?id=<%=trim(Rs("Id"))%>&action=DelSoft&url=<%=Rs("SoftUrl")%>&FileUrl=<%=Rs("SoftFile")%>">删 除</a></td>
    <td class="boder" width="41"><a href="SoftOption.asp?id=<%=trim(Rs("Id"))%>&action=EditSoft">修 改</a></td>
   </tr>
   <% 
     Rs.MoveNext                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         
                 RowCount=RowCount-1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
                 Loop
               end if 
          end if
          %>
  </table>
  </td>
 </tr>
 <tr>
  <td bgcolor="#e4e9f3" height="26"><%
    if total<>1 then
    if currentpage=0 then currentpage=1 %>
  <table cellspacing="0" cellpadding="0" align="center" border="0" id="table3">
   <form method="post" action="SoftGl.asp">
    <tr>
     <td valign="bottom" align="middle" width="170">
     <div align="left">
&nbsp; 页数:<strong><font color="#3b445f"><%=currentpage%></font>/<%=total%></strong>&nbsp;&nbsp; 记录总数:<%=rs.recordcount%></div>
     </td>
     <td width="2"><img height="18" src="Images/line.png" width="2"></td>
     <td valign="bottom" align="middle" width="220"><%  if currentpage=1 or total=0 then                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               
                    Response.Write "[首页] [前页]&nbsp"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               
                     else                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               
                       Response.Write "[<b><a href=?page=1" &"&SoftName =" & trim(Name) &">首页</a></b>] [<b><a href=?page="&currentpage-1& "&SoftName =" & trim(Name) &">前页</a></b>]&nbsp"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               
                     end if                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
                     if currentpage=total or total=0 then                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               
                       Response.Write "[后页] [尾页]"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               
                     else                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               
                    Response.Write "[<b><a href=?page="&currentpage+1& "&SoftName =" & trim(Name) &">后页</a></b>] [<b><a href=?page="&total& "&SoftName =" & trim(Name) &">尾页</a></b>]"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               
                     end if                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         
                  %> </td>
     <td width="2"><img height="18" src="Images/line.png" width="2"></td>
     <td valign="bottom" align="right" width="60">转到: </td>
     <td width="100">
     <div class="box">
      <div class="box2">
       <select onchange="javascript:submit()" size="1" name="page" selected><% for i=0 to total %>
       <option value="<%=i%>">&nbsp;第 <%=i%> 页</option>
       <% next%></select> </div>
     </div>
     </td>
    </tr>
   </form>
  </table>
  <%end if%> </td>
 </tr>
</table>
<% 
    Rs.close
    set Rs=nothing
   end if         
%>

</body>

</html>

posted on 2004-06-15 11:12  乔本生涯a  阅读(328)  评论(0编辑  收藏  举报

导航