ASP advanced article Online Management Update (ix)

ASP advanced article online Management Update--Manage page Chapter
Author: Beach Boy
The password and password verification of the article management system is described earlier. Through the password authentication can restrict the general visitor to enter the page, here wants to restrict is the ordinary user cannot enter the page, namely includes manages the page, deletes the article page, modifies the article page as well as modifies the user information and modifies the column information the page. In fact, here is the main management page and article management system page similar to the page, just added some related to the management of the content of the connection, in order to facilitate the manager of the article online modify delete operations.
The following is to introduce the main program content of this page, because it and article management of the homepage is similar, so here is just to write out its program, and annotated and the main page different places, other similar parts please refer to the Seventh section of this topic!
File manage.asp
The Open database connection
<!--#include file= "conn.asp"-->
<%
"Restrict access to unmanaged users, as described in section seventh of this topic
If Request.Cookies ("Adminok") = "" Then
Response.Redirect "Login.asp"
End If
%>
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
Special Topics </title> <title>asp skills
<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>
<%
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