ASP进阶之文章在线管理更新--管理页面篇
作者：沙滩小子
前面讲述了关于文章管理系统的密码及密码验证，通过密码验证可以限制一般浏览者所能进入的页面，这里所要限制的就是普通用户所不能进入的页面，也就是包括管理页面、删除文章页面、修改文章页面以及修改用户信息和修改栏目信息的页面。其实这里的主管理页面就是和文章管理系统的主页面类似的页面，只是在里面添加了一些有关管理内容的连接，以方便管理者对文章进行在线的修改删除等操作。
下面就为大家介绍这一页面的主要程序内容，由于它和文章管理的主页面差不多，所以这里只是把其程序写出来，并注明和主页面不同的地方，其他相同的部分请大家参考本专题的第七节！
文件manage.asp
"打开数据库连接
<%
"限制非管理用户进入,这个在本专题的第七节有介绍
if request.cookies("adminok")="" then
response.redirect "login.asp"
end if
%>
<%
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&""%> "显示系统管理页面相关连接,用于修改管理员密码名称以及增加修改删除栏目,这个在后面将有介绍 <%
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%> <%=rs("articleid")%> "显示与修改删除的相关连接,具体程序在后面章节将有介绍 href="edit.asp?id=<%=rs("articleid")%>">修改 href="delete.asp?id=<%=rs("articleid")%>">删除 <% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %> 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。下一章节就为大家介绍文章管理的文章在线删除篇。
转载请注明出处http://asky.on.net.cn