动易系统添加后台模块插件制作初步

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