ASP advanced article Online Management Update (ix)

Source: Internet
Author: User
Tags microsoft frontpage
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
Related Article

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.