gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\admin_plus.asp
<!--#include file=conn.asp--> <!-- #include file="inc/const.asp" --> <!-- #include file="inc/DvADChar.asp" --> <% Head() dim admin_flag admin_flag=",36," If Not Mybbs.master or instr(","&session("flag")&",",admin_flag)=0 Then Errmsg=ErrMsg + "<BR><li>本页面为管理员专用,请<a href=admin_index.asp target=_top>登录</a>后进入。<br><li>您没有管理本页面的权限。" dvbbs_error() Else Call main() Footer() End if 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 Dim PSetting %> <table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder"> <tr><th width="100%" class="tableHeaderText" colspan=2>论坛插件菜单管理 </th> </tr> <tr> <td height="23" colspan="2" class=forumrow>注意:这里所添加内容将自动显示于论坛前台的顶部菜单</td> </tr> <tr> <td height="23" colspan="2" class="tableHeaderText"> <a href="admin_plus.asp">菜单管理首页</a> <%if request("action")="edit" then Set tRs=Mybbs.Execute("Select * From Dv_Plus Where id="&request("id")&"") PSetting=Split(Server.HTMLEncode(tRs("Plus_Setting")),"|||") PSetting(0)=split(PSetting(0),"|") %> | 编辑菜单 | <a href="admin_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=forumrow> 标题: <input type=text size=50 name="title" value="<%=Server.HtmlEncode(tRs("Plus_name"))%>"> 可用HTML语法 </td></tr> <tr> <td height="23" colspan="2" class=forumrow> 是否在导航中显示: 是 <Input type="radio" name="Isuse" value="1" <% If trs("Isuse")=1 Then %> checked <% End If %> > 否 <input type="radio" name="Isuse" value="0" <% If trs("Isuse")=0 Then %> checked <% End If %> > </td></tr> <tr> <td height="23" colspan="2" class=forumrow> 分类: <Select Name="stype" size=1> <% Set Rs=Mybbs.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=forumrow> 注释: <input type=text size=50 name="readme" value="<%=server.htmlencode(trs("plus_copyright"))%>"> 显示于链接上的title注释,也是插件的版权信息<BR> </td> </tr> <tr> <td height="23" colspan="2" class=forumrow> 模式: <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=forumrow> 链接: <input type=text size=50 name="url" value="<%=server.htmlencode(trs("mainpage"))%>"> <BR> </td> </tr> <tr> <td height="23" colspan="2" class=forumrow> 后台管理链接: <input type=text size=50 name="plus_adminpage" value="<%=server.htmlencode(trs("plus_adminpage")&"")%>"> <BR> </td> </tr> <tr><th height="25" colspan="2" >插件常规设置</th></tr> <tr><td height="23" colspan="2" class=forumrow> 插件ID <input type=text name="plusID" value="<%=Trs("plus_ID")%>" size="20">这是你插件的唯一的标识,注意不能有重复的。 <a href="http://bbs.Mybbs.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=forumrow>是否定时开放 是 <Input type="radio" name="useTime" value="1" <% If PSetting(3)(0)="1" Then Response.Write "checked" %> > 否 <input type="radio" name="useTime" value="0" <% If PSetting(3)(0)="0" Then Response.Write "checked" %> ></td></tr> <tr><td height="23" colspan="2" class=forumrow>定时开放起止时间 <input type=text name="timesetting" value="<%=PSetting(3)(1)%>" size=10></td></tr> <tr><td height="23" colspan="2" class=forumrow>能使用插件的用户组 <input type=text name="Groupsetting" value="<%=PSetting(3)(2)%>" size=30>这里设置可以使用插件的用户组</td></tr> <tr><td height="23" colspan="2" class=forumrow>管理人员 <textarea name="plusmaster" cols="50" rows="5" ><%=Replace(PSetting(3)(3),"|",vbCrLf)%></textarea><br>这里设置插件的管理员,每个用户名用回车分隔开.系统默认论坛管理员可以管理插件,如果您不需要另外设置管理员,此项可以不填。</td></tr> <tr><th height="25" colspan="2" >限制项</th></tr> <tr><td height="23" colspan="2" class=forumrow> 能使用插件的最少文章 <input type=text name="Plus_UserPost" value=<%=PSetting(3)(4)%> size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 能使用插件的最低金钱 <input type=text name="Plus_userWealth" value=<%=PSetting(3)(5)%> size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 能使用插件的最低经验 <input type=text name="Plus_UserEP" value=<%=PSetting(3)(6)%> size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 能使用插件的最低魅力 <input type=text name="Plus_UserCP" value=<%=PSetting(3)(7)%> size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 能使用插件的最低威望 <input type=text name="Plus_UserPower" value=<%=PSetting(3)(8)%> size=5></td></tr> <tr><th height="25" colspan="2" >更新项</th></tr> <tr><td height="23" colspan="2" class=forumrow> 每次使用插件金钱变化 <input type=text name="Plus_ADDuserWealth" value=<%=PSetting(3)(9)%> size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 每次使用插件经验变化 <input type=text name="Plus_ADDUserEP" value=<%=PSetting(3)(10)%> size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 每次使用插件魅力变化 <input type=text name="Plus_ADDUserCP" value=<%=PSetting(3)(11)%> size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 每次使用插件威望变化 <input type=text name="Plus_ADDUserPower" value=<%=PSetting(3)(12)%> size=5></td></tr> <% Else %> <tr><td height="23" colspan="2" class=forumrow>是否定时开放 是 <Input type="radio" name="useTime" value="1"> 否 <input type="radio" name="useTime" value="0" checked></td></tr> <tr><td height="23" colspan="2" class=forumrow>定时开放起止时间 <input type=text name="timesetting" value="0|24" size=10></td></tr> <tr><td height="23" colspan="2" class=forumrow>能使用插件的用户组 <input type=text name="Groupsetting" value="1@2@3@4@5@6@7@8" size=30>这里设置可以使用插件的用户组</td></tr> <tr><td height="23" colspan="2" class=forumrow>管理人员 <textarea name="plusmaster" cols="50" rows="5" ></textarea><br>这里设置插件的管理员,每个用户名用回车分隔开.系统默认论坛管理员可以管理插件,如果您不需要另外设置管理员,此项可以不填。</td></tr> <tr><th height="25" colspan="2" >限制项</th></tr> <tr><td height="23" colspan="2" class=forumrow> 能使用插件的最少文章 <input type=text name="Plus_UserPost" value=0 size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 能使用插件的最低金钱 <input type=text name="Plus_userWealth" value=0 size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 能使用插件的最低经验 <input type=text name="Plus_UserEP" value=0 size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 能使用插件的最低魅力 <input type=text name="Plus_UserCP" value=0 size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 能使用插件的最低威望 <input type=text name="Plus_UserPower" value=0 size=5></td></tr> <tr><th height="25" colspan="2" >更新项</th></tr> <tr><td height="23" colspan="2" class=forumrow> 每次使用插件金钱变化 <input type=text name="Plus_ADDuserWealth" value=0 size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 每次使用插件经验变化 <input type=text name="Plus_ADDUserEP" value=0 size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 每次使用插件魅力变化 <input type=text name="Plus_ADDUserCP" value=0 size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 每次使用插件威望变化 <input type=text name="Plus_ADDUserPower" value=0 size=5></td></tr> <% End If %> <tr><td height="23" colspan="2" class=forumrow>注意,如果用户组中的客人组(ID为7)设置为可进入,那么所有的限制项无效。<Br>更新项中如果是客人可使用,对客人无效</td></tr> <tr><th height="25" colspan="2" >插件自定权限设置</th></tr> <tr><td height="23" colspan="2" class=forumrow> <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=forumrowHighLight> <input type=submit name=submit value="提交"> </td></tr> </FORM> <%else%> <tr> <th height="23" colspan="2">添加菜单</th> </tr> <FORM METHOD=POST ACTION="?action=save"> <tr> <td height="23" colspan="2" class=forumrow> 标题: <input type=text size=50 name="title"> 可用HTML语法 </td></tr> <tr> <td height="23" colspan="2" class=forumrow> 是否在导航中显示: 是 <Input type="radio" name="Isuse" value="1" checked> 否 <input type="radio" name="Isuse" value="0" > </td></tr> <tr> <td height="23" colspan="2" class=forumrow> 分类: <Select Name="stype" size=1> <% Set Rs=Mybbs.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=forumrow> 注释: <input type=text size=50 name="readme"> 显示于链接上的title注释,也是插件的版权信息<BR> </td> </tr> <tr> <td height="23" colspan="2" class=forumrow> 模式: <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=forumrow> 链接: <input type=text size=50 name="url"> <BR> </td> </tr> <tr> <td height="23" colspan="2" class=forumrow> 后台管理链接: <input type=text size=50 name="plus_adminpage"> <BR> </td> </tr> <tr><th height="25" colspan="2" >插件常规设置</th></tr> <tr><td height="23" colspan="2" class=forumrow> 插件ID <input type=text name="plusID" value="newplus1" size="20">这是你插件的唯一的标识,注意不能有重复的。 <a href="http://bbs.Mybbs.net/Dv_plusInfo.asp" target="_blank" title="到我的论坛官方站查询关于插件的信息" >获得插件ID和信息</a> </td></tr> <tr><td height="23" colspan="2" class=forumrow>是否定时开放 是 <Input type="radio" name="useTime" value="1"> 否 <input type="radio" name="useTime" value="0" checked></td></tr> <tr><td height="23" colspan="2" class=forumrow>定时开放起止时间 <input type=text name="timesetting" value="0|24" size=10></td></tr> <tr><td height="23" colspan="2" class=forumrow>能使用插件的用户组 <input type=text name="Groupsetting" value="1@2@3@4@5@6@7@8" size=30>这里设置可以使用插件的用户组</td></tr> <tr><td height="23" colspan="2" class=forumrow>管理人员 <textarea name="plusmaster" cols="50" rows="5" ></textarea><br>这里设置插件的管理员,每个用户名用回车分隔开.系统默认论坛管理员可以管理插件,如果您不需要另外设置管理员,此项可以不填。</td></tr> <tr><th height="25" colspan="2" >限制项</th></tr> <tr><td height="23" colspan="2" class=forumrow> 能使用插件的最少文章 <input type=text name="Plus_UserPost" value=0 size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 能使用插件的最低金钱 <input type=text name="Plus_userWealth" value=0 size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 能使用插件的最低经验 <input type=text name="Plus_UserEP" value=0 size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 能使用插件的最低魅力 <input type=text name="Plus_UserCP" value=0 size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 能使用插件的最低威望 <input type=text name="Plus_UserPower" value=0 size=5></td></tr> <tr><th height="25" colspan="2" >更新项</th></tr> <tr><td height="23" colspan="2" class=forumrow> 每次使用插件金钱变化 <input type=text name="Plus_ADDuserWealth" value=0 size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 每次使用插件经验变化 <input type=text name="Plus_ADDUserEP" value=0 size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 每次使用插件魅力变化 <input type=text name="Plus_ADDUserCP" value=0 size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow> 每次使用插件威望变化 <input type=text name="Plus_ADDUserPower" value=0 size=5></td></tr> <tr><td height="23" colspan="2" class=forumrow>注意,如果用户组中的客人组(ID为7)设置为可进入,那么所有的限制项无效。<Br>更新项中如果是客人可使用,对客人无效</td></tr> <tr><th height="25" colspan="2" >插件自定义扩展设置</th></tr> <tr><td height="23" colspan="2" class=forumrow> <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 设置字段17=0 设置字段18=0 设置字段19=0 </textarea> </td></tr> <tr><td height="25" colspan="2" >说明:由于每个插件的设置不可能完全一样,设置字段的定义也不一样,这些都交给插件作者自行修改了。</td></tr> <tr> <td height="23" colspan="2" class=forumrowHighLight> <input type=submit name=submit value="提交"> </td></tr> </FORM> <%end if%> </table><BR> <% End Sub sub gradeinfo() dim trs Dim PSetting %> <table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder"> <tr><th width="100%" class="tableHeaderText" colspan=5>论坛插件菜单管理 </th> </tr> <tr> <td height="23" colspan="5" class=forumrow>注意:这里所添加内容将自动显示于论坛前台的顶部菜单</td> </tr> <tr> <td height="23" colspan="5" class=forumrow><a href="admin_plus.asp?action=AddNew">新建菜单</a> | <a href="admin_plus.asp?action=posttodb">导出插件模板数据</a> | <a href="admin_plus.asp?action=getfromdb">导入插件模板数据</a></td> </tr> <tr> <th height="23">标题</th> <th>分类</th> <th>窗口属性</th> <th>是否显示</th> <th>操作</th> </tr> <% Set Rs=Mybbs.Execute("Select * From Dv_Plus Order by ID Desc") Do While Not Rs.Eof PSetting=Split(Rs("Plus_Setting"),"|") %> <tr> <td height="23" class=forumrow><%=Rs("Plus_Name")%></td> <td class=forumrow> <%If Rs("Plus_type")=0 Then%> 一级菜单 <%Else%> <% Set tRs=Mybbs.Execute("Select * From Dv_Plus Where id="&Rs("Plus_Type")&"") If tRs.Eof And tRs.Bof Then Response.Write "该菜单分类有误,请编辑修正" Else Response.Write tRs("Plus_name") End If %> <%End If%> </td> <td class=forumrow> <% Select Case PSetting(0) Case 0 Response.Write "当前窗口" Case 1 Response.Write "新窗口" Case 2 Response.Write "固定大小窗口,宽"&PSetting(1)&",高 "&PSetting(2)&"" Case 3 Response.Write "全屏" End Select %> </td> <td class=forumrow align=center><%If Rs("isuse")=1 Then%>Yes<%Else%>No<%End If%></td> <td class=forumrow align=center><% If Rs("plus_adminpage") <> "" Then %> <a href="<%=Rs("plus_adminpage")%>">管理</a> | <% End If %> <a href="?action=edit&id=<%=rs("id")%>">编辑</a> | <a href="?action=del&id=<%=rs("id")%>">删除</a></td> </tr> <% Rs.MoveNext Loop Set Rs=Nothing end sub sub savenew() Dim plusID,plus_adminpage,Isuse plusID=Trim(Request("plusID")) If InStr(plusID,"'") >0 Then Response.Write "插件ID中不允许有单引号" exit sub End If If request("title")="" then Response.Write "请输入菜单的标题!" exit sub End If If plusID="" Then Response.Write "请设定插件ID" exit sub End If SQL="Select count(*) From Dv_plus where plus_ID='"&plusID&"'" Set rs=Mybbs.execute(SQL) If Rs(0) >0 Then Response.Write "你设置的插件ID已经存在,请另行设置。" exit sub End If Isuse=Request("Isuse") If Isuse<>"1" And Isuse<>"0" Then Isuse="1" Isuse=CInt(Isuse) plus_adminpage=Mybbs.checkStr(Request("plus_adminpage")) Dim Plus_SettingData,Plus_Setting,i,tmpstr Plus_Setting=Request("Plus_Setting") Plus_Setting=Split(Plus_Setting,vbCrLf) Plus_SettingData="" For i=0 to UBound(Plus_Setting) Plus_Setting(i)=Split(Plus_Setting(i),"=") If UBound(Plus_Setting(i))=1 Then If Plus_SettingData="" Then Plus_SettingData=Trim(Plus_Setting(i)(1)) tmpstr=Trim(Plus_Setting(i)(0)) Else Plus_SettingData=Plus_SettingData&","&Trim(Plus_Setting(i)(1)) tmpstr=tmpstr&","&Trim(Plus_Setting(i)(0)) End If End If Next Plus_SettingData=Plus_SettingData&"|||"&tmpstr&"|||" Dim plusmaster,masterlist plusmaster=Request("plusmaster") plusmaster=split(plusmaster,vbCrLf) masterlist="" For i=0 to UBound(plusmaster) If Trim(plusmaster(i)) <>"" Then If masterlist="" Then masterlist=plusmaster(i) Else masterlist=masterlist&"|"&plusmaster(i) End If End If Next Dim useTime,timesetting,Groupsetting,Plus_UserPost,Plus_userWealth,Plus_UserEP,Plus_UserCP Dim Plus_UserPower,Plus_ADDuserWealth,Plus_ADDUserEP,Plus_ADDUserCP,Plus_ADDUserPower,guestuse useTime=Request("useTime") If useTime="" Then useTime=0 timesetting=Trim(Request("timesetting")) If timesetting="" Then timesetting="0|24" Groupsetting=Trim(Request("Groupsetting")) Plus_UserPost=Trim(Request("Plus_UserPost")) If Plus_UserPost="" Then Plus_UserPost=0 Plus_userWealth=Trim(Request("Plus_userWealth")) If Plus_userWealth="" Then Plus_userWealth=0 Plus_UserEP=Trim(Request("Plus_UserEP")) If Plus_UserEP="" Then Plus_UserEP=0 Plus_UserCP=Trim(Request("Plus_UserCP")) If Plus_UserCP="" Then Plus_UserCP=0 Plus_UserPower=Trim(Request("Plus_UserPower")) If Plus_UserPower="" Then Plus_UserPower=0 Plus_ADDuserWealth=Trim(Request("Plus_ADDuserWealth")) If Plus_ADDuserWealth="" Then Plus_ADDuserWealth=0 Plus_ADDUserEP=Trim(Request("Plus_ADDUserEP")) If Plus_ADDUserEP="" Then Plus_ADDUserEP=0 Plus_ADDUserCP=Trim(Request("Plus_ADDUserCP")) If Plus_ADDUserCP="" Then Plus_ADDUserCP=0 Plus_ADDUserPower=Trim(Request("Plus_ADDUserPower")) If Plus_ADDUserPower="" Then Plus_ADDUserPower=0 guestuse=Request("guestuse") tmpstr=useTime&","×etting&","&Groupsetting&","&masterlist&","&plus_UserPost&"," tmpstr=tmpstr&Plus_userWealth&","&Plus_UserEP&","&Plus_UserCP&","&Plus_UserPower&"," tmpstr=tmpstr&Plus_ADDuserWealth&","&Plus_ADDUserEP&","&Plus_ADDUserCP&","&Plus_ADDUserPower&","&guestuse Plus_SettingData=Plus_SettingData&tmpstr set rs=server.createobject("adodb.recordset") sql="select * from dv_plus" rs.open sql,conn,1,3 rs.addnew Rs("plus_ID")=plusID rs("plus_type")=request("stype") rs("plus_name")=replace(request("title"),CHR(34),"") rs("isuse")=Isuse rs("IsShowMenu")=1 rs("Mainpage")=replace(request("url"),CHR(34),"") rs("plus_Copyright")=replace(request("readme"),CHR(34),"") rs("Plus_Setting")=request("windowtype") & "|" & request("windowwidth") & "|" & request("windowheight")&"|||"&Plus_SettingData Rs("plus_adminpage")=plus_adminpage rs.update rs.close set rs=nothing dv_suc("新建论坛菜单成功") DelForumPlusMenuCache End sub sub savedit() Dim plusID,plus_adminpage,Isuse plusID=Trim(Request("plusID")) If InStr(plusID,"'") >0 Then Response.Write "插件ID中不允许有单引号" exit sub End If If request("title")="" then Response.Write "请输入菜单的标题!" exit sub End If If plusID="" Then Response.Write "请设定插件ID" exit sub End If SQL="Select count(*) From Dv_plus where plus_ID='"&plusID&"' and id<>"&request("id")&"" Set rs=Mybbs.execute(SQL) If Rs(0) >0 Then Response.Write "你设置的插件ID已经存在,请另行设置。" exit sub End If Isuse=Request("Isuse") If Isuse<>"1" And Isuse<>"0" Then Isuse="1" Isuse=CInt(Isuse) plus_adminpage=Mybbs.Checkstr(Request("plus_adminpage")) Dim Plus_SettingData,Plus_Setting,i,tmpstr Plus_Setting=Request("Plus_Setting") Plus_Setting=Split(Plus_Setting,vbCrLf) Plus_SettingData="" For i=0 to UBound(Plus_Setting) Plus_Setting(i)=Split(Plus_Setting(i),"=") If UBound(Plus_Setting(i))=1 Then If Plus_SettingData="" Then Plus_SettingData=Trim(Plus_Setting(i)(1)) tmpstr=Trim(Plus_Setting(i)(0)) Else Plus_SettingData=Plus_SettingData&","&Trim(Plus_Setting(i)(1)) tmpstr=tmpstr&","&Trim(Plus_Setting(i)(0)) End If End If Next Plus_SettingData=Plus_SettingData&"|||"&tmpstr&"|||" Dim plusmaster,masterlist plusmaster=Request("plusmaster") plusmaster=split(plusmaster,vbCrLf) masterlist="" For i=0 to UBound(plusmaster) If Trim(plusmaster(i)) <>"" Then If masterlist="" Then masterlist=plusmaster(i) Else masterlist=masterlist&"|"&plusmaster(i) End If End If Next Dim useTime,timesetting,Groupsetting,Plus_UserPost,Plus_userWealth,Plus_UserEP,Plus_UserCP Dim Plus_UserPower,Plus_ADDuserWealth,Plus_ADDUserEP,Plus_ADDUserCP,Plus_ADDUserPower,guestuse useTime=Request("useTime") If useTime="" Then useTime=0 timesetting=Trim(Request("timesetting")) If timesetting="" Then timesetting="0|24" Groupsetting=Trim(Request("Groupsetting")) Plus_UserPost=Trim(Request("Plus_UserPost")) If Plus_UserPost="" Then Plus_UserPost=0 Plus_userWealth=Trim(Request("Plus_userWealth")) If Plus_userWealth="" Then Plus_userWealth=0 Plus_UserEP=Trim(Request("Plus_UserEP")) If Plus_UserEP="" Then Plus_UserEP=0 Plus_UserCP=Trim(Request("Plus_UserCP")) If Plus_UserCP="" Then Plus_UserCP=0 Plus_UserPower=Trim(Request("Plus_UserPower")) If Plus_UserPower="" Then Plus_UserPower=0 Plus_ADDuserWealth=Trim(Request("Plus_ADDuserWealth")) If Plus_ADDuserWealth="" Then Plus_ADDuserWealth=0 Plus_ADDUserEP=Trim(Request("Plus_ADDUserEP")) If Plus_ADDUserEP="" Then Plus_ADDUserEP=0 Plus_ADDUserCP=Trim(Request("Plus_ADDUserCP")) If Plus_ADDUserCP="" Then Plus_ADDUserCP=0 Plus_ADDUserPower=Trim(Request("Plus_ADDUserPower")) If Plus_ADDUserPower="" Then Plus_ADDUserPower=0 guestuse=Request("guestuse") tmpstr=useTime&","×etting&","&Groupsetting&","&masterlist&","&plus_UserPost&"," tmpstr=tmpstr&Plus_userWealth&","&Plus_UserEP&","&Plus_UserCP&","&Plus_UserPower&"," tmpstr=tmpstr&Plus_ADDuserWealth&","&Plus_ADDUserEP&","&Plus_ADDUserCP&","&Plus_ADDUserPower&","&guestuse Plus_SettingData=Plus_SettingData&tmpstr set rs=server.createobject("adodb.recordset") sql="select * from dv_plus where id="&request("id")&"" rs.open sql,conn,1,3 Rs("plus_ID")=plusID rs("plus_type")=request("stype") rs("plus_name")=replace(request("title"),CHR(34),"") rs("isuse")=Isuse rs("IsShowMenu")=1 rs("Mainpage")=replace(request("url"),CHR(34),"") rs("plus_Copyright")=replace(request("readme"),CHR(34),"") rs("Plus_Setting")=request("windowtype") & "|" & request("windowwidth") & "|" & request("windowheight")&"|||"&Plus_SettingData Rs("plus_adminpage")=plus_adminpage rs.update rs.close set rs=nothing dv_suc("修改论坛菜单成功") DelForumPlusMenuCache end sub sub del() Mybbs.Execute("Delete From Dv_Plus Where ID="&Request("id")&"") dv_suc("删除论坛菜单成功") DelForumPlusMenuCache end Sub Sub DelForumPlusMenuCache() Dim Templateslist Mybbs.Name="Templateslist" If Mybbs.ObjIsEmpty() Then Mybbs.ReloadTemplateslist() Templateslist= Mybbs.Value Templateslist=split(Templateslist,"@@@") Dim i For i=0 to UBound(Templateslist) Templateslist(i)=split(Templateslist(i),"|||") Mybbs.DelCahe("ForumPlusMenu"&Templateslist(i)(0)) Next Mybbs.DelCahe("Plus_Settingts") End Sub Sub FixPlusTable() Dim Rs,SQL SQL="select * From Dv_plus" Set Rs=Mybbs.Execute(SQL) If Rs.Fields.Count < 10 Then Set Rs=Nothing Mybbs.Execute("alter table [Dv_plus] add plus_adminpage varchar(100)") Mybbs.Execute("alter table [Dv_plus] add plus_id varchar(100)") Set Rs=Mybbs.Execute(SQL) If Not Rs.Eof Then Do While Not Rs.Eof Mybbs.execute("update [Dv_plus] set plus_id='newplus"&Rs(0)&"' Where ID="&Rs(0)&"") Rs.MoveNext Loop End If End If Set Rs=Nothing End Sub %>