template.asp

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

		Dvbbs_error()
	End If
	Dvbbs.Execute("update [Dv_Style] set StyleName='"&StyleName&"' where id="&StyleID&"")
	Dv_suc("模板名修改成功!")
		Dvbbs.loadSetup()
	Dvbbs.Loadstyle()
End Sub
Sub EditCss()
	Dim Rs,CSSDOM,Css,tp,i
	Set Rs=Dvbbs.Execute("Select Forum_CSS From [Dv_Setup]")
	Set CSSDOM=Server.CreateObject("Msxml2.FreeThreadedDOMDocument")
	CSSDOM.loadxml Rs(0)&""
	Rs.close
	Response.Write "<br /><table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=""center"">"
	Response.Write "<tr>"
	Response.Write "<th width=""100%"" style=""text-align:center;"" colspan=2>"
	Response.Write "论坛风格样式管理"
	Response.Write "</th></tr>"
	Response.Write "<tr><td>"
	Response.Write "说明:图片包路径最后必须包含""/"",生成文件必须支持写文件到服务器,如不支持请清空"
	Response.Write "</td></tr></table>"
	%>
	<SCRIPT LANGUAGE="JavaScript">
	<!--
	function EditCss(n)
	{
		n=n-1;
		if (!document.cssform.CssBody.length){
			var CssObj = document.cssform.CssBody;
			var EditObj = document.cssform.CssEdit;
			
		}else{
			var CssObj = document.cssform.CssBody[n];
			var EditObj = document.cssform.CssEdit[n];
		}
		
		var trid=document.getElementsByName('CssTR');
		 for (var i=0;i<trid.length;i++)    {
			if (i!=n){
			trid[i].style.display="none";
			}
		   }
		EditTextarea.style.display = '';
		document.cssform.CssContent.value = CssObj.value;
		document.cssform.TempID.value = n;
		EditObj.disabled=true;
	}
	
	function DllData(n){
		n=n-1;
		if (!document.cssform.DelCss.length){
			if (document.cssform.DelCss.checked==true){
			document.cssform.CssName.value = '计划将删除...';
			document.cssform.CssName.disabled = true;
			document.cssform.CssBody.disabled = true;
			document.cssform.CssPicUrl.disabled = true;
			document.cssform.CssEdit.disabled=true;
			document.cssform.filename.disabled=true;
			}else{
			 location.reload();
			}
		}else{
			if (document.cssform.DelCss[n].checked==true){
			document.cssform.CssName[n].value = '计划将删除...';
			document.cssform.CssName[n].disabled = true;
			document.cssform.CssBody[n].disabled = true;
			document.cssform.CssPicUrl[n].disabled = true;
			document.cssform.CssEdit[n].disabled=true;
			document.cssform.filename[n].disabled=true;
			}else{
			 location.reload();
			}
		}
	}
	
	function SubmitData(){
		var NewData,UpObject
		var e = document.cssform;
		NewData=e.CssContent.value;
		UpObject=e.TempID.value;
		if (NewData!=''){
			if (UpObject=="0"){
				e.CssBody.value=NewData;
			}else{
				e.CssBody[UpObject].value=NewData;
			}
		}
		if (e.CssName.length){
			for (var i=0;i<e.CssName.length;i++){
				if (e.CssName[i].value == '计划将删除...' || e.CssName[i].value == ''){
				e.CssName[i].value = '';
				e.CssBody[i].value = '';
				e.CssPicUrl[i].value = '';
				e.filename[i].value = '';
				}
			}
		}else{
			if (e.CssName.value == '计划将删除...' || e.CssName.value == ''){
			e.CssName.value = '';
			e.CssBody.value = '';
			e.CssPicUrl.value = '';
			e.filename.value = '';
			}
		}
	}
	//-->
	</SCRIPT>
	<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
	<form action="?action=savecss&StyleID=<%=StyleID%>" method="post" name="cssform" onsubmit="SubmitData();">
	<tr>
	<td width="5%" class="bodytitle" align=center>ID</td>
	<td width="15%" class="bodytitle" align=center>名称</td>
	<td width="15%" class="bodytitle" align=center>对应模板</td>
	<td width="15%" class="bodytitle" align=center>图片包路径</td>
	<td width="15%" class="bodytitle" align=center>生成文件</td>
	<td width="15%" class="bodytitle" align=center>操作</td>
	<td width="5%" class="bodytitle" align=center>删除</td>
	</tr>
	<tr><td class="tableBorder1" colspan="7"></td></tr>
	<%
	For Each Css in CSSDOM.documentElement.selectNodes("css")
	%>
	<tr Name="CssTR" id="CssTR">
	<td class="td2" align="center"><%=Css.selectSingleNode("@id").text%></td>
	<td class="td1" align="center"><input type=text value="<%=Css.selectSingleNode("@type").text%>" name="CssName"></td>
	<td class="td1" align="center">
	<Select  Name="TemplateID" size="1">
	<%
	For Each tp in Application(Dvbbs.CacheName &"_style").documentElement.selectNodes("style")
		Response.Write "<Option Value="""&tp.selectSingleNode("@id").text&""""
		If Not Css.selectSingleNode("tid[.='"& tp.selectSingleNode("@id").text &"']") Is Nothing Then
			Response.Write " selected "
		End If
		Response.Write ">"& tp.selectSingleNode("@stylename").text &"</Option>"
	Next
	%>
	</Select>
	</td>
	<td class="td2"  align="center">
	<%
	Response.Write "<input name=""CssPicUrl"" size=20 type=text value="""
	Response.Write css.selectSingleNode("@picurl").text
	Response.Write """>"
	%>
	</td>
	<td class="td1" align="center">
	<%
	Response.Write "<input name=""filename"" size=10 type=text value="""
	Response.Write Css.selectSingleNode("@filename").text
	Response.Write """>"%>.css
	</td>
	<td class="td1" align="center">
	<input type="button" value="修改样式内容" name="CssEdit" onclick="EditCss(<%=Css.selectSingleNode("@id").text%>)">
	<div style="display:none">
	<textarea name="CssBody" id="CssBody" style="width:0;height=0" rows="0" ><%=Css.selectSingleNode("cssdata").text%></textarea>
	</div>
	</td>
	<td class="td2" align=center><INPUT TYPE="checkbox" class="checkbox" NAME="DelCss" onclick="DllData(<%=Css.selectSingleNode("@id").text%>)" ></td>
	</tr>
	<%
	Next
	%>
	<tr>
	<td class="td2" align="center">新建</td>
	<td class="td1" align="center"><input type=text value="" name="NewCssName"></td>
	<td class="td1" align="center">
	<Select  Name="NewTemplateID" size="1">
	<%
	i=0
	For Each tp in Application(Dvbbs.CacheName &"_style").documentElement.selectNodes("style")
		Response.Write "<Option Value="""&tp.selectSingleNode("@id").text&""""
		If i=0 Then
			Response.Write " selected "
		End If
		Response.Write ">"& tp.selectSingleNode("@stylename").text &"</Option>"
		i=i+1
	Next
	%>
	</Select>
	</td>
	<td class="td2"  align="center">
	<%
	Response.Write "<input name=""newCssPicUrl"" size=20 type=text value="""
	Response.Write """>"
	%>
	</td>
	<td class="td1" align="center">
	<%
	Response.Write "<input name=""newfilename"" size=10 type=text value="""
	Response.Write """>"%>.css
	</td>
	<td class="td1" align="center" colspan="6">请先填写名称,增加再编辑内容.
	</td>
	</tr>
	<tr id="EditTextarea" style="display:none">
	<INPUT TYPE="hidden" NAME="TempID">
	<td height=400 class="td2" colspan=7>
	<textarea id="CssContent" style="width:100%" rows="30" ></textarea>
	</td>
	</tr>
	<%
	Response.Write "<tr><td class=""td2"" height=""25"" align=""center"" colspan=7>"
	Response.Write "Css文件目录："
	Response.Write "<input type=""text"" value=""skins/"" name=""cssfilepath"" readonly>"
	Response.Write "</td></tr>"
	Response.Write "<tr><td class=""td2"" height=""25"" align=""center"" colspan=7>"
	Response.Write "<input type=""submit"" class=""button"" name=""B1"" value=""提交修改"">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
	Response.Write "<input type=""button"" class=""button"" value=""返 回"" onclick=""location.reload('template.asp?action=editcss&StyleID="&StyleID&"')"">"
	Response.Write "</td></tr>"
	%>
	</form></table>
	<%
	Set CSSDOM=Nothing 
End Sub

'//保存修改CSS模板
Sub savecss()
	If StyleID="" or not IsNumeric(StyleID) Then
		Errmsg=ErrMsg + "<br /><li>请选择您要修改的CSS样式!"
		Dvbbs_error()
		Exit Sub 
	End If
	Dim CssDom,RequestData,node,i,TemplateID,TemplateIDlist,filename,createfile
	Set CssDom=Server.CreateObject("Msxml2.FreeThreadedDOMDocument" & MsxmlVersion)
	Set Node=CssDom.appendChild(CssDom.createElement("xml"))
	Node.attributes.setNamedItem(CssDom.createNode(2,"cssfilepath","")).text=Request("cssfilepath")
	i=1
	For Each RequestData in Request.Form("CssName")
		Set Node=CssDom.createNode(1,"css","")
		Node.attributes.setNamedItem(CssDom.createNode(2,"id","")).text=i
		Node.attributes.setNamedItem(CssDom.createNode(2,"type","")).text=RequestData
		filename=Request.Form("filename")(i)
		If InStr(filename,".") > 0 Then filename=""
		If filename<>"" Then createfile=True
		Node.attributes.setNamedItem(CssDom.createNode(2,"filename","")).text=filename
		Node.attributes.setNamedItem(CssDom.createNode(2,"picurl","")).text=Request.Form("CssPicUrl")(i)
		Node.appendChild(CssDom.createNode(1,"cssdata","")).text=Request.Form("CssBody")(i)
		Node.appendChild(CssDom.createNode(1,"tid","")).text=Request.Form("TemplateID")(i)	
		CssDom.documentElement.appendChild(node)
		i=i+1
	Next
	If Request.Form("NewCssName") <>"" Then
		Set Node=CssDom.createNode(1,"css","")
		Node.attributes.setNamedItem(CssDom.createNode(2,"id","")).text=i
		Node.attributes.setNamedItem(CssDom.createNode(2,"type","")).text=Request.Form("NewCssName")
		filename=Request.Form("newfilename")
		If InStr(filename,".") > 0 Then filename=""
		If filename<>"" Then createfile=True
		Node.attributes.setNamedItem(CssDom.createNode(2,"filename","")).text=filename
		Node.attributes.setNamedItem(CssDom.createNode(2,"picurl","")).text=Request.Form("newCssPicUrl")
		Node.appendChild(CssDom.createNode(1,"cssdata","")).text=""
		Node.appendChild(CssDom.createNode(1,"tid","")).text=Request.Form("NewTemplateID")
		CssDom.documentElement.appendChild(node)
	End If
	Dvbbs.Execute("Update [Dv_Setup] set Forum_CSS='"&Dvbbs.Checkstr(CssDom.xml)&"'")
	Dv_suc("论坛风格样式修改成功！")
	Dvbbs.loadSetup()
	Dvbbs.Loadstyle()
	Set CSSDOM=Nothing 
	If createfile Then createsccfile()
End Sub
Sub createsccfile()
	On error resume Next
	Dim Fso,filename,Forum_CSS
	Set FSO=Server.CreateObject("Scripting.FileSystemObject")
	If  Err Then
		Errmsg=ErrMsg + "<br /><li>*您的服务器不支持写文件(*"&Err.Description&"),CSS文件写入失败,请手工操作或把生成文件的内容清空!</li>"
		err.Clear
		Dvbbs_error()
		Exit Sub
	End If
	For Each filename In Application(Dvbbs.CacheName & "_csslist").documentElement.selectNodes("css/@filename")
		If  filename.text<>"" Then
			If InStr(filename.text,".")=0 Then
				Dvbbs.SkinID=filename.selectSingleNode("../tid").text
				Dvbbs.LoadTemplates("")
				Forum_CSS=filename.selectSingleNode("../cssdata").text
				Forum_CSS=Replace(Forum_CSS,"{$width}",Dvbbs.mainsetting(0))
				Forum_CSS=Replace(Forum_CSS,"{$PicUrl}",filename.selectSingleNode("../@picurl").text)
				Fso.CreateTextFile(Server.MapPath("../skins/"& filename.text &".css")).WriteLine(Forum_CSS)
				If  Err Then
					Errmsg=ErrMsg + "<br /><li>**您的服务器不支持写文件(*"&Err.Description&"),CSS文件写入失败,请手工操作或把生成文件的内容清空!</li>"
					err.Clear
					Dvbbs_error()
					Exit Sub
				End If
			End If
		End If
	Next
	Set FSO=Nothing  
End Sub
Sub editmain()
	Dim stype,NowEditinfo
	Dim mystr,rs
	stype=Request("stype")
	
	Select Case stype
		Case "1"
			NowEditinfo="语言包"
			mystr="Dvbbs.lanstr"
		Case "2"
			NowEditinfo="基本设置"
			mystr="mainsetting"
		Case "3"
			NowEditinfo="HTTP头部分"
			mystr="mainhtml(0)"
		Case "4"
			NowEditinfo="页面开始部分"
			mystr="mainhtml(1)"
		Case "5"
			NowEditinfo="顶部通栏"
			mystr="mainhtml(2)"
		Case "6"
			NowEditinfo="顶部表格"
			mystr="mainhtml(3)"
		Case "7"
			NowEditinfo="导航栏"
			mystr="mainhtml(5)"
		Case "8"
			NowEditinfo="论坛菜单"
			mystr="mainhtml(6)"
		Case "9"
			mystr="mainhtml(4)"
			NowEditinfo="结束部分"
		Case "10"