您的位置:首页精文荟萃软件资讯 → ASP进阶之文章在线管理更新10

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

时间:2004/10/7 19:18:00来源:本站整理作者:蓝点我要评论(0)

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技巧专题&gt;&gt;<%response.write ""&typename&""%>




ASP教程ASP FAQASP文摘

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 "
"



   "显示增加文章相关连接,关于添加文章在本专题的第一、二节有介绍

  response.write "

增加文章&nbsp;"

  if CurrentPage<2 then

    response.write "首页 上一页&nbsp;"

  else

    response.write "首页&nbsp;"

    response.write "上一页&nbsp;"

  end if

  if n-currentpage<1 then

    response.write "下一页 尾页"

  else

    response.write ""

    response.write "下一页
尾页"

  end if

   response.write "&nbsp;页次:"&CurrentPage&"/"&n&" "

    response.write "&nbsp;共"&totalnumber&"篇文章 "&maxperpage&"篇文章/页 "

   response.write " 转到:"

   response.write "

"

end function

%>

    










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



  

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 360快剪辑怎么使用 36金山词霸如何屏幕取词百度收购PPS已敲定!3

最新文章 微信3.6.0测试版更新了微信支付漏洞会造成哪 360快剪辑怎么使用 360快剪辑软件使用方法介酷骑单车是什么 酷骑单车有什么用Apple pay与支付宝有什么区别 Apple pay与贝贝特卖是正品吗 贝贝特卖网可靠吗

人气排行 xp系统停止服务怎么办?xp系统升级win7系统方电脑闹钟怎么设置 win7电脑闹钟怎么设置office2013安装教程图解:手把手教你安装与qq影音闪退怎么办 QQ影音闪退解决方法VeryCD镜像网站逐个数,电驴资料库全集同步推是什么?同步推使用方法介绍QQ2012什么时候出 最新版下载EDiary——一款好用的电子日记本