"打开数据库连接 <!--#include file="conn.asp"--> <% "限制非管理用户进入,这个在本专题的第七节有介绍 if request.cookies("adminok")="" then response.redirect "login.asp" end if %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>ASP技巧专题</title> <meta name="GENERATOR" content="Microsoft FrontPage 3.0"> <link rel="stylesheet" type="text/css" href="style.css"> <script language="javascript"> function popwin2(id,path) { window.open("openarticle.asp?id="+id+"&ppath="+path,"","height=450,width=600,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no"); } </script> </head> <% 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 %> <body> <div align="center"><center> <table border="0" width="92%" cellspacing="0" cellpadding="0"> <tr> <td width="100%" style="border-left: thin dotted rgb(0,128,0); border-right: thin dotted rgb(0,128,0)"><p align="center"><br> 动网ASP技巧专题>><font color="#FF0000"><%response.write ""&typename&""%></font><br> <center> <a href="manage.asp?typeid=1">ASP教程</a>｜<a href="manage.asp?typeid=2">ASP FAQ</a>｜<a href="manage.asp?typeid=3">ASP文摘</a> ｜<a href="manage.asp?typeid=4">ASP实例</a>｜<a href="manage.asp?typeid=5">ASP安全</a>｜
"显示系统管理页面相关连接,用于修改管理员密码名称以及增加修改删除栏目,这个在后面将有介绍 <a href="changepass.asp" title="用于修改管理员密码名称以及增加修改删除栏目"><font color=red>管理页面</font></a> <div align="center"><% 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 "<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 showpage totalput,MaxPerPage,"manage.asp" showContent showpage totalput,MaxPerPage,"manage.asp" else if (currentPage-1)*MaxPerPage<totalPut then 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
设为主页
收藏本站
相关文章: