1、建兩個文件夾
假設一個為pecj,用于存放插件普通頁面文件和數據庫等。另一個為admin,用于存放后臺治理頁面(asp文件)。與動易系統后臺治理文件夾相同,制作好后這個文件里的頁面全部放到動易的admin文件夾里。
各個頁面制作時,先不考慮訪問權限問題,只要能正常操作數據庫(查詢和寫入等),能正確顯示你想顯示的內容即可。
假設插件治理頁面有:插件首頁.asp 插件1.asp 插件2.asp 插件3.asp
2、在所有后臺asp文件的最前面加上如下代碼:
<%@language=vbscript codepage=936 %>
<%
Option Explicit
Response.buffer = True
Const PurviewLevel = 0
Const PurviewLevel_Channel = 0
Const PurviewLevel_Others = ""
%>
<!--#include file="../conn.asp"-->
<!--#include file="../inc/function.asp"-->
<!--#include file="Admin_ChkPurview.asp"-->
這樣就使后臺頁面只能在治理員登錄后才可以訪問。
3、添加后臺治理鏈接
打開Admin_index_Left.asp文件,找到判定治理級別的代碼,注重下面的IF代碼:
If AdminPurview = 1 Then
……
End If
或者:
If AdminPurview = 1 Or PurviewPassed = True Then
……
End If
在其后面插入以下代碼:
'插件代碼添加開始
If AdminPurview = 1 Then '可根據需要使用不同的治理員權限判定
Response.Write "<table cellpadding=0 cellspacing=0 align=center>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='Images/Admin_left_04.gif' id=menuTitle2069 onclick=""new Element.toggle('submenu2069')"" style='cursor:hand;'><a href='插件首頁.asp' target='main'><span class=glow>插件治理</span></a></td>" & vbCrLf '這些2069不能與其它菜單相同
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td style='display:none' align='right' id='submenu2069'><div class=sec_menu style='width:165'>" & vbCrLf
Response.Write " <table cellpadding=0 cellspacing=0 align=center & vbCrLf
'根據你的子功能多少確定下面代碼,下面是三個功能鏈接的示例
'插件子功能鏈接開始
Response.Write " <tr>" & vbCrLf
Response.Write " <td href=插件1.asp target=main>插件名稱1</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
|
新聞熱點
疑難解答
圖片精選