admin_plus.asp

正版创力4.1SQL商业版!!!ASP版。

	<tr class="tdbg">
		<td width="130" align="center"><strong>Plus.Setting(19)：</strong></td>
		<td><input name="PlusSetting(19)" type="text" id="PlusSetting(19)" size="6" maxlength="10" value="<%=arrPlusSetting(19)%>">
		</td>
	</tr>
	<tr class="tdbg">
		<td colspan="2">
		说明：由于每个插件的设置不可能完全一样，设置字段的定义也不一样，这些都交给插件作者自行修改了。
		</td>
	</tr>
	<tr class="tdbg">
		<td height="40" align="center">
		<input name="ID" type="hidden" id="ID" value="<%=ID%>">
		<input name="Action" type="hidden" id="Action" value="<%=StrAction%>">
		<input name="Submit" type="submit" id="Submit" value="<%=StrSubmit%>">
		</td>
	</tr>
</table>
</form>
<%
End Sub

Sub SavePlus()
	ID      = Trim(Request("ID"))
	PlusID      = Trim(Request("PlusID"))
	PlusName    = Trim(Request("PlusName"))
	PlusLink    = Trim(Request("PlusLink"))
	UserLink    = Trim(Request("UserLink"))
	UserGroup   = Trim(Request("UserGroup"))
	PlusIntro   = Trim(Request("PlusIntro"))
	UserMenu    = Trim(Request("UserMenu"))
	PlusMenu    = Trim(Request("PlusMenu"))
	PlusAdmin   = Trim(Request("PlusAdmin"))
	AdminOnly   = Cl.GetClng(Request("AdminOnly"))
	IsUse       = Cl.GetClng(Request("IsUse"))
	PlusType    = Cl.GetClng(Request("PlusType"))
	UserType    = Cl.GetClng(Request("UserType"))
	OrderID     = Cl.GetClng(Request("OrderID"))
	PlusSetting = Cl.GetClng(Request("PlusSetting(0)"))
	for i=1 to 19
	PlusSetting = PlusSetting & "," & Cl.GetClng(Request("PlusSetting"))
	next
	if Action="SaveModify" and Not IsNumeric(ID) then
		Call Cl.OutMsg(0,"请指定要修改插件的正确ID。","javascript:history.go(-1)")
	end if
	if PlusName="" then Call Cl.OutMsg(0,"插件名不能为空。","javascript:history.go(-1)")
	if Not IsNumeric(OrderID) then Call Cl.OutMsg(0,"请输入合法的优先级数字，必需为数字。","javascript:history.go(-1)")
	if PlusID="" then Call Cl.OutMsg(0,"插件ID不能为空。","javascript:history.go(-1)")
	if AdminOnly<>0 and AdminOnly<>1 then AdminOnly=0
	if Action="SaveModify" then
		Cl.Execute("Update Cl_Plus Set PlusName='"&Cl.CheckStr(PlusName)&"',PlusIntro='"&Cl.CheckStr(PlusIntro)&"',OrderID="&OrderID&",PlusSetting='"&Cl.CheckStr(PlusSetting)&"',PlusMenu='"&Cl.CheckStr(PlusMenu)&"',PlusAdmin='"&Cl.CheckStr(PlusAdmin)&"',PlusType='"&Cl.CheckStr(PlusType)&"',UserGroup='"&Cl.CheckStr(UserGroup)&"',IsUse='"&Cl.CheckStr(IsUse)&"',PlusID='"&Cl.CheckStr(PlusID)&"',PlusLink='"&Cl.CheckStr(PlusLink)&"',AdminOnly="&AdminOnly&",UserType="&UserType&",UserMenu='"&UserMenu&"',UserLink='"&UserLink&"' where ID="&Clng(ID)&"")
		'Cl.DelCahe("ReplacePlus")
		Response.Write "<script language='JavaScript' type='text/JavaScript'>" &vbcrlf
		Response.Write "parent.left.location.reload();" &vbcrlf
		Response.Write "</script>"
		Call Cl.OutMsg(0,"修改插件成功。","Admin_Plus.asp")
	else
		'Cl.Execute("Insert Into [Cl_Plus] (PlusName,PlusInero,OrderID,PlusSetting) Values ('"&PlusName&"','"&PlusInero&"','"&OrderID&"','"&PlusSetting&"')")
		Set rs=Server.CreateObject("Adodb.RecordSet")
		Sql="Select * From Cl_Plus where PlusID='"&PlusID&"'"
		OpenConn : rs.Open sql,Conn,1,3
		if Not (Rs.bof and Rs.eof) then
			Rs.Close:Set Rs=Nothing
			Call Cl.OutMsg(0,"插件ID已经存在，请重新换一个插件ID。","javascript:history.go(-1)")
		end if

		Rs.Addnew
		Rs("PlusID")=PlusID
		Rs("PlusName")=PlusName
		Rs("PlusLink")=PlusLink
		Rs("UserGroup")=UserGroup
		Rs("PlusMenu")=PlusMenu
		Rs("PlusAdmin")=PlusAdmin
		Rs("IsUse")=IsUse
		Rs("PlusType")=PlusType
		Rs("UserMenu")=UserMenu
		Rs("UserLink")=UserLink
		Rs("UserType")=UserType
		Rs("PlusIntro")=PlusIntro
		Rs("OrderID")=Clng(OrderID)
		Rs("AdminOnly")=AdminOnly
		Rs("PlusSetting")=PlusSetting
		Rs.Update
		Rs.Close:Set Rs=Nothing
		'Cl.DelCahe("ReplacePlus")
		Cl.SaveAdminLog
		Response.Write "<script language='JavaScript' type='text/JavaScript'>" &vbcrlf
		Response.Write "parent.left.location.reload();" &vbcrlf
		Response.Write "</script>"
		Call Cl.OutMsg(0,"添加插件成功。","Admin_Plus.asp")
	end if
end Sub

Sub DelPlus()
	ID=Trim(Request("ID"))
	if Not IsNumeric(ID) then
		Call Cl.OutMsg(0,"请正确指定要删除插件的ID。","javascript:history.go(-1)")
	end if
	Cl.Execute("delete * from Cl_Plus where ID="&Clng(ID)&"")
	Cl.DelCahe("ReplacePlus")
	Cl.SaveAdminLog
	Response.Write "<script language='JavaScript' type='text/JavaScript'>" &vbcrlf
	Response.Write "parent.left.location.reload();" &vbcrlf
	Response.Write "</script>"
	Call Cl.OutMsg(0,"删除插件成功。","Admin_Plus.asp")
End Sub

Sub InputPlus()
%>
	<form action="?action=LoadPlus" method=post>
	<table border="0"  cellspacing="1" cellpadding="5" height="1" align=center width="95%" class="Border">
	<tr><td colspan="2" class="title">导入插件</td></tr>
	<tr>
	<td width="20%" class="tdbg">导入插件数据库名：</td>
	<td width="80%" class="tdbg">
	<input type="text" name="Plusmdb" size="30" value="../Skins/Cl_Plus.mdb">
	<input type="hidden" name="ReAct" value="ShowPlus">
	</td>
	</tr>
	<tr><td colspan="2" class="tdbg"><input type="submit" name="submit" value="下一步"></td></tr>
	</table></form>
<%
End Sub

Sub OutputPlus()
Set rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select ID,PlusID,PlusName,PlusIntro From Cl_Plus Order by ID Desc"
OpenConn : rs.Open sql,Conn,1,1
%>
<script language="JavaScript" type="text/javascript">
<!--
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
	var e = form.elements[i];
	if (e.name != 'chkall'){
	e.checked = form.chkall.checked;
	}
   }
  }
//-->
</script>
	<form action="?action=CreatePlus" method=post>
	<table border="0" cellspacing="1" cellpadding="5" align=center width="95%" class="Border">
	<tr><td width="100%" colspan="5" class="title">导出网站插件列表</td></tr>
	<tr class="title2">
	<td width="10%"  align="center">插件ID</td>
	<td width="25%"  align="center">插件名称</td>
	<td width="45%"  align="center">插件说明</td>
	<td width="5%"  align="center">选择</td>
	</tr>
<%
 if rs.eof and rs.bof then
	response.write "<tr class='tdbg'><td align='center' colspan='5'><br />没有任何记录！<br /></td></tr>"
else
	do while not rs.EOF%>
	<tr class="tdbg">
		<td width="10%" align="center"><%=rs("PlusID")%></td>
		<td width="25%" align="center"><a href="Admin_Plus.asp?Action=Modify&ID=<%=rs("ID")%>"><%=rs("PlusName")%></a></td>
		<td width="45%" align="center"><%=rs("PlusIntro")%></td>
		<td><input type="checkbox" name="ID" value="<%=rs("ID")%>"></td>
	</tr>
	<%
		rs.MoveNext
	loop
%>
	<tr>
	<td colspan="5" align="right" class="tdbg">
	导出的数据库：<input type="text" name="Plusmdb" size="30" value="../Skins/Cl_Plus.mdb">
	<input type="submit" name="submit" value="导出">
	<input type=checkbox name=chkall value=on onclick="CheckAll(this.form)">全选</td>
	</tr>
<%
rs.Close:Set rs=Nothing 
end if
%>
</table>
</form>
<%
End Sub

Sub CreatePlus()
	dim mdbname
	ID=Cl.checkstr(Request("ID"))
	mdbname=Cl.Checkstr(Trim(Request.form("Plusmdb")))
	If ID="" or isnull(ID) or Not Isnumeric(Replace(Replace(ID,",","")," ","")) Then
		Admin_ShowErr("<br /><li>您还未选取要导入的插件")
	End If
	If mdbname="" Then
		Admin_ShowErr("<br /><li>请填写导入插件数据库名")
	End If
	Call DataBaseConnection(mdbname)
	Dim Rs1,Rs2,Sql1,Sql2
	Set Rs1=Server.CreateObject("ADODB.Recordset")
	Set Rs2=Server.CreateObject("ADODB.Recordset")
	Sql1 = "Select * from Cl_Plus where ID in ("&ID&")"
	openconn : rs1.open sql1,conn,1,1
	do while not rs1.EOF
		Sql2 = "Select * from Cl_Plus where PlusName='"&rs1("PlusName")&"'"
		rs2.open sql2,PlusConn,3,3
		If rs2.eof and rs2.bof Then
			rs2.addnew
			rs2("PlusName")=rs1("PlusName")
			rs2("PlusIntro")=rs1("PlusIntro")
			rs2("OrderID")=rs1("OrderID")
			rs2("PlusSetting")=rs1("PlusSetting")
			Rs2("PlusID")=rs1("PlusID")
			Rs2("PlusLink")=rs1("PlusLink")
			Rs2("UserGroup")=rs1("UserGroup")
			Rs2("PlusMenu")=rs1("PlusMenu")
			Rs2("PlusAdmin")=rs1("PlusAdmin")
			Rs2("IsUse")=rs1("IsUse")
			Rs2("UserMenu")=rs1("UserMenu")
			Rs2("UserType")=rs1("UserType")
			Rs2("UserLink")=rs1("UserLink")
			Rs2("AdminOnly")=rs1("AdminOnly")
			Rs2("PlusType")=rs1("PlusType")
			rs2.update
		Else
			Admin_ShowErr("<br /><li>插件数据库中中存在插件"&rs2("PlusName")&",如果要导入请先删除插件数据库中的该插件。")
		End if
		rs1.MoveNext
		rs2.Close
	loop
	rs1.Close:Set rs1=Nothing:Set rs2=Nothing
	Call Cl.OutMsg(0,"插件数据导出成功。","Admin_Plus.asp")
End Sub

Sub LoadPlus()
	dim mdbname
	mdbname=Cl.Checkstr(Trim(Request.form("Plusmdb")))
	Call DataBaseConnection(mdbname)
	Set rs=Server.CreateObject("Adodb.RecordSet")
	Sql="Select ID,PlusID,PlusName,PlusIntro From Cl_Plus Order by ID Desc"
	rs.Open sql,PlusConn,1,1
%>
	<script language="JavaScript" type="text/javascript">
	<!--
	function CheckAll(form)  {
	  for (var i=0;i<form.elements.length;i++)    {
		var e = form.elements[i];
		if (e.name != 'chkall'){
		e.checked = form.chkall.checked;
		}
	  }
	}
	//-->
	</script>
	<form action="?action=LoadInPlus" method=post>
	<table border="0" cellspacing="1" cellpadding="5" align=center width="95%" class="Border">
	<tr><td width="100%" colspan="5" class="title">导入网站插件列表</td></tr>
	<tr class="title2">
	<td width="10%"  align="center">插件ID</td>
	<td width="25%"  align="center">插件名称</td>
	<td width="45%"  align="center">插件说明</td>
	<td width="5%"  align="center">选择</td>
	<td width="5%"  align="center">操作</td>
	</tr>
<%
	if rs.eof and rs.bof then
		response.write "<tr class='tdbg'><td align='center' colspan='5'><br />没有任何记录！<br /></td></tr>"
	else
		do while not rs.EOF%>
		<tr class="tdbg">
		<td width="10%" align="center"><%=rs("PlusID")%></td>
		<td width="25%" align="center"><%=rs("PlusName")%></td>
		<td width="45%" align="center"><%=rs("PlusIntro")%></td>
		<td><a href="?Action=Delout&ID=<%=rs("ID")%>&dbpath=<%=mdbname%>">删除</a></td>
		<td><input type="checkbox" name="ID" value="<%=rs("ID")%>"></td>
		</tr>
		<%
			rs.MoveNext
		loop
%>
	<tr>
	<td colspan="5" align="right" class="tdbg">
	<input type="hidden" name="mdbname" id="mdbname" value="<%=mdbname%>">
	<input type="submit" name="submit" value="导入">
	<input type=checkbox name=chkall value=on onclick="CheckAll(this.form)">全选</td>
	</tr>
<%
	rs.Close:Set rs=Nothing 
	end if
	%>
	</table>
	</form>
<%
End Sub

Sub LoadInPlus()
	dim mdbname
	mdbname=Cl.Checkstr(Trim(Request.form("mdbname")))
	Call DataBaseConnection(mdbname)
	ID=Cl.checkstr(Request("ID"))
	If ID="" or isnull(ID) or Not Isnumeric(Replace(Replace(ID,",","")," ","")) Then
		Admin_ShowErr("<br /><li>您还未选取要导入的插件")
	End If
	If mdbname="" Then
		Admin_ShowErr("<br /><li>请填写导入插件数据库名")
	End If
	Dim Rs1,Rs2,Sql1,Sql2
	Set Rs1=Server.CreateObject("ADODB.Recordset")
	Set Rs2=Server.CreateObject("ADODB.Recordset")
	Sql1 = "Select * from Cl_Plus where ID in ("&ID&")"
	OpenConn : rs1.open sql1,PlusConn,1,1
	do while not rs1.EOF
		Sql2 = "Select * from Cl_Plus where PlusName='"&rs1("PlusName")&"'"
		rs2.open sql2,conn,3,3
		If rs2.eof and rs2.bof Then
			rs2.addnew
			rs2("PlusName")=rs1("PlusName")
			rs2("PlusIntro")=rs1("PlusIntro")
			rs2("OrderID")=rs1("OrderID")
			rs2("PlusSetting")=rs1("PlusSetting")
			Rs2("PlusID")=rs1("PlusID")
			Rs2("PlusLink")=rs1("PlusLink")
			Rs2("UserGroup")=rs1("UserGroup")
			Rs2("PlusMenu")=rs1("PlusMenu")
			Rs2("PlusAdmin")=rs1("PlusAdmin")
			Rs2("IsUse")=rs1("IsUse")
			Rs2("AdminOnly")=rs1("AdminOnly")
			Rs2("PlusType")=rs1("PlusType")
			Rs2("UserMenu")=rs1("UserMenu")
			Rs2("UserType")=rs1("UserType")
			Rs2("UserLink")=rs1("UserLink")
			rs2.update
		Else
			Admin_ShowErr("<br /><li>系统中存在插件"&rs2("PlusName")&",如果要导入请先删除系统中原插件。")
		End if
		rs1.MoveNext
		rs2.Close
	loop
	rs1.Close:Set rs1=Nothing:Set rs2=Nothing
	Response.Write "<script language='JavaScript' type='text/JavaScript'>" &vbcrlf
	Response.Write "parent.left.location.reload();" &vbcrlf
	Response.Write "</script>"
	Call Cl.OutMsg(0,"插件数据导入成功。","Admin_Plus.asp")
End Sub

Sub Delout()
	dim dbpath
	dbpath=Cl.Checkstr(Trim(Request("dbpath")))
	Call DatabaseConnection(dbpath)
	ID=Trim(Request("ID"))
	if Not IsNumeric(ID) then
		Call Cl.OutMsg(0,"请正确指定要删除插件的ID。","javascript:history.go(-1)")
	end if
	If dbpath="" Then
		Admin_ShowErr("<br /><li>请填写导入插件数据库名")
	End If
	Dim sql,rs
	Set Rs=Server.CreateObject("ADODB.Recordset")
	sql="Delete * from Cl_Plus where ID="&Clng(ID)&""
	rs.open sql,PlusConn,1,3
	Call Cl.OutMsg(0,"插件删除成功。","javascript:history.go(-1)")
End Sub

Sub DataBaseConnection(mdbname)
	On Error Resume Next 
	Set PlusConn = Server.CreateObject("ADODB.Connection")
	PlusConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdbname)
	If Err.Number ="-2147467259"  Then 
		Admin_ShowErr("<li>"&Server.MapPath(mdbname)&"数据库不存在。")
		Response.end
	End If
End Sub
%>