📄 plus.asp
字号:
<!--#include file=../conn.asp-->
<!--#include file="inc/const.asp"-->
<!--#include file="../inc/GroupPermission.asp"-->
<%
Head()
dim admin_flag
admin_flag=",39,"
CheckAdmin(admin_flag)
Call main()
Footer()
Sub main()
If request("action")="save" Then
call savenew()
ElseIf request("action")="savedit" Then
call savedit()
ElseIf request("action")="del" Then
call del()
ElseIf request("action")="AddNew" OR request("action")="edit" Then
AddNew()
Else
call gradeinfo()
End If
End Sub
Sub AddNew()
dim trs,rs
Dim PSetting
Dim Groupids
%>
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
<tr><th width="100%" style="text-align:center;" colspan=2>论坛插件菜单管理
</th>
</tr>
<tr>
<td height="23" colspan="2" class=td1>注意：这里所添加内容将自动显示于论坛前台的顶部菜单</td>
</tr>
<tr>
<td height="23" colspan="2">
<a href="plus.asp">菜单管理首页</a>
<%if request("action")="edit" then
Set tRs=Dvbbs.Execute("Select * From Dv_Plus Where id="&request("id")&"")
PSetting=Split(Server.HTMLEncode(tRs("Plus_Setting")),"|||")
PSetting(0)=split(PSetting(0),"|")
%>
| 编辑菜单 | <a href="plus.asp?action=AddNew">新建菜单</a></td>
</tr>
<FORM METHOD=POST ACTION="?action=savedit">
<input type=hidden value="<%=trs("id")%>" name="id">
<tr>
<td height="23" colspan="2" class=td1>
标题： <input type=text size=50 name="title" value="<%=Server.HtmlEncode(tRs("Plus_name"))%>"> 可用HTML语法
</td></tr>
<tr>
<td height="23" colspan="2" class=td1>
是否在导航中显示： 是 <Input type="radio" class="radio" name="Isuse" value="1"
<%
If trs("Isuse")=1 Then
%>
checked
<%
End If
%>
> 否 <input type="radio" class="radio" name="Isuse" value="0"
<%
If trs("Isuse")=0 Then
%>
checked
<%
End If
%>
>
</td></tr>
<tr>
<td height="23" colspan="2" class=td1>
分类：
<Select Name="stype" size=1>
<%
Set Rs=Dvbbs.Execute("Select * From Dv_Plus Where Plus_type='0'")
If Rs.Eof And Rs.bof Then
Response.Write "<option value=0>作为一级菜单</option>"
Else
If Clng(tRs("Plus_type"))=0 Then
Response.Write "<option value=0 selected>作为一级菜单</option>"
Else
Response.Write "<option value=0>作为一级菜单</option>"
End If
Do While Not Rs.Eof
If CStr(request("id")) <> CStr(Rs("id")) Then
Response.Write "<option value="&rs("id")
If Clng(tRs("Plus_type"))=Rs("ID") Then Response.Write " selected "
Response.Write ">"&Server.htmlencode(rs("plus_name"))&"</option>"
End If
Rs.MoveNext
Loop
End If
%>
</select>
不选择则将做为一级菜单<BR>
</td>
</tr>
<tr>
<td height="23" colspan="2" class=td1>
注释：
<input type=text size=50 name="readme" value="<%=server.htmlencode(trs("plus_copyright"))%>"> 显示于链接上的title注释，也是插件的版权信息<BR>
</td>
</tr>
<tr>
<td height="23" colspan="2" class=td1>
模式：
<select name="windowtype" size="1">
<option value="0" <%If PSetting(0)(0)=0 Then Response.Write "selected"%>>原窗口</option>
<option value="1" <%If PSetting(0)(0)=1 Then Response.Write "selected"%>>新窗口</option>
<option value="2" <%If PSetting(0)(0)=2 Then Response.Write "selected"%>>固定大小窗口</option>
<option value="3" <%If PSetting(0)(0)=3 Then Response.Write "selected"%>>全屏</option>
</select>
窗口宽：<input type=text name="windowwidth" value="<%=PSetting(0)(1)%>" size=5>
窗口高：<input type=text name="windowheight" value="<%=PSetting(0)(2)%>" size=5>
</td>
</tr>
<tr>
<td height="23" colspan="2" class=td1>
链接：
<input type=text size=50 name="url" value="<%=server.htmlencode(trs("mainpage"))%>"> <BR>
</td>
</tr>
<tr>
<td height="23" colspan="2" class=td1>
后台管理链接：
<input type=text size=50 name="plus_adminpage" value="<%=server.htmlencode(trs("plus_adminpage")&"")%>"> <BR>
</td>
</tr>
<tr><th style="text-align:center;" colspan="2" >插件常规设置</th></tr>
<tr><td height="23" colspan="2" class=td1> 插件ID <input type=text name="plusID" value="<%=Trs("plus_ID")%>" size="20">这是你插件的唯一的标识，注意不能有重复的。
<a href="http://bbs.dvbbs.net/Dv_plusInfo.asp" target="_blank" title="到动网官方站查询关于插件的信息" >获得插件ID和信息</a> </td></tr>
<%
If UBound(PSetting)>2 Then
PSetting(3)=Split(PSetting(3),",")
%>
<tr><td height="23" colspan="2" class=td1>是否定时开放 是 <Input type="radio" class="radio" name="useTime" value="1"
<%
If PSetting(3)(0)="1" Then Response.Write "checked"
%>
> 否 <input type="radio" class="radio" name="useTime" value="0"
<%
If PSetting(3)(0)="0" Then Response.Write "checked"
Groupids = PSetting(3)(2)
%>
></td></tr>
<tr><td height="23" colspan="2" class=td1>定时开放起止时间 <input type=text name="timesetting" value="<%=PSetting(3)(1)%>" size=10></td></tr>
<tr><td height="23" colspan="2" class=td1>能使用插件的用户组
<input type=text name="groupid" value="<%=Replace(Groupids&"","@",",")%>" size=30>这里设置可以使用插件的用户组
<input type="button" class="button" value="选择用户组" onclick="getGroup('Select_Group');">
</td></tr>
<tr><td height="23" colspan="2" class=td1>管理人员 <textarea name="plusmaster" cols="50" rows="5" ><%=Replace(PSetting(3)(3),"|",vbCrLf)%></textarea><br>这里设置插件的管理员，每个用户名用回车分隔开.系统默认论坛管理员可以管理插件，如果您不需要另外设置管理员，此项可以不填。</td></tr>
<tr><th style="text-align:center;" colspan="2" >限制项</th></tr>
<tr><td height="23" colspan="2" class=td1> 能使用插件的最少文章 <input type=text name="Plus_UserPost" value=<%=PSetting(3)(4)%> size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 能使用插件的最低金钱 <input type=text name="Plus_userWealth" value=<%=PSetting(3)(5)%> size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 能使用插件的最低经验 <input type=text name="Plus_UserEP" value=<%=PSetting(3)(6)%> size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 能使用插件的最低魅力 <input type=text name="Plus_UserCP" value=<%=PSetting(3)(7)%> size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 能使用插件的最低威望 <input type=text name="Plus_UserPower" value=<%=PSetting(3)(8)%> size=5></td></tr>
<tr><th style="text-align:center;" colspan="2" >更新项</th></tr>
<tr><td height="23" colspan="2" class=td1> 每次使用插件金钱变化 <input type=text name="Plus_ADDuserWealth" value=<%=PSetting(3)(9)%> size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 每次使用插件经验变化 <input type=text name="Plus_ADDUserEP" value=<%=PSetting(3)(10)%> size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 每次使用插件魅力变化 <input type=text name="Plus_ADDUserCP" value=<%=PSetting(3)(11)%> size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 每次使用插件威望变化 <input type=text name="Plus_ADDUserPower" value=<%=PSetting(3)(12)%> size=5></td></tr>
<%
Else
%>
<tr><td height="23" colspan="2" class=td1>是否定时开放 是 <Input type="radio" class="radio" name="useTime" value="1"> 否 <input type="radio" class="radio" name="useTime" value="0" checked></td></tr>
<tr><td height="23" colspan="2" class=td1>定时开放起止时间 <input type=text name="timesetting" value="0|24" size=10></td></tr>
<tr><td height="23" colspan="2" class=td1>能使用插件的用户组
<input type=text name="groupid" value="" size=30>
这里设置可以使用插件的用户组
<input type="button" class="button" value="选择用户组" onclick="getGroup('Select_Group');">
</td></tr>
<tr><td height="23" colspan="2" class=td1>管理人员 <textarea name="plusmaster" cols="50" rows="5" ></textarea><br>这里设置插件的管理员，每个用户名用回车分隔开.系统默认论坛管理员可以管理插件，如果您不需要另外设置管理员，此项可以不填。</td></tr>
<tr><th style="text-align:center;" colspan="2" >限制项</th></tr>
<tr><td height="23" colspan="2" class=td1> 能使用插件的最少文章 <input type=text name="Plus_UserPost" value=0 size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 能使用插件的最低金钱 <input type=text name="Plus_userWealth" value=0 size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 能使用插件的最低经验 <input type=text name="Plus_UserEP" value=0 size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 能使用插件的最低魅力 <input type=text name="Plus_UserCP" value=0 size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 能使用插件的最低威望 <input type=text name="Plus_UserPower" value=0 size=5></td></tr>
<tr><th style="text-align:center;" colspan="2" >更新项</th></tr>
<tr><td height="23" colspan="2" class=td1> 每次使用插件金钱变化 <input type=text name="Plus_ADDuserWealth" value=0 size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 每次使用插件经验变化 <input type=text name="Plus_ADDUserEP" value=0 size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 每次使用插件魅力变化 <input type=text name="Plus_ADDUserCP" value=0 size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 每次使用插件威望变化 <input type=text name="Plus_ADDUserPower" value=0 size=5></td></tr>
<%
End If
%>
<tr><td height="23" colspan="2" class=td1>注意，如果用户组中的客人组(ID为7)设置为可进入，那么所有的限制项无效。<Br>更新项中如果是客人可使用，对客人无效</td></tr>
<tr><th style="text-align:center;" colspan="2" >插件自定权限设置</th></tr>
<tr><td height="23" colspan="2" class=td1>
<textarea name="Plus_Setting" cols="80" rows="20">
<%
If UBound(PSetting)>1 Then
Dim i
PSetting(1)=Split(PSetting(1),",")
PSetting(2)=Split(PSetting(2),",")
For i=0 to UBound (PSetting(1))
Response.Write PSetting(2)(i)&"="&PSetting(1)(i)
Response.Write vbCrLf
Next
Else
%>
设置字段1=0
设置字段2=0
设置字段3=0
设置字段4=0
设置字段5=0
设置字段6=0
设置字段7=0
设置字段8=0
设置字段9=0
设置字段10=0
设置字段11=0
设置字段12=0
设置字段13=0
设置字段14=0
设置字段15=0
设置字段16=0
设置字段17=0
设置字段18=0
设置字段19=0
<%
End If
%>
</textarea>
</td></tr>
<tr><td height="25" colspan="2" >说明：由于每个插件的设置不可能完全一样，设置字段的定义也不一样，这些都交给插件作者自行修改了。</td></tr>
<tr>
<td height="23" colspan="2" class=td2>
<input type=submit class="button" name=submit value="提交">
</td></tr>
</FORM>
<%else%>
<tr>
<th style="text-align:center;" colspan="2">添加菜单</th>
</tr>
<FORM METHOD=POST ACTION="?action=save">
<tr>
<td height="23" colspan="2" class=td1>
标题： <input type=text size=50 name="title"> 可用HTML语法
</td></tr>
<tr>
<td height="23" colspan="2" class=td1>
是否在导航中显示： 是 <Input type="radio" class="radio" name="Isuse" value="1" checked> 否 <input type="radio" class="radio" name="Isuse" value="0" >
</td></tr>
<tr>
<td height="23" colspan="2" class=td1>
分类：
<Select Name="stype" size=1>
<%
Set Rs=Dvbbs.Execute("Select * From Dv_Plus Where Plus_type='0'")
If Rs.Eof And Rs.bof Then
Response.Write "<option value=0>作为一级菜单</option>"
Else
Response.Write "<option value=0>作为一级菜单</option>"
Do While Not Rs.Eof
Response.Write "<option value="&rs("id")&">"&Server.htmlencode(rs("plus_name"))&"</option>"
Rs.MoveNext
Loop
End If
%>
</select>
不选择则将做为一级菜单<BR>
</td>
</tr>
<tr>
<td height="23" colspan="2" class=td1>
注释：
<input type=text size=50 name="readme"> 显示于链接上的title注释,也是插件的版权信息<BR>
</td>
</tr>
<tr>
<td height="23" colspan="2" class=td1>
模式：
<select name="windowtype" size="1">
<option value="0">原窗口</option>
<option value="1">新窗口</option>
<option value="2">固定大小窗口</option>
<option value="3">全屏</option>
</select>
窗口宽：<input type=text name="windowwidth" value=0 size=5>
窗口高：<input type=text name="windowheight" value=0 size=5>
</td>
</tr>
<tr>
<td height="23" colspan="2" class=td1>
链接：
<input type=text size=50 name="url"> <BR>
</td>
</tr>
<tr>
<td height="23" colspan="2" class=td1>
后台管理链接：
<input type=text size=50 name="plus_adminpage"> <BR>
</td>
</tr>
<tr><th style="text-align:center;" colspan="2" >插件常规设置</th></tr>
<tr><td height="23" colspan="2" class=td1> 插件ID <input type=text name="plusID" value="newplus1" size="20">这是你插件的唯一的标识，注意不能有重复的。
<a href="http://bbs.dvbbs.net/Dv_plusInfo.asp" target="_blank" title="到动网官方站查询关于插件的信息" >获得插件ID和信息</a> </td></tr>
<tr><td height="23" colspan="2" class=td1>是否定时开放 是 <Input type="radio" class="radio" name="useTime" value="1"> 否 <input type="radio" class="radio" name="useTime" value="0" checked></td></tr>
<tr><td height="23" colspan="2" class=td1>定时开放起止时间 <input type=text name="timesetting" value="0|24" size=10></td></tr>
<tr><td height="23" colspan="2" class=td1>
能使用插件的用户组
<input type=text name="groupid" value="" size=30>这里设置可以使用插件的用户组
<input type="button" class="button" value="选择用户组" onclick="getGroup('Select_Group');">
</td>
</tr>
<tr><td height="23" colspan="2" class=td1>管理人员 <textarea name="plusmaster" cols="50" rows="5" ></textarea><br>这里设置插件的管理员，每个用户名用回车分隔开.系统默认论坛管理员可以管理插件，如果您不需要另外设置管理员，此项可以不填。</td></tr>
<tr><th style="text-align:center;" colspan="2" >限制项</th></tr>
<tr><td height="23" colspan="2" class=td1> 能使用插件的最少文章 <input type=text name="Plus_UserPost" value=0 size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 能使用插件的最低金钱 <input type=text name="Plus_userWealth" value=0 size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 能使用插件的最低经验 <input type=text name="Plus_UserEP" value=0 size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 能使用插件的最低魅力 <input type=text name="Plus_UserCP" value=0 size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 能使用插件的最低威望 <input type=text name="Plus_UserPower" value=0 size=5></td></tr>
<tr><th style="text-align:center;" colspan="2" >更新项</th></tr>
<tr><td height="23" colspan="2" class=td1> 每次使用插件金钱变化 <input type=text name="Plus_ADDuserWealth" value=0 size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 每次使用插件经验变化 <input type=text name="Plus_ADDUserEP" value=0 size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 每次使用插件魅力变化 <input type=text name="Plus_ADDUserCP" value=0 size=5></td></tr>
<tr><td height="23" colspan="2" class=td1> 每次使用插件威望变化 <input type=text name="Plus_ADDUserPower" value=0 size=5></td></tr>
<tr><td height="23" colspan="2" class=td1>注意，如果用户组中的客人组(ID为7)设置为可进入，那么所有的限制项无效。<Br>更新项中如果是客人可使用，对客人无效</td></tr>
<tr><th style="text-align:center;" colspan="2" >插件自定义扩展设置</th></tr>
<tr><td height="23" colspan="2" class=td1>
<textarea name="Plus_Setting" cols="80" rows="20">
设置字段1=0
设置字段2=0
设置字段3=0
设置字段4=0
设置字段5=0
设置字段6=0
设置字段7=0
设置字段8=0
设置字段9=0
设置字段10=0
设置字段11=0
设置字段12=0
设置字段13=0
设置字段14=0
设置字段15=0
设置字段16=0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -