?? 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 + -