plus.asp

公司企业网站管理系统全站源码,用于企业内部对网站的管理

设置字段17=0
设置字段18=0
设置字段19=0

</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>
<%
end if
%>
</table><BR>
<%
Call Select_Group(Replace(Groupids&"","@",","))
End Sub 

sub gradeinfo()
dim trs,rs
Dim PSetting
%>

<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
<tr><th width="100%" style="text-align:center;" colspan=5>论坛插件菜单管理
</th>
</tr>
<tr>
<td height="23" colspan="5" class=td1>注意：这里所添加内容将自动显示于论坛前台的顶部菜单</td>
</tr>
<tr>
<td height="23" colspan="5" class=td1><a href="plus.asp?action=AddNew">新建菜单</a> | <a href="plus.asp?action=posttodb">导出插件模板数据</a> | <a href="plus.asp?action=getfromdb">导入插件模板数据</a></td>
</tr>
<tr>
<th height="23" style="text-align:center;">标题</th>
<th>分类</th>
<th>窗口属性</th>
<th>是否显示</th>
<th>操作</th>
</tr>
<%
Set Rs=Dvbbs.Execute("Select * From Dv_Plus Order by ID Desc")
Do While Not Rs.Eof
PSetting=Split(Rs("Plus_Setting"),"|")
%>
<tr>
<td height="23" class=td1><%=Rs("Plus_Name")%></td>
<td class=td1>
<%If Rs("Plus_type")=0 Then%>
一级菜单
<%Else%>
<%
Set tRs=Dvbbs.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=td1>
<%
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=td1 align=center><%If Rs("isuse")=1 Then%>Yes<%Else%>No<%End If%></td>

<td class=td1 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,rs,sql
	plusID=Trim(Request("plusID"))
	If InStr(plusID,"'") >0 Then 
		Response.Write "插件ID中不允许有单引号"
		exit sub
	End If
	If request("title")="" then
		Errmsg = Errmsg + "请输入菜单的标题！"
		Dvbbs_Error()
		exit sub
	End If
	If plusID="" Then
		Errmsg = Errmsg + "请设定插件ID"
		Dvbbs_Error()
		exit sub
	End If
	SQL="Select count(*) From Dv_plus where plus_ID='"&plusID&"'"
	Set rs=Dvbbs.execute(SQL)
	If Rs(0) >0 Then
		Errmsg = Errmsg + "你设置的插件ID已经存在，请另行设置。"
		Dvbbs_Error()
		exit sub
	End If
	Isuse=Request("Isuse")
	If Isuse<>"1" And Isuse<>"0" Then Isuse="1"
	Isuse=CInt(Isuse)
	plus_adminpage=Dvbbs.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=Replace(Trim(Request("groupid"))&"",",","@")

	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&","&timesetting&","&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("新建论坛菜单成功")
	LoadForumPlusMenuCache
End sub
sub savedit()
	Dim plusID,plus_adminpage,Isuse,rs,sql
	plusID=Trim(Request("plusID"))
	If InStr(plusID,"'")>0 Then 
		Errmsg = Errmsg + "插件ID中不允许有单引号"
		Dvbbs_Error()
		exit sub
	End If
	If request("title")="" then
		Errmsg = Errmsg + "请输入菜单的标题！"
		Dvbbs_Error()
		exit sub
	End If
	If plusID="" Then
		Errmsg = Errmsg + "请设定插件ID"
		Dvbbs_Error()
		exit sub
	End If
	SQL="Select count(*) From Dv_plus where plus_ID='"&plusID&"' and id<>"&request("id")&""
	Set rs=Dvbbs.execute(SQL)
	If Rs(0) >0 Then
		Errmsg = Errmsg + "你设置的插件ID已经存在，请另行设置。"
		Dvbbs_Error()
		exit sub
	End If
	Isuse=Request("Isuse")
	If Isuse<>"1" And Isuse<>"0" Then Isuse="1"
	Isuse=CInt(Isuse)
	plus_adminpage=Dvbbs.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=Replace(Trim(Request("groupid"))&"",",","@")
	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&","&timesetting&","&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("修改论坛菜单成功")
	LoadForumPlusMenuCache
end sub


sub del()
	Dvbbs.Execute("Delete From Dv_Plus Where ID="&Request("id")&"")
	dv_suc("删除论坛菜单成功")
	LoadForumPlusMenuCache
end Sub
Sub LoadForumPlusMenuCache()
	Dvbbs.Name="Plus_Settingts"
	Dim Rs,SQL
	SQL = "select plus_ID,Plus_Setting,Plus_Name,plus_Copyright from [Dv_plus] Order By ID"
	Set Rs = Dvbbs.Execute(SQL)	
	If Not Rs.Eof Then
		Dvbbs.Name="Plus_Settingts"
		Dvbbs.value = Rs.GetRows(-1)
	End If
	Set Rs = Nothing
	Dvbbs.LoadPlusMenu()
End Sub
Sub FixPlusTable()
	Dim Rs,SQL
	SQL="select * From Dv_plus"
	Set Rs=Dvbbs.Execute(SQL)
	If Rs.Fields.Count < 10 Then
		Set Rs=Nothing
		Dvbbs.Execute("alter table [Dv_plus] add plus_adminpage varchar(100)")
		Dvbbs.Execute("alter table [Dv_plus] add plus_id varchar(100)")
		Set Rs=Dvbbs.Execute(SQL)
		If Not Rs.Eof Then
			Do While Not Rs.Eof
				Dvbbs.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
%>