loadskin.asp

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

	%>
	<tr>
	<td colspan="5" align=center class="forumRowHighlight">
	数据库：<input type="text" name="skinmdb" size="30" value="<%=Request.Form("skinmdb")%>" readonly>
	<input type="submit" class="button" name="submit" value="导 入" > 
	</td>
	</tr>
	</table>
	</form>
	<br>
	<form method="post" action="Loadskin.asp?action=doupdate">
	<table border="0" cellspacing="1" cellpadding="4" align="center" width="100%">
	<tr><th colspan="2" style="text-align:center;">模板和CSS的导入[覆盖模式]</th>
	</tr>
	<tr>
	<td class="forumrow" align="left" colspan="2" style="padding:10px;">请在源模板中选择一份，再在目标（论坛）的模板中选择一份。然后提交，覆盖操作每次只可以处理一份模板。</td>
	</tr>
	<tr>
	<td width="50%" align="center" class="bodytitle">选择源模板</td>
	<td width="50%" align="center" class="bodytitle">选择被覆盖的目标模板</td>
	</tr>
	<tr>
	<td width="50%" class="forumrow" align="left" style="padding:5px;">
	<%
	i = 0
	do while not Rs.eof%>
	<div><input type="radio" class="radio" name="inid" value="<%=Rs("ID")%>" <% If i= 0 Then Response.Write " checked"%>><b><%=Rs("StyleName")%></b><ul style="margin-top : 0px;margin-bottom : 0px;"><li><b>日期：</b><%=Rs("DateAndTime")%></li><li><b>说明：</b><%=Rs("readme")%></li></ul></div>
	<%
	i = 1
	Rs.movenext
		loop
	%>
	</td>
	<td width="50%" class="forumrow" align="left" style="padding:5px;">
	<%
		i = 0
	do while not Rs1.eof%>
	<div><input type="radio" class="radio" name="toid" value="<%=Rs1(0)%>" <% If i= 0 Then Response.Write " checked"%>><b><%=Rs1(1)%></b></div>
	<%
		i = 1
	Rs1.movenext
		loop
	%>
	</td>
	</tr>
	<tr>
	<td width="50%" align="center" class="bodytitle">数据项目</td>
	<td width="50%" align="center" class="bodytitle">操作选择</td>
	</tr>
	<% For i= 2 to 20%>
	<tr>
	<td width="50%" class="forumrow" align="center"><%=Rs(i).name%></td>
	<td width="50%" class="forumrow" align="center">
	<input type="checkbox" class="checkbox" name="<%=Rs(i).name%>" value="1" checked> 覆盖
	</td>
	</tr>
	<%Next%>
	<tr>
	<td colspan="2" align="center" class="forumRowHighlight">
	数据库：<input type="text" name="skinmdb" size="30" value="<%=Request.Form("skinmdb")%>" readonly>
	<input type="submit" class="button" name="submit" value="覆 盖" > 
	</td>
	</tr>
	</table>
	</form>
	<%
	Else
			Errmsg=ErrMsg + "<BR><li>数据库"& Request.Form("skinmdb")&"不存在或有错误.</li>"
			dvbbs_error()
	End If
End Sub
Sub Main
	
	Readme()
	Skinlist()
	
End Sub
Sub Setup1()%>
		<form method="post" action="Loadskin.asp?action=load&setup=1">
<table border="0" cellspacing="1" cellpadding="4" align="center" width="100%">
	<tr><th colspan="4" style="text-align:center;">模板和CSS的入</th>
	</tr>
		<tr>
		<td class="forumrow" align="left" colspan="4" style="padding:10px;">您现在要执行的是模板和CSS的导入，请设置好要导入的源数据库名称，然后提交。</td>
			</tr>
	<tr>
	<td colspan="4" align=center class="forumRowHighlight">
	数据库：<input type="text" name="skinmdb" size="30" value="Dv_skin.mdb">
	<input type="submit" class="button" name="submit" value="读 取" > 
	</td>
	</tr>
</table>
</form>
<%
End Sub
Sub doout()
		Dim Rs,node,skid,cssid,RsSkin,i
		If Request.form("skid")="" Then
			Errmsg=ErrMsg + "<BR><li>必须选择要导出的模板."
			dvbbs_error()
			Exit Sub
		End If
	 If SkinConnection(Request.Form("skinmdb")) Then
		Set Rs=Dvbbs.Execute("select Forum_Css From Dv_Setup")
		Set CssList=Server.CreateObject("Msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
		CssList.LoadXMl Rs(0)
		Set Rs=Nothing
		For Each skid in Request.form("skid") 
			Set Rs=Dvbbs.Execute("select * From Dv_style Where ID="&CLng(skid))
			Set cssid=Request.Form("cssid_"&skid)
			Set RsSkin=Server.CreateObject("adodb.recordset")
			RsSkin.open "Select * From Dv_Style Where Id=0",StyleConn,1,3
			RsSkin.AddNew
			RsSkin("StyleName")=Request.Form("StyleName"&skid)
			RsSkin("Main_Style")=Rs("Main_Style")
			RsSkin("Style_Pic")=Rs("Style_Pic")
			RsSkin("page_index")=Rs("page_index")
			RsSkin("page_dispbbs")=Rs("page_dispbbs")
			RsSkin("page_showerr")=Rs("page_showerr")
			RsSkin("page_login")=Rs("page_login")
			RsSkin("page_online")=Rs("page_online")
			RsSkin("page_usermanager")=Rs("page_usermanager")
			RsSkin("page_fmanage")=Rs("page_fmanage")
			RsSkin("page_boardstat")=Rs("page_boardstat")
			RsSkin("page_paper_even_toplist")=Rs("page_paper_even_toplist")
			RsSkin("page_query")=Rs("page_query")
			RsSkin("page_show")=Rs("page_show")
			RsSkin("page_dispuser")=Rs("page_dispuser")
			RsSkin("page_help_permission")=Rs("page_help_permission")
			RsSkin("page_postjob")=Rs("page_postjob")
			RsSkin("page_post")=Rs("page_post")
			RsSkin("page_boardhelp")=Rs("page_boardhelp")
			RsSkin("page_indivgroup")=Rs("page_indivgroup")
			RsSkin("Forum_CSS")=OutCSSDom(cssid).xml
			RsSkin("DateAndTime")=Now()
			RsSkin("Readme")=Request.Form("readme"&skid)
			RsSkin.Update
			RsSkin.Close
		Next
		Dv_suc "模板数据已经保存到您的论坛根目录下的skins下,文件名为"&Request.Form("skinmdb") 
	 Else
			Errmsg=ErrMsg + "<BR><li>目标数据库"& Request.Form("skinmdb")&"不存在或有错误.</li>"
			dvbbs_error()
	 End If
End Sub
Function OutCSSDom(IDlist)
	Dim XML
	Set XML=CssList.cloneNode(True)
	Dim Node,cssid,id
	cssid=""
		For Each id in IDlist
			If IsNumeric(id) and id<>"" Then
				If cssid="" Then
					cssid="@id !="&id&" "
				Else
					cssid=cssid & "and @id !="&Id&" "
				End If
			End If
		Next
		If CssID<>"" Then CssID="["&CssID&"]"
		For Each Node in XML.documentElement.SelectNodes("css"&CSSID)
			XML.documentElement.removeChild(node)
		Next
		Set OutCSSDom=XML
End Function
Function  SkinConnection(mdbname)
	On Error Resume Next 
	Set StyleConn = Server.CreateObject("ADODB.Connection")
	StyleConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(MyDbPath &"skins/"&mdbname)
	If Err  Then 
		err.Clear
		SkinConnection=False
	Else
			SkinConnection=True
	End If
End Function
Sub Readme()
	%>
<table border="0" cellspacing="1" cellpadding="5" align="center" width="100%">
<tr>
<th colspan="3" style="text-align:center;" id="TableTitleLink">
<a href="Loadskin.asp">模板和CSS导入和导出管理</a>
</th>
</tr>
<tr>
<td class="forumHeaderBackgroundAlternate">请选择操作：
<a href="Loadskin.asp" style="color : blue;">导 出</a> 
| <a href="Loadskin.asp?action=load" style="color : blue;">导 入</a>
</td>
</tr>
</table>
<br>
	<%
End Sub
Sub Skinlist()
	Dim Rs,node
	Set Rs=Dvbbs.Execute("select Forum_Css From Dv_Setup")
	Set CssList=Server.CreateObject("Msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
	CssList.LoadXMl Rs(0)
	Set Rs=Nothing
	Set Rs=Dvbbs.Execute("select ID,StyleName From Dv_style")
	%>
	<form method="post" action="Loadskin.asp?action=doout">
<table border="0" cellspacing="1" cellpadding="4" align="center" width="100%">
	<tr><th colspan="4" style="text-align:center;">模板和CSS的导出</th>
	</tr>
		<tr>
		<td class="forumrow" align="left" colspan="4" style="padding:10px;">您现在要执行的是模板和CSS的导出,把需要导出的勾上,设置好保存的数据库名称,然后提交.</td>
			</tr>
	<tr>
	<td width="40" align="center" class="bodytitle">选择</td>
	<td width="100" align="center" class="bodytitle">模版名称</td>
	<td width="150" class="bodytitle">附加说明</td>
	<td width="402" class="bodytitle">适用的CSS样式</td>
	</tr>
	<%
	do while not Rs.eof
	%>
	<tr>
	<td width="40" class="forumrow" align="center"><input type="checkbox" class="checkbox" name="skid" value="<%=Rs("id")%>"></td>
	<td width="100" class="forumrow" align="center"><Input tyle="text" Name="StyleName<%=Rs("id")%>" value="<%=Rs("StyleName")%>"></td>
	<td width="150" class="forumrow"><div align="left">
	<textarea name="readme<%=Rs("id")%>" rows="4" cols="30">Skin for <%=fversion%>(From <%=Dvbbs.Forum_info(0)%>)</textarea>
	</div></td>
	<td width="402" class="forumrow">
	<%
	For Each Node in CssList.documentElement.selectNodes("css[tid='"& Rs("id") &"']")
	%>
	<input type="checkbox" class="checkbox" name="cssid_<%=Rs("id")%>" value="<%=node.selectSingleNode("@id").text%>">
	<%=node.selectSingleNode("@type").text%>
	<%
	Next
	%>
	</td>
	</tr>
	<%	Rs.movenext
		loop
		Rs.close:Set Rs=Nothing
	%>
	<tr>
	<td colspan="4" align=center class="forumRowHighlight">
	导出到数据库：<input type="text" name="skinmdb" size="30" value="Dv_skin.mdb">
	<input type="submit" class="button" name="submit" value="导 出" > 
	</td>
	</tr>
	</table>
	</form>
	<%
End Sub
%>