ASP进阶之文章在线管理更新10

关注+2004-10-07作者：蓝点

ASP进阶之文章在线管理更新--管理页面篇

作者：沙滩小子

   前面讲述了关于文章管理系统的密码及密码验证，通过密码验证可以限制一般浏览者所能进入的页面，这里所要限制的就是普通用户所不能进入的页面，也就是包括管理页面、删除文章页面、修改文章页面以及修改用户信息和修改栏目信息的页面。其实这里的主管理页面就是和文章管理系统的主页面类似的页面，只是在里面添加了一些有关管理内容的连接，以方便管理者对文章进行在线的修改删除等操作。

   下面就为大家介绍这一页面的主要程序内容，由于它和文章管理的主页面差不多，所以这里只是把其程序写出来，并注明和主页面不同的地方，其他相同的部分请大家参考本专题的第七节！

   文件manage.asp

   "打开数据库连接

<%

   "限制非管理用户进入,这个在本专题的第七节有介绍

if request.cookies("adminok")="" then

  response.redirect "login.asp"

end if

%>

ASP技巧专题

<%

   const MaxPerPage=18

   dim totalPut

   dim CurrentPage

   dim TotalPages

   dim i,j

   if not isempty(request("page")) then

      currentPage=cint(request("page"))

   else

      currentPage=1

   end if

   dim sql

   dim rs

   dim rstype

   dim typesql

   dim typeid,typename

   if not isEmpty(request("typeid")) then

typeid=request("typeid")

   else

typeid=1

   end if

set rstype=server.createobject("adodb.recordset")

  typesql="select * from type where typeID="&cstr(typeid)

rstype.open typesql,conn,1,1

if not rstype.eof then

typename=rstype("type")

end if

rstype.close

set rstype=nothing

%>

动网ASP技巧专题>><%response.write ""&typename&""%>

ASP教程｜ASP FAQ｜ASP文摘

｜ASP实例｜ASP安全｜

"显示系统管理页面相关连接,用于修改管理员密码名称以及增加修改删除栏目,这个在后面将有介绍

管理页面

<%

sql="select * from article where typeid="+cstr(typeid)+" order by data desc"

Set rs= Server.CreateObject("ADODB.Recordset")

rs.open sql,conn,1,1

if rs.eof and rs.bof then

response.write "

还没有任何文章

"

   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

           showpage totalput,MaxPerPage,"manage.asp"

            showContent

            showpage totalput,MaxPerPage,"manage.asp"

       else

          if (currentPage-1)*MaxPerPage
            rs.move  (currentPage-1)*MaxPerPage

            dim bookmark

            bookmark=rs.bookmark

           showpage totalput,MaxPerPage,"manage.asp"

            showContent

             showpage totalput,MaxPerPage,"manage.asp"

        else

        currentPage=1

           showpage totalput,MaxPerPage,"manage.asp"

           showContent

           showpage totalput,MaxPerPage,"manage.asp"

      end if

   end if

   rs.close

   end if



   set rs=nothing

   conn.close

   set conn=nothing



   sub showContent

       dim i

   i=0

%>

<%do while not rs.eof%>







   "显示与修改删除的相关连接,具体程序在后面章节将有介绍







<% i=i+1

      if i>=MaxPerPage then exit do

      rs.movenext

   loop

  %>

ID号	文章标题	修改	删除
<%=rs("articleid")%>	)"><%=rs("title")%>	href="edit.asp?id=<%=rs("articleid")%>">修改	href="delete.asp?id=<%=rs("articleid")%>">删除

<%

   end sub

function showpage(totalnumber,maxperpage,filename)

  dim n

  if totalnumber mod maxperpage=0 then

     n= totalnumber \ maxperpage

  else

     n= totalnumber \ maxperpage+1

  end if

  response.write ""

end function

%>

关于管理页面的程序就是这样的了，有什么不清楚的地方可以参考本专题的第八节，由于其内容类似，这里就不多说了，有什么问题可以给我EMAIL：wodeail@etang.com。下一章节就为大家介绍文章管理的文章在线删除篇。