📄 admin_plus.asp
字号:
<!--#include file="Inc/Const.asp"-->
<%
if Not Cl.TrueOtherPurview("Plus") then Admin_ShowErr("<br /><li>您无此操作权限！</li>")
dim Action,Num
Dim ID,PlusID,PlusName,PlusIntro,OrderID,PlusSetting,PlusConn,UserGroup,PlusAdmin,UserPoint,UserMoney,PlusMenu,IsUse,PlusType,PlusLink,arrPlusSetting,ModulePlus,PagePlus,UseOn,UseOff,AdminOnly,UserMenu,UserType,NoMenu,ModuleUser,PageUser,UserLink
Num=0
UseOn="":UseOff=""
const MaxPerPage=30
Action=Trim(Request("Action"))
CurrentPage=Cl.GetClng(request("page"))
Header
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title">
<td height="22" colspan="2" align="center"><strong>插 件 管 理</strong></td>
</tr>
<tr class="tdbg">
<td width="70" height="30" ><strong>管理导航：</strong></td><td><a href="Admin_Plus.asp">插件管理首页</a> | <a href="Admin_Plus.asp?Action=Add">添加新插件</a> | <a href="Admin_Plus.asp?Action=Output">插件数据导出</a> | <a href="Admin_Plus.asp?Action=Input">插件数据导入</a></td>
</tr>
</table>
<br />
<%
Select Case Action
Case "Add","Modify"
Call MyPlus()
Case "SaveAdd","SaveModify"
Call SavePlus()
Case "Del"
Call DelPlus()
Case "Input"
Call InputPlus()
Case "Output"
Call OutputPlus()
Case "CreatePlus"
Call createPlus()
Case "LoadPlus"
Call LoadPlus()
Case "LoadInPlus"
Call LoadInPlus()
Case "Delout"
Call Delout()
Case else
Call main()
End Select
Footer
Sub Main()
Set rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select ID,PlusName,OrderID,PlusIntro,PlusID,IsUse From Cl_Plus Order by OrderID,ID Desc"
OpenConn : rs.Open sql,Conn,1,1
%>
<form name="myform" method="post" action="">
<table width="100%" border="0" cellspacing="1" cellpadding="2" class="border" align=center>
<tr align="center" class="title">
<td width="50" height="22">插件ID</td>
<td width="100" height="22">插件名称</td>
<td width="60">优先级</td>
<td>插件说明</td>
<td width="60" height="22">是否使用</td>
<td width="80" align="center">操作</td>
</tr>
<%
if rs.eof and rs.bof then
TotalPut=0
response.write "<tr class='tdbg'><td align='center' colspan='6'>没有任何记录！</td></tr>"
else
TotalPut=rs.recordcount
if (TotalPut mod MaxPerPage)=0 then
TotalPages = TotalPut \ MaxPerPage
else
TotalPages = TotalPut \ MaxPerPage + 1
end if
if CurrentPage > TotalPages then CurrentPage=TotalPages
if CurrentPage < 1 then CurrentPage=1
rs.move (CurrentPage-1)*MaxPerPage
SQL=Rs.GetRows(MaxPerPage)
For i=0 to Ubound(SQL,2)%>
<tr class="tdbg">
<td width="130" align="center"><%=SQL(4,i)%></td>
<td width="130" align="center"><a href="Admin_Plus.asp?Action=Modify&ID=<%=SQL(0,i)%>"><%=SQL(1,i)%></a></td>
<td align="center"><%=SQL(2,i)%></td>
<td><%=SQL(3,i)%></td>
<td width="60" align="center"><strong><%
If SQL(5,i)=0 Then
Response.write "<font color='green'>√</font>"
Else
Response.write "<font color='Red'>×</font>"
End if
%></strong></td>
<td width="80" align="center"><a href="Admin_Plus.asp?Action=Modify&ID=<%=SQL(0,i)%>">修改</a> <a href="Admin_Plus.asp?Action=Del&ID=<%=SQL(0,i)%>" onclick="return confirm('真的要删除此插件吗？如果有文件或模板中使用此插件，请注意修改！');">删除</a></td>
</tr>
<%
Next
end if
%>
</table>
</form>
<%
Response.write Cl.showpage ("Admin_Plus.asp",TotalPut,MaxPerPage,"条","记录")
SQL=Empty
Rs.close:Set Rs=Nothing
End Sub
Sub MyPlus()
Dim StrAction,StrSubmit
if Action="Modify" then
StrAction="SaveModify"
StrSubmit=" 修改插件 "
ID=Cl.GetClng(Request("ID"))
Set Rs=Cl.Execute("Select * From Cl_Plus Where ID="&ID&"")
if rs.bof or rs.eof Then
Call Cl.OutMsg(0,"该插件不存在。","Admin_Plus.asp")
else
PlusID=Rs("PlusID")
PlusName=Rs("PlusName")
PlusIntro=Rs("PlusIntro")
OrderID=Rs("OrderID")
UserGroup=Rs("UserGroup")
PlusAdmin=Rs("PlusAdmin")
PlusMenu=Rs("PlusMenu")
PlusLink=Rs("PlusLink")
UserLink=Rs("UserLink")
PlusType=Rs("PlusType")
UserType=Rs("UserType")
IsUse=Rs("IsUse")
arrPlusSetting=Split(Rs("PlusSetting"),",")
AdminOnly=Cl.GetClng(rs("AdminOnly"))
UserMenu=Rs("UserMenu")
If PlusType=1 Then:ModulePlus="checked":PagePlus="":Else:ModulePlus="":PagePlus="checked":end if
If UserType=0 Then
ModuleUser=""
PageUser="checked"
Nomenu=""
Elseif UserType=1 Then
ModuleUser="checked"
PageUser=""
Nomenu=""
else
ModuleUser=""
PageUser=""
Nomenu="checked"
end if
If IsUse=1 Then:UseOn="":UseOff="checked":Else:UseOn="checked":UseOff="":end if
End if
Rs.Close : Set Rs=Nothing
else
StrAction="SaveAdd"
StrSubmit=" 添加插件 "
ID=""
PlusID="New_Plus"
PlusName=""
PlusIntro=""
OrderID=1
UserLink=""
PlusMenu=""
PlusSetting="0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
arrPlusSetting= Split(PlusSetting,",")
UseOn="checked"
PagePlus="checked"
AdminOnly=0
UserMenu=""
end if
%>
<script language = "JavaScript">
function CheckForm(){
if (document.myform.PlusName.value==""){
alert("插件名不能为空！");
document.myform.PlusName.focus();
return false;
}
if (document.myform.PlusID.value==""){
alert("插件ID不能为空！");
document.myform.PlusID.focus();
return false;
}
if (document.myform.OrderID.value==""){
alert("优 先 等级不能为空！");
document.myform.OrderID.focus();
return false;
}
return true;
}
</script>
<form action="Admin_Plus.asp" method="post" name="myform" id="myform" onSubmit="return CheckForm();">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title" height="22">
<td colspan="2" align="center"><strong><%=StrSubmit%></strong></td>
</tr>
<tr class="title2" height="22">
<td colspan="2" align="center"><strong>插件管理设置</strong></td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>插件名称：</strong></td>
<td><input name="PlusName" type="text" id="PlusName" size="50" maxlength="50" value="<%=PlusName%>"><br /><font color="blue">直接输入名称,用于后台管理显示。</font></td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>插件说明：</strong></td>
<td><textarea name="PlusIntro" style="width:96%" rows="3" id="PlusIntro"><%=PlusIntro%></textarea><br />
<a href="javascript:admin_Size(-3,'PlusIntro')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'PlusIntro')"><img src="images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>插件类型：</strong></td>
<td><input type="radio" name="PlusType" value="0" onClick="Link.style.display='';Menu.style.display='none';" <%=PagePlus%>> 单页插件
<input type="radio" name="PlusType" value="1" onClick="Link.style.display='none';Menu.style.display='';" <%=ModulePlus%>> 模块插件 </td>
</tr>
<tr id="Link" class="tdbg"<%if PagePlus<>"checked" then%>style="display:'none';"<%:end if%>>
<td width="130" align="center"><strong>管理地址：</strong></td>
<td><input name="PlusLink" type="text" id="PlusLink" size="50" maxlength="100" value="<%=PlusLink%>" /><font color="#FF0000">插件管理页面的访问路径，没有留空。</font></td>
</tr>
<tr id="Menu" class="tdbg" <%if ModulePlus<>"checked" then%>style="display:'none';"<%:end if%>>
<td width="130" align="center"><strong>管理菜单：</strong></td>
<td><textarea name="PlusMenu" style="width:96%" rows="5"><%=PlusMenu%></textarea>
<br /><font color="#FF0000">注意：请输入带链接的HTML代码，每个行用回车分隔开；</font>如：<font color="#0000ff"><a href="Admin_Forum.asp?Action=Add" target="main">网站论坛添加</a> | <a href="Admin_Forum.asp" target="main">管理</a></font>
</td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>用户菜单类型：</strong></td>
<td><input type="radio" name="UserType" value="0" onClick="ULink.style.display='';UMenu.style.display='none';" <%=PageUser%>> 单页插件
<input type="radio" name="UserType" value="1" onClick="ULink.style.display='none';UMenu.style.display='';" <%=ModuleUser%>> 模块插件
<input type="radio" name="UserType" value="2" onClick="ULink.style.display='none';UMenu.style.display='none';" <%=NoMenu%>> 无用户菜单</td>
</tr>
<tr id="ULink" class="tdbg" <%if PageUser<>"checked" then%>style="display:'none';"<%:end if%>>
<td width="130" align="center"><strong>用户管理地址：</strong></td>
<td><input name="UserLink" type="text" size="50" maxlength="100" value="<%=UserLink%>" /><font color="#FF0000">插件管理页面的访问路径，没有留空。</font></td>
</tr>
<tr id="UMenu" class="tdbg" <%if ModuleUser<>"checked" then%>style="display:'none';"<%:end if%>>
<td width="130" align="center"><strong>用户管理菜单：</strong></td>
<td><textarea name="UserMenu" style="width:96%" rows="5"><%=UserMenu%></textarea>
<br /><font color="#FF0000">注意：请输入带链接的HTML代码，每个行用回车分隔开；</font>如：<font color="#0000ff"><a href="User_Forum.asp?Action=Add" target="main">网站论坛添加</a> | <a href="Admin_Forum.asp" target="main">管理</a></font>
</td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>插件排序：</strong></td>
<td><input name="OrderID" type="text" id="OrderID" size="10" maxlength="100" value="<%=OrderID%>"><font color="#FF0000">数字越小，插件排序越靠前。</font></td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>是否使用：</strong></td><td>
<input type="radio" name="IsUse" value="0" <%=UseOn%>> 是
<input type="radio" name="IsUse" value="1" <%=UseOff%>> 否 不使用该插件可以关闭。</td>
</tr>
<tr class="title2" height="22">
<td colspan="2" align="center"><strong>插件参数设置</strong></td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>插件ID：</strong></td>
<td><input name="PlusID" type="text" id="PlusID" size="30" maxlength="50" value="<%=PlusID%>">
<font color="#FF0000">这是你插件的唯一的标识，注意不能有重复的。 <A href="#">获得插件ID和信息</A></font></td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>使用权限：</strong></td>
<td>
<input name="UserGroup" type="hidden" id="UserGroup" value="<%=UserGroup%>">
<input name="UserGroupView" type="text" id="UserGroupView" size="50" maxlength="250" value="<%=Cl.GetUserGroupName(UserGroup)%>" onclick="SelectUserGroup('UserGroup');" Readonly>
<font color="#FF0000">点击可设置可以使用插件的用户组</font></td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>管理员名单：</strong></td>
<td><input name="PlusAdmin" type="text" id="PlusAdmin" size="70" maxlength="100" value="<%=PlusAdmin%>" <%if AdminOnly=1 then%>Disabled<%end if%> > <input name="AdminOnly" type="checkbox" value="1" onclick="document.myform.PlusAdmin.disabled=this.checked" <%if AdminOnly=1 then%>checked<%end if%>> 只能登陆后台后使用。
<br />这里设置插件的管理员，每个用户名用,隔开.系统管理员可以管理插件，如果您不需要另外设置管理员，此项可以不填。
</td>
</tr>
<tr class="title2" height="22">
<td colspan="2" align="center"><strong>使用限制项</strong></td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>Plus.Setting(0)：</strong></td>
<td><input name="PlusSetting(0)" type="text" id="PlusSetting(0)" size="6" maxlength="10" value="<%=arrPlusSetting(0)%>">
<font color="#FF0000">访问点数下限:用户点数低于此值则不能访问。</font></td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>Plus.Setting(1)：</strong></td>
<td><input name="PlusSetting(1)" type="text" id="PlusSetting(1)" size="6" maxlength="10" value="<%=arrPlusSetting(1)%>">
<font color="#FF0000">访问金钱下限：用户金钱低于此值则不能访问。</font></td>
</tr>
<tr class="title2" height="22">
<td colspan="2" align="center"><strong>使用更新项</strong></td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>Plus.Setting(2)：</strong></td>
<td><input name="PlusSetting(2)" type="text" id="PlusSetting(2)" size="6" maxlength="10" value="<%=arrPlusSetting(2)%>">
<font color="#FF0000">使用点数变化：正值增多，负值减少。</font></td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>Plus.Setting(3)：</strong></td>
<td><input name="PlusSetting(3)" type="text" id="PlusSetting(3)" size="6" maxlength="10" value="<%=arrPlusSetting(3)%>">
<font color="#FF0000">使用金钱变化：正值增多，负值减少。</font></td>
</tr>
<tr class="title2" height="22">
<td colspan="2" align="center"><strong>插件自定字段设置</strong></td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>Plus.Setting(4)：</strong></td>
<td><input name="PlusSetting(4)" type="text" id="PlusSetting(4)" size="6" maxlength="10" value="<%=arrPlusSetting(4)%>">
</td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>Plus.Setting(5)：</strong></td>
<td><input name="PlusSetting(5)" type="text" id="PlusSetting(5)" size="6" maxlength="10" value="<%=arrPlusSetting(5)%>">
</td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>Plus.Setting(6)：</strong></td>
<td><input name="PlusSetting(6)" type="text" id="PlusSetting(6)" size="6" maxlength="10" value="<%=arrPlusSetting(6)%>">
</td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>Plus.Setting(7)：</strong></td>
<td><input name="PlusSetting(7)" type="text" id="PlusSetting(7)" size="6" maxlength="10" value="<%=arrPlusSetting(7)%>">
</td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>Plus.Setting(8)：</strong></td>
<td><input name="PlusSetting(8)" type="text" id="PlusSetting(8)" size="6" maxlength="10" value="<%=arrPlusSetting(8)%>">
</td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>Plus.Setting(9)：</strong></td>
<td><input name="PlusSetting(9)" type="text" id="PlusSetting(9)" size="6" maxlength="10" value="<%=arrPlusSetting(9)%>">
</td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>Plus.Setting(10)：</strong></td>
<td><input name="PlusSetting(10)" type="text" id="PlusSetting(10)" size="6" maxlength="10" value="<%=arrPlusSetting(10)%>">
</td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>Plus.Setting(11)：</strong></td>
<td><input name="PlusSetting(11)" type="text" id="PlusSetting(11)" size="6" maxlength="10" value="<%=arrPlusSetting(11)%>">
</td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>Plus.Setting(12)：</strong></td>
<td><input name="PlusSetting(12)" type="text" id="PlusSetting(12)" size="6" maxlength="10" value="<%=arrPlusSetting(12)%>">
</td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>Plus.Setting(13)：</strong></td>
<td><input name="PlusSetting(13)" type="text" id="PlusSetting(13)" size="6" maxlength="10" value="<%=arrPlusSetting(13)%>">
</td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>Plus.Setting(14)：</strong></td>
<td><input name="PlusSetting(14)" type="text" id="PlusSetting(14)" size="6" maxlength="10" value="<%=arrPlusSetting(14)%>">
</td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>Plus.Setting(15)：</strong></td>
<td><input name="PlusSetting(15)" type="text" id="PlusSetting(15)" size="6" maxlength="10" value="<%=arrPlusSetting(15)%>">
</td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>Plus.Setting(16)：</strong></td>
<td><input name="PlusSetting(16)" type="text" id="PlusSetting(16)" size="6" maxlength="10" value="<%=arrPlusSetting(16)%>">
</td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>Plus.Setting(17)：</strong></td>
<td><input name="PlusSetting(17)" type="text" id="PlusSetting(17)" size="6" maxlength="10" value="<%=arrPlusSetting(17)%>">
</td>
</tr>
<tr class="tdbg">
<td width="130" align="center"><strong>Plus.Setting(18)：</strong></td>
<td><input name="PlusSetting(18)" type="text" id="PlusSetting(18)" size="6" maxlength="10" value="<%=arrPlusSetting(18)%>">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -