admin_template.asp

大型黄页系统,精美黄页flash演示,10m

	End If
	Select Case page
		Case "main_style"
			SetHelpStr = SetHelp_Main
			StyleHelpStr = StyleHelp_Main
		Case "temp_index"
			SetHelpStr = SetHelp_index
			StyleHelpStr = StyleHelp_index
		Case "temp_sorting"
			SetHelpStr = SetHelp_sorting
			StyleHelpStr = StyleHelp_sorting
		Case "temp_softinfo"
			SetHelpStr = SetHelp_softinfo
			StyleHelpStr = StyleHelp_softinfo
		Case "temp_search"
			SetHelpStr = SetHelp_search
			StyleHelpStr = StyleHelp_search
		Case "temp_infoindex"
			SetHelpStr = SetHelp_infoindex
			StyleHelpStr = StyleHelp_infoindex
		Case "temp_listing"
			SetHelpStr = SetHelp_listing
			StyleHelpStr = StyleHelp_listing
		Case "temp_article"
			SetHelpStr = SetHelp_article
			StyleHelpStr = StyleHelp_article
		Case "temp_help"
			SetHelpStr = SetHelp_help
			StyleHelpStr = StyleHelp_help
		Case Else
			SetHelpStr = ""
			StyleHelpStr = ""
	End Select
	Set Rs = DownsysClass.Execute("Select ID,TempName," & page & " From [NC_Template] Where ID=" & StyleID)
	TempStr = Split(Rs(2), "@@@")
	Select Case stype
		Case 1
			TemplateStr = Split(TempStr(1), "|||")
			TempStyleHelp=Split(SetHelpStr,"|||")
		Case 2
			TemplateStr = Split(TempStr(0), "|||")
			TempStyleHelp=Split(StyleHelpStr,"|||")
	End Select
	Response.Write "<form name=""template"" action=""?action=saveedit&page=" & page & "&stype=" & stype & "&StyleID=" & StyleID & """ method=post>"
	Response.Write "<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
	Response.Write "<tr>"
	Response.Write "<th width=""100%"" class=""tableHeaderText"" colspan=3 height=25>"
	Response.Write Rs(1)
	Select Case page
		Case "main_style"
			Response.Write "｜模板主模块("
		Case "temp_index"
			Response.Write "｜首页模板("
		Case "temp_sorting"
			Response.Write "｜信息列表页模板("
		Case "temp_softinfo"
			Response.Write "｜信息信息页模板("
		Case "temp_search"
			Response.Write "｜搜索页模板("
		Case "temp_infoindex"
			Response.Write "｜文章首页模板("
		Case "temp_listing"
			Response.Write "｜文章列表页模板("
		Case "temp_article"
			Response.Write "｜文章内容页模板("
		Case Else
			Response.Write "｜分页面模板("
	End Select
	Response.Write page
	Response.Write ")"
	Response.Write "<input Type=""hidden"" name=""DownsysClass"" value=""OK!"">"
	Select Case stype
		Case 1
			Response.Write "基本设置"
			mystr = "DownsysClass.TempSet"
			MyRemark = ""
			If page = "main_style" Then mystr = "DownsysClass.mainset"
			 MyRemark = ""
		Case 2
			Response.Write "界面风格"
			mystr = "DownsysClass.TempHtml"
			If page = "main_style" Then mystr = "DownsysClass.mainhtml"
			MyRemark = ""
	End Select
	Response.Write "管理</th></tr>"
	If TemplateStr(UBound(TemplateStr)) = "" Then TemplateStr(UBound(TemplateStr)) = "del"
	For i = 0 To UBound(TemplateStr)
		If i<ubound(TempStyleHelp) Then
			StyleHelpValue=TempStyleHelp(i)
		Else
			StyleHelpValue="//"
		End IF
		Response.Write "<tr><td class=""forumRowHighlight"" width=20% height=22 align=left>"
		Response.Write mystr & "(" & i & ")"
		Response.Write "</td>"
		Response.Write "<td class=""forumRowHighlight"" width=80% height=22 align=left>"
		Select Case stype
			Case 1
				vtitle = "表格的宽度|导航栏每行显示信息分类数|导航栏每行显示文章分类数|||||||||||信息排行显示的数|信息排行名称长度|信息名称循环|文章排行数|文章标题长度|文章标题循环|首页最新和推荐文章数|标题长度|文章标题循环|首页最新和推荐信息数|信息名称长度|信息名称循环|显示公告数|公告字符长度|公告循环|总分类每行显示数|最近更新页显示信息数|推荐信息页最多显示信息数|每页显示数|简介长度|最多显示热门信息数|每页显示热门信息数|||||||||||||||||||"
				vSorting = "信息列表每页显示数|||||||信息简介字符长度"
				vSoftInfo = "|||||信息信息页显示评论数|显示字符长度|发表评论最多字符|相关信息与文章显示数|标题长度|相关信息循环|相关文章循环||||"
				vtitle = Split(vtitle, "|")
				vSorting = Split(vSorting, "|")
				vSoftInfo = Split(vSoftInfo, "|")
				If page = "main_style" And i < 3 Then
					Response.Write "<input type=text name=""TemplateStr"" value="""
					Response.Write Server.HTMLEncode(TemplateStr(i))
					Response.Write """ size=10> " & vtitle(i) & ""
					ElseIf LenB(TemplateStr(i)) > 70 Then
					Response.Write "<textarea name=""TemplateStr"" id=""t" & i & """  cols=""100"" rows=""3"">"
					Response.Write Server.HTMLEncode(TemplateStr(i))
					Response.Write "</textarea>"
				Else
					Response.Write "<input Type=""text"" name=""TemplateStr"" id=""t" & i & """ value="""
					Response.Write Server.HTMLEncode(TemplateStr(i))
					Response.Write """ size=50> "
					If page = "main_style" Then Response.Write vtitle(i)
					If page = "temp_sorting" And i < 8 Then Response.Write vSorting(i)
					If page = "temp_softinfo" And i < 12 Then Response.Write vSoftInfo(i)
				End If
				Response.Write "<INPUT TYPE=""hidden"" NAME=""ReadME"" id=""r" & i & """ value=""" & StyleHelpValue & """>"
				Response.Write " <a href=# onclick=""helpscript(r"&i&");return false;"" class=""helplink""><img src=""images/help.gif"" border=0 title=""点击查阅管理帮助！""></a>"
			Case 2
				Response.Write "<textarea name=""TemplateStr"" id=""t" & i & """ cols=""100"" rows=""5"">"
				Response.Write Server.HTMLEncode(TemplateStr(i))
				Response.Write "</textarea>"
				Response.Write "</td></tr><tr><td class=""forumRowHighlight""></td><td class=""forumRowHighlight""><a href=""javascript:admin_Size(-5,'t" & i & "')""><img src=""images/minus.gif"" unselectable=""on"" border='0'></a> <a href=""javascript:admin_Size(5,'t" & i & "')""><img src=""images/plus.gif"" unselectable=""on"" border='0'></a>"
				Response.Write "<img src=images/viewpic.gif onclick=runscript(t" & i & ")>"
				Response.Write "<INPUT TYPE=""hidden"" NAME=""ReadME"" id=""r" & i & """ value=""" & StyleHelpValue & """>"
				Response.Write "<a href=# onclick=""helpscript(r" & i & ");return false;"" class=""helplink""><img src=""images/help.gif"" border=0 title=""点击查阅管理帮助！""></a>"
		End Select
		Response.Write "</td></tr>"
	Next
	Response.Write "<tr><td class=""forumRowHighlight"" height=""25"" align=""center"" colspan=""3"">"
	Response.Write "" & MyRemark & "</td></tr>"
	Response.Write "<tr><td class=""forumRowHighlight"" height=""25"" align=""center"">"
	Response.Write "<input type=""reset"" name=""Submit"" value=""重 填"" class=button>"
	Response.Write "</td>"
	Response.Write "<td class=""forumRowHighlight"" height=""25"" colspan=2 align=""center"">"
	Response.Write "<input type=""button"" name=""Submit1"" onclick=""javascript:location.href='admin_template.asp'"" value=""返回上一页"" class=button>　　<input type=""submit"" name=""B1"" value=""保存模板"" class=button>"
	Response.Write "</td></tr>"
	Response.Write "<tr>"
	Response.Write "<td colspan=3 Class=""forumRowHighlight"">"
	Response.Write "<br><li>模板编辑规则：如果想清除该字段，请在对应的文本框中输入""del""，那么模板数据的序号就会前移。"
	Response.Write "<br><li>如果不想改变模板数据的序号,仅把该项目的数据清空,则只需要把内容清空。"
	Response.Write "</td></tr>"
	Response.Write "</table>"
	Response.Write "</form>"
	Rs.Close
	Set Rs = Nothing
End Sub

Private Sub EditCSS()
	Set Rs = Server.CreateObject("Adodb.Recordset")
	SQL = "select * from NC_Template where id=" & Request("styleid")
	Rs.Open SQL, conn, 1, 1
	DownsysClass.SqlQueryNum = DownsysClass.SqlQueryNum + 1
	If Rs.bof And Rs.EOF Then
		FoundErr = True
		ErrMsg = ErrMsg + "<br><li>数据库出现错误,没有此配色样式!</li>"
		Rs.Close
		Set Rs = Nothing
		Exit Sub
	End If
	Response.Write "<p></p>"
	Response.Write "<table width=""100%"" align=""center"" border=""0"" cellpadding=""2"" cellspacing=""1"" class=""tableBorder"">" & vbCrLf
	Response.Write "<form method=""POST"" name=""myform"" action=""admin_template.asp?action=savecss&id=" & Request("styleid") & """>" & vbCrLf
	Response.Write "    <tr> " & vbCrLf
	Response.Write "      <th colspan=""2"" >" & vbCrLf
	Response.Write "当前编辑样式[" & Rs("TempName") & "]（修改以下设置必须具备一定网页知识）" & vbCrLf
	Response.Write "</th>" & vbCrLf
	Response.Write "    </tr>" & vbCrLf
	Response.Write "    <tr> " & vbCrLf
	Response.Write "      <td width=""22%"" height=""22"" class=""forumRowHighlight"">模板样式目录名称：</td>" & vbCrLf
	Response.Write "      <td width=""78%"" class=""forumRow""><input name=""TempDir"" type=""text"" value=""" & Rs("TempDir") & """ size=""22"" class=""kuang""> * 注意：请在目录名后面加上“/”</td>" & vbCrLf
	Response.Write "    </tr>" & vbCrLf
	Response.Write "    <tr> " & vbCrLf
	Response.Write "      <td height=""22"" class=""forumRowHighlight"">样式名称：</td>" & vbCrLf
	Response.Write "      <td class=""forumRow""><input name=""TempName"" type=""text"" value=""" & Rs("TempName") & """ size=""22"" maxlength=""15"" class=""kuang""></td>" & vbCrLf
	Response.Write "    </tr>" & vbCrLf
	Response.Write "    <tr> " & vbCrLf
	Response.Write "      <td height=""22"" colspan=""2"" class=""forumRowHighlight""><div align=""center"">定义CSS样式表</div></td>" & vbCrLf
	Response.Write "    </tr>" & vbCrLf
	Response.Write "    <tr> " & vbCrLf
	Response.Write "      <td colspan=""2"" class=""forumRow""><textarea name=""Style_CSS"" style=""width:100%; height:400;"" rows=""5"" class=""tableBorder"">" & Rs("Style_CSS") & "</textarea> " & vbCrLf
	Response.Write "      </td>" & vbCrLf
	Response.Write "    </tr>" & vbCrLf
	Response.Write "    <tr>" & vbCrLf
	Response.Write "      <td height=""22"" class=""forumRowHighlight"">&nbsp;</td>" & vbCrLf
	Response.Write "      <td class=""forumRow""><input type=""button"" name=""Submit1"" onclick=""javascript:history.go(-1)"" value=""返回上一页"" class=button>　　" & vbCrLf
	Response.Write "<input type=""submit"" name=""Submit2"" value="" 保存修改 "" class=button>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "    </tr></form>" & vbCrLf
	Response.Write "  </table>" & vbCrLf
	Response.Write "" & vbCrLf
	Rs.Close
	 Set Rs = Nothing
End Sub

Private Sub CheckSkin()
	Dim FoundErr
	FoundErr = False
	If Trim(Request.Form("TempName")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<BR><li>你没有输入CSS样式名称。</li>"
	End If
	FoundErr = False
	If Trim(Request.Form("TempDir")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<BR><li>你没有输入CSS样式路径。</li>"
	End If
End Sub

Private Sub SaveCSS()
	Dim strTempDir
	Call CheckSkin
	If Right(Request.Form("TempDir"), 1) <> "/" Then
		strTempDir = Request.Form("TempDir") & "/"
	Else
		strTempDir = Request.Form("TempDir")
	End If
	If FoundErr = False Then
		Set Rs = CreateObject("adodb.recordset")
		SQL = "select * from NC_Template where id=" & Request("id")
		Rs.Open SQL, conn, 1, 3
		If Rs.bof And Rs.EOF Then
			FoundErr = True
			NC_Admin.Error_Msg ("没有选定参数!")
			Err.Raise -19691969
		Else
			Rs("TempDir") = strTempDir
			Rs("TempName") = Request.Form("TempName")
			Rs("Style_CSS") = Request.Form("Style_CSS")
			Rs.Update
			id = Rs("id")
			DownsysClass.DelCahe ("Style_CSS" & id)
			Call DvaspCss(id)
			Call NC_Admin.Succeed_Msg("保存配色CSS样式设置成功!")
		End If
		Rs.Close
		Set Rs = Nothing
	End If
End Sub

Private Sub DvaspCss(id)
	Dim RsSkin
	Dim sqlSkin
	Dim MakeFile
	Dim TempDir
	Set RsSkin = CreateObject("Adodb.Recordset")
	sqlSkin = "select * from NC_Template where id=" & id
	RsSkin.Open sqlSkin, conn, 1, 1
	strbody = RsSkin("Style_CSS")
	strbody = Replace(strbody, "{$SetupDir}", DownsysClass.SetupDir)
	strbody = Replace(strbody, "{$PicUrl}", RsSkin("TempDir"))
	TempDir = DownsysClass.SetupDir & RsSkin("TempDir")
	RsSkin.Close
	Set RsSkin = Nothing
	If Not DownsysClass.IsObjectFSO(DownsysClass.Script_FSO) Then
		Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! style.css文件没有更新</font></b>"
	Else
		Set fso = Server.CreateObject(DownsysClass.Script_FSO)
		If fso.FolderExists(Server.MapPath(TempDir)) = False Then
			fso.CreateFolder Server.MapPath(TempDir)
		End If
		Makename = TempDir & "style.css"