template.asp

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

			Response.Write "图片资源"
			mystr="template.pic"
			If page="main_style" Then mystr="Dvbbs.mainpic"
		Case 3
			Response.Write "界面风格"
			mystr="template.html"
			If page="main_style" Then mystr="Dvbbs.mainhtml"
	End Select
	
	Response.Write "管理</th></tr>"
	For i=0 To Ubound(TemplateStr)
		Response.Write "<tr><td class=""td2"" height=40 align=left>"
		Response.Write mystr&"("&i&")"
		Response.Write "</td>"		
		Response.Write "<td class=""td2"" height=25 align=left>"
		Select Case stype
			Case 1
				If LenB(TemplateStr(i))>70 Then
				Response.Write "<textarea name=""TemplateStr"" cols=""100"" rows=""3"">"
				Response.Write server.htmlencode(TemplateStr(i))
				Response.Write "</textarea>"
				Else
				Response.Write "<input Type=""text"" name=""TemplateStr"" value="""
				Response.Write server.htmlencode(TemplateStr(i))
				Response.Write """ size=50>"
				End If
			Case 2
				Response.Write "<input Type=""text"" name=""TemplateStr"" value="""
				Response.Write server.htmlencode(TemplateStr(i))
				Response.Write ""
				Response.Write """ size=20>"
			Case 3
				If page="main_style"  And i=0 Then 
					Response.Write "<input type=hidden name=""TemplateStr"" value="""
					Response.Write server.htmlencode(TemplateStr(i))
					Response.Write """>"
					Response.Write "此字段属于基本设置，  <a href=""?action=editmain&stype=2&StyleID="&StyleID&""">点这里修改基本设置</a>"		
				Else
					
					Response.Write "<textarea name=""TemplateStr"" id=""t"&i&""" cols=""100"" rows=""5"">"
					Response.Write server.htmlencode(TemplateStr(i))
					Response.Write "</textarea>"
					Response.Write "</td><td class=""td2""><a href=""javascript:admin_Size(-5,'t"&i&"')""><img src=""skins/images/minus.gif"" unselectable=""on"" border='0'></a> <a href=""javascript:admin_Size(5,'t"&i&"')""><img src=""skins/images/plus.gif"" unselectable=""on"" border='0'></a><img src=skins/images/viewpic.gif onclick=runscript(t"&i&")>"
				End If 
			End Select
		Response.Write "</td></tr>"
		
	Next
	Response.Write "<tr><td class=""td2"" height=""25"" align=""center"" colspan=""3"">&nbsp;"
	Response.Write "</td></tr>"
	Response.Write "<tr><td class=""td2"" height=""25"" align=""center"">"
	Response.Write "<input type=""reset"" class=""button"" name=""Submit"" value=""重 填"">"
	Response.Write "</td>"
	Response.Write "<td class=""td2"" height=""25"" align=""center"" colspan=""2"">"
	Response.Write "<input type=""submit"" class=""button"" name=""B1"" value=""修 改"">"
	Response.Write "</td></tr>"
	Response.Write "</table><p></p>"
	Response.Write "</form>"
	
	Rs.Close
	Set Rs=Nothing
End Sub
'保存后台模板
Sub Save_Main()
	Dim Page,Rs
	Dim TempStr,TemplateStr,stype
	stype=Dvbbs.checkStr(request("stype"))
	page=Dvbbs.checkStr(request("page"))
	If Not IsNumeric(stype) Then 
		Errmsg=ErrMsg + "<br /><li>错误的样式参数"
		Dvbbs_error()
	End If
	If page<>"page_admin" Then
		Errmsg=ErrMsg + "<br /><li>要编辑的页面模板字段尚未建立。"
		Dvbbs_error()
	End If
	'提取表单中的数据
	TemplateStr=""
	For Each TempStr in Request.form("TemplateStr")
		If TempStr<>"" Then 
			TemplateStr=TemplateStr&Replace(TempStr,"|||","")&"|||"
		End If
	Next 
	TemplateStr=Dvbbs.checkStr(Replace(TemplateStr,"@@@",""))
	If Trim(TemplateStr)="" Then 
		TemplateStr="|||"
	End If
	Set Rs=Dvbbs.Execute("Select H_ID,H_title,H_content From [Dv_help] Where H_ID=1")
	TempStr=Split(Dvbbs.checkStr(Rs(2)),"@@@")
	Select Case stype
		Case 1
			TemplateStr=TempStr(0)&"@@@"&TemplateStr&"@@@"&TempStr(2)
		Case 2
			TemplateStr=TempStr(0)&"@@@"&TempStr(1)&"@@@"&TemplateStr
		Case 3
			TemplateStr=TemplateStr&"@@@"&TempStr(1)&"@@@"&TempStr(2)
	End Select
	Set Rs=Nothing 
	Dvbbs.Execute("update [Dv_help] set H_content='"&TemplateStr&"' Where H_ID=1")
	Select Case stype
		Case 1
			Dv_suc(page&"语言包修改成功!")
		Case 2
			Dv_suc(page&"图片资源修改成功!")
		Case 3
			Dv_suc(page&"界面风格修改成功!")
	End Select
End Sub
Function IsTruePage(page)
	IsTruePage=False
	If page<>"" Then 
		page=LCase(Trim(page))
		Dim myrs,i
		Set Myrs=Dvbbs.Execute("Select top 1 * From [Dv_Style]")
		For i= 2 to MyRs.Fields.Count-1
			If LCase( myrs(i).name)=page Then
				 IsTruePage=True
				 Exit For
			End If
		Next
	End If
End Function

Sub DelStyle()
	'检查是否有版面使用本模版
	If StyleID=SkinID Then 
		Errmsg=ErrMsg + "<br /><li>本模板是默认模版，不允许删除。"
		Dvbbs_error()
	End If
	Dim CssStyle,CssSid,Node,rs
	Set Rs=Dvbbs.Execute("Select Forum_Css From Dv_setup")
	Set CssStyle=Server.CreateObject("Msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
	CssStyle.Loadxml Rs(0)
	Dvbbs.Execute("Delete From [Dv_Style] Where ID="&StyleID&"")
	Dv_suc("成功删除了一个模板。")
	For Each Node in CssStyle.documentElement.selectNodes("css[tid="& StyleID&"]")
		CssStyle.documentElement.removeChild(node)
	Next
	Dim i
	i=1
	For Each Node in CssStyle.documentElement.selectNodes("css/@filename")
			Node.text="aspsky_"&i
			i=i+1
	Next
		i=1
		For Each Node in CssStyle.documentElement.selectNodes("css/@id")
			Node.text=i
			i=i+1
		Next
		Dvbbs.Execute("Update Dv_Setup Set Forum_Css='"&Dvbbs.Checkstr(CssStyle.xml)&"'")
	Dvbbs.loadSetup()
	Dvbbs.Loadstyle()
	createsccfile()
End Sub

Sub delpage()
	Dim StylePageName
	StylePageName=Dvbbs.checkStr(request("StylePageName"))
	If StylePageName="" Then 
		Errmsg=ErrMsg + "<br /><li>请填写字段名称"
		Dvbbs_error()
	End If
	If Not IsTruePage(StylePageName) Then 
		Errmsg=ErrMsg + "<br /><li>要删除的字段不存在。"
		Dvbbs_error()
	End If
	If IsSqlDataBase = 1 Then
		Dim i,Fieldslist,Rs
		Set Rs=Dvbbs.Execute("select * from Dv_Style")
		Fieldslist="id"
		For i= 1 to Rs.Fields.Count-1
			If LCase(Rs(i).name)<> LCase (StylePageName) Then 
				Fieldslist=Fieldslist&","&Rs(i).name
			End If
		Next
		Set Rs=Nothing 
		'复制有用数据到临时表	
		Dvbbs.Execute("Select "&Fieldslist&" into Dv_tempatble From Dv_Style")
		'删除原有表
		Dvbbs.Execute("Drop table Dv_Style")
		'再把临时表中的数据复制过来.
		Dvbbs.Execute("Select "&Fieldslist&" into Dv_Style From Dv_tempatble ")
		'删除临时表
		Dvbbs.Execute("Drop table Dv_tempatble")
		'复制有用数据到临时表	
		Dvbbs.Execute("Select "&Fieldslist&" into Dv_tempatble From Dv_Stylehelp")
		'删除原有表
		Dvbbs.Execute("Drop table Dv_Stylehelp")
		'再把临时表中的数据复制过来.
		Dvbbs.Execute("Select "&Fieldslist&" into Dv_Stylehelp From Dv_tempatble ")
		'删除临时表
		Dvbbs.Execute("Drop table Dv_tempatble") 
	Else
		Dvbbs.Execute("Alter Table [Dv_Style] Drop ["&StylePageName&"]")
		Dvbbs.Execute("Alter Table [Dv_Stylehelp] Drop ["&StylePageName&"]")
	End If 
	Dv_suc("页面模板删除成功！")
	Dvbbs.Loadstyle()
End Sub 
Sub addpage()
	Dim StylePageName
	StylePageName=Dvbbs.checkStr(request("StylePageName"))
	If StylePageName="" Then 
		Errmsg=ErrMsg + "<br /><li>请填写字段名称"
		Dvbbs_error()
	End If
	StylePageName="Page_"&StylePageName
	If IsTruePage(StylePageName) Then 
		Errmsg=ErrMsg + "<br /><li>您要创建的模板字段已经存在。"
		Dvbbs_error()
	End If
	Dvbbs.Execute("alter table [Dv_Stylehelp] add "&StylePageName&" text not Null default'|||@@@|||@@@|||@@@|||'")
	Dvbbs.Execute("Update [Dv_Stylehelp] Set "&StylePageName&"='|||@@@|||@@@|||@@@|||'")
	Dvbbs.Execute("alter table [Dv_Style] add "&StylePageName&" text not Null default'|||@@@|||@@@|||@@@|||'")
	Dvbbs.Execute("Update [Dv_Style] Set "&StylePageName&"='|||@@@|||@@@|||@@@|||'")
	Dv_suc("新页面模板创建成功!")
	Dvbbs.Loadstyle()
End Sub

Sub addstyle()
	Dim stylename,sql
	Dim Rs
	stylename=Dvbbs.checkStr(Request("stylename"))
	If Trim(stylename)=""  Then 
		 Errmsg=ErrMsg + "<br /><li>请输入模板名称。"
		Dvbbs_error()
	End If
	Set Rs=Dvbbs.Execute("select * From [Dv_Style] where ID="&StyleID)
	Dim styleFields,stylevalues
	styleFields="StyleName"
	stylevalues="'"&stylename&"'"
	For i= 2 to Rs.Fields.Count-1
		styleFields=styleFields&","&Rs(i).Name
		stylevalues=stylevalues&",'"&Dvbbs.checkStr(Rs(i))&"'"
	Next
	Set rs=Nothing
	sql="insert into [Dv_Style]("&styleFields&")values("&stylevalues&")"
	Dvbbs.Execute(SQL)
	Dim CssStyle,CssSid,Node,Node1
	Set Rs=Dvbbs.Execute("Select Forum_Css From Dv_setup")
	Set CssStyle=Server.CreateObject("Msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
	CssStyle.Loadxml Rs(0)
	Set Rs=Dvbbs.Execute("select Max(id) from Dv_style")
	For Each Node in CssStyle.documentElement.selectNodes("css[tid="& StyleID&"]")
		Set Node1=node.cloneNode(True)
		Node1.selectSingleNode("tid").text=Rs(0)
		CssStyle.documentElement.appendChild(node1)
	Next
	Dim i
	i=1
	For Each Node in CssStyle.documentElement.selectNodes("css/@filename")
			Node.text="aspsky_"&i
			i=i+1
	Next
		i=1
		For Each Node in CssStyle.documentElement.selectNodes("css/@id")
			Node.text=i
			i=i+1
		Next
	Dvbbs.Execute("Update Dv_Setup Set Forum_Css='"&Dvbbs.Checkstr(CssStyle.xml)&"'")
	Dv_suc("新模板创建成功!")
	Dvbbs.loadSetup()
	Dvbbs.Loadstyle()
	createsccfile()
End Sub
Sub pagerename()
	Dim oldpagename,newpagename
	oldpagename=Dvbbs.checkStr(request("oldpagename"))
	newpagename=Dvbbs.checkStr(request("newpagename"))
	If LCase(newpagename)=LCase(oldpagename) Then
		Errmsg=ErrMsg + "<br /><li>你没有更改名称"
		Dvbbs_error()
	End If
	If newpagename="" Then
		Errmsg=ErrMsg + "<br /><li>新名称不能为空"
		Dvbbs_error()
	End If
	If OLDpagename="" Then
		Errmsg=ErrMsg + "<br /><li>您提交的数据是错误的."
		Dvbbs_error()
	End If
	oldpagename="page_"&oldpagename
	newpagename="page_"&newpagename
	If Not IsTruePage(oldpagename) Then 
		Errmsg=ErrMsg + "<br /><li>要改名的字段不存在。"
		Dvbbs_error()
	End If
	If IsTruePage(newpagename) Then 
		Errmsg=ErrMsg + "<br /><li>字段名称"&newpagename&"已经被占用."
		Dvbbs_error()
	End If
		Dim i,Fieldslist,Rs
		Set Rs=Dvbbs.Execute("select * from Dv_Style")
		Fieldslist="id"
		For i= 1 to Rs.Fields.Count-1
			If LCase(Rs(i).name)<> LCase (oldpagename) Then 
				Fieldslist=Fieldslist&","&Rs(i).name
			Else
				Fieldslist=Fieldslist&","&Rs(i).name&" as "& newpagename
			End If
		Next
		Set Rs=Nothing
		'复制有用数据到临时表	
		Dvbbs.Execute("Select "&Fieldslist&" into Dv_tempatble From Dv_Style")
		'删除原有表
		Dvbbs.Execute("Drop table Dv_Style")
		'再把临时表中的数据复制过来.
		Dvbbs.Execute("Select * into Dv_Style From Dv_tempatble ")
		'删除临时表
		Dvbbs.Execute("Drop table Dv_tempatble")
		'复制有用数据到临时表	
		Dvbbs.Execute("Select "&Fieldslist&" into Dv_tempatble From Dv_Stylehelp")
		'删除原有表
		Dvbbs.Execute("Drop table Dv_Stylehelp")
		'再把临时表中的数据复制过来.
		Dvbbs.Execute("Select * into Dv_Stylehelp From Dv_tempatble ")
		'删除临时表
		Dvbbs.Execute("Drop table Dv_tempatble") 
	Dv_suc("成功把 "&oldpagename&" 字段改名为 "&newpagename&"")
End Sub
Sub rename()
	Dim stylename
	stylename=Dvbbs.checkStr(Request("stylename"))
	If Trim(stylename)=""  Then 
		Errmsg=ErrMsg + "<br /><li>修改名称请输入新的模板名称。"