Other windows programs

Development Platform:
VBScript

manage.asp：Code Content
							<%
if session("ifadm")<>"youarewelcome" then
  response.redirect "../hermesadm/admlogin.asp"
end if
%>
<!--#include file="articleconn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理文件</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<link rel="stylesheet" type="text/css" href="css/article.css">
</head>
<%
response.buffer=true
   const MaxPerPage=20 
   dim totalPut   
   dim CurrentPage
   dim TotalPages
   dim i,j
   if not isempty(request("page")) then
      currentPage=cint(request("page"))
   else
      currentPage=1
   end if
   
%>
<body>
<%
dim sql
dim rs
sql="select * from learning order by articleid desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
  if rs.eof and rs.bof then
       response.write "<p align='center'> 还 没 有 任 何 文 章</p>"
   else
	  totalPut=rs.recordcount
      totalPut=rs.recordcount
      if currentpage<1 then
          currentpage=1
      end if
      if (currentpage-1)*MaxPerPage>totalput then
	   if (totalPut mod MaxPerPage)=0 then
	     currentpage= totalPut  MaxPerPage
	   else
	      currentpage= totalPut  MaxPerPage + 1
	   end if
      end if
       	       if currentPage=1 then
                    showpages
                    showContent
					showpages
	           else
		         if (currentPage-1)*MaxPerPage<totalPut then
		            rs.move  (currentPage-1)*MaxPerPage
		            dim bookmark
		            bookmark=rs.bookmark
                    showpages
                    showContent
					showpages
                  else
			        currentPage=1
                   showpages
                    showContent
                   showpages
			      end if
			   end if
			   rs.close
   end if
	        
   set rs=nothing  
   conn.close
   set conn=nothing
  
   sub showContent
       dim i
	   i=0
  
%>
<div align="center"><center>
<table border="1" cellspacing="0" width="80%" bgcolor="#F0F8FF" bordercolorlight="#4DA6FF"
bordercolordark="#ECF5FF">
  <tr>
    <td width="10%" align="center"><strong><font color="#0080C0">ID 号</font></strong></td>
   
    <td width="50%" align="center"><strong><font color="#0080C0">标 题</font></strong></td>
    <td width="10%" align="center"><strong><font color="#0080C0">修 改</font></strong></td>
    <td width="10%" align="center"><strong><font color="#0080C0">删 除</font></strong></td>
<td width="10%" align="center"><strong><font color="#0080C0">点 击</font></strong></td>
<td width="10%" align="center"><strong><font color="#0080C0">排序</font></strong></td>
  </tr>
<%do while not rs.eof%>
  <tr>
    <td width="10%"><p align="center"><%=rs("articleid")%></td>
 
    <td width="50%"><a href="openarticle.asp?listname=<%=request("listname")%>&id=<%=rs("articleid")%>" target="_blank"><%=rs("title")%></a></td>
    <td width="10%" align="center"><a
    href="edit.asp?id=<%=rs("articleid")%>">修 改</a></td>
    <td width="10%" align="center"><a
    href="delete.asp?id=<%=rs("articleid")%>">删 除</a></td>
   <td width="10%"><p align="center"><%=rs("hits")%></td>
   <td ><p align="center"><%=rs("ctrposition")%>&nbsp</td>
  </tr>
<% i=i+1
	      if i>=MaxPerPage then exit do
	      rs.movenext
	   loop
		  %>
		  </table>
</center></div>
<%
   end sub 
   sub showpages()
          dim n
	   if (totalPut mod MaxPerPage)=0 then
	      n= totalPut  MaxPerPage
	   else
	      n= totalPut  MaxPerPage + 1
	   end if
	   if n=1 then 
        response.write "<p align='left'><a href=addarticle.asp>创建文章</a>"
	     response.write "</p>"
        exit sub
       end if
	   dim k
	   response.write "<p align='left'>&gt;&gt; 文章分页 "
	   for k=1 to n
	       if k=currentPage then
	          response.write "[<b>"+Cstr(k)+"</b>] "
		   else
		    response.write "[<b>"+"<a href='manage.asp?page="+Cstr(k)+"'>"+Cstr(k)+"</a></b>] "
		   end if
	   next
      response.write " <a href=addarticle.asp>创建文章</a>"
	   response.write "</p>"
   end sub
 
%>
</body>
</html>

						