|
动易系统插件制作方法简析（怎么制作动易插件）
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 = ""
%>
<!--＃i nclude file="../conn.asp"-->
<!--＃i nclude file="../inc/function.asp"-->
<!--＃i nclude 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 width=167 align=center>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="/blog1/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 width=130>" & vbCrLf
'根据你的子功能多少确定下面代码，下面是三个功能链接的示例
'插件子功能链接开始
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=20><a href="/blog1/插件1.asp target=main>插件名称1</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=20><a href="/blog1/插件2.asp target=main>插件名称2</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=20><a href="/blog1/插件3.asp target=main>插件名称3</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
'插件子功能链接结束
Response.Write " </table>" & vbCrLf
Response.Write " </div>" & vbCrLf
Response.Write " <div style='width:167'>" & vbCrLf
Response.Write " <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=5></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </div></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
End If
'插件代码结束 |
[
[
[
