admin_template.asp

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

		MakeFile = Server.MapPath(Makename)
		Set fout = fso.CreateTextFile(MakeFile)
		fout.WriteLine strbody
		fout.Close
		Set fout = Nothing
	End If
End Sub

Private Sub addpage()
	Dim StylePageName
	StylePageName = DownsysClass.checkStr(Request("StylePageName"))
	If StylePageName = "" Then
		ErrMsg = ErrMsg + "<BR><li>请填写字段名称"
		FoundErr = True
		Exit Sub
	End If
	StylePageName = "temp_" & StylePageName
	If IsTruePage(StylePageName) Then
		ErrMsg = ErrMsg + "<BR><li>您要创建的模板字段已经存在。"
		FoundErr = True
		Exit Sub
	End If
	DownsysClass.Execute ("alter table [NC_Template] add " & StylePageName & " text not Null default'|||@@@|||@@@|||@@@|||'")
	DownsysClass.Execute ("Update [NC_Template] Set " & StylePageName & "='|||@@@|||@@@|||@@@|||'")
	NC_Admin.Succeed_Msg ("新页面模板创建成功!")
End Sub

Private Sub delpage()
	Dim StylePageName
	Dim Fieldslist
	StylePageName = DownsysClass.checkStr(Request("StylePageName"))
	If StylePageName = "" Then
		ErrMsg = ErrMsg + "<BR><li>请填写字段名称"
		FoundErr = True
		Exit Sub
	End If
	If Not IsTruePage(StylePageName) Then
		ErrMsg = ErrMsg + "<BR><li>要删除的字段不存在。"
		FoundErr = True
		Exit Sub
	End If
	If DownsysClass.IsSqlDataBase = 1 Then
		Set Rs = DownsysClass.Execute("select * from NC_Template")
		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
		'复制有用数据到临时表

		DownsysClass.Execute ("Select " & Fieldslist & " into NC_TempTable From NC_Template")
		'删除原有表

		DownsysClass.Execute ("Drop table NC_Template")
		'再把临时表中的数据复制过来.

		DownsysClass.Execute ("Select " & Fieldslist & " into NC_Template From NC_TempTable ")
		'删除临时表

		DownsysClass.Execute ("Drop table NC_TempTable")
		'再把临时表中的数据复制过来.

		DownsysClass.Execute ("Select " & Fieldslist & " into NC_Templatehelp From NC_TempTable ")
		'删除临时表

		DownsysClass.Execute ("Drop table NC_TempTable")
	Else
		DownsysClass.Execute ("Alter Table [NC_Template] Drop [" & StylePageName & "]")
	End If
	NC_Admin.Succeed_Msg ("页面模板删除成功！")
End Sub

Private Sub temprename()
	Dim oldpagename
	Dim newpagename
	Dim i
	Dim Fieldslist
	Dim Rs
	oldpagename = DownsysClass.checkStr(Request("oldpagename"))
	newpagename = DownsysClass.checkStr(Request("newpagename"))
	If LCase(newpagename) = LCase(oldpagename) Then
		ErrMsg = ErrMsg + "<BR><li>你没有更改名称"
		FoundErr = True
		Exit Sub
	End If
	If newpagename = "" Then
		ErrMsg = ErrMsg + "<BR><li>新名称不能为空"
		FoundErr = True
		Exit Sub
	End If
	If oldpagename = "" Then
		ErrMsg = ErrMsg + "<BR><li>您提交的数据是错误的."
		FoundErr = True
		Exit Sub
	End If
	oldpagename = "temp_" & oldpagename
	newpagename = "temp_" & newpagename
	If Not IsTruePage(oldpagename) Then
		ErrMsg = ErrMsg + "<BR><li>要改名的字段不存在。"
		FoundErr = True
		Exit Sub
	End If
	If IsTruePage(newpagename) Then
		ErrMsg = ErrMsg + "<BR><li>字段名称" & newpagename & "已经被占用."
		FoundErr = True
		Exit Sub
	End If
	Set Rs = DownsysClass.Execute("select * from NC_Template")
	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
	'复制有用数据到临时表
	DownsysClass.Execute ("Select " & Fieldslist & " into NC_TempTable From NC_Template")
	'删除原有表
	DownsysClass.Execute ("Drop table NC_Template")
	'再把临时表中的数据复制过来.
	DownsysClass.Execute ("Select * into NC_Template From NC_TempTable ")
	'删除临时表
	DownsysClass.Execute ("Drop table NC_TempTable")
	NC_Admin.Succeed_Msg ("成功把 " & oldpagename & " 字段改名为 " & newpagename & "")
End Sub


Private Sub DelStyle()
	'检查是否有版面使用本模版
	If StyleID = SkinID Then
		ErrMsg = ErrMsg + "<BR><li>本模板是默认模版，不允许删除。"
		FoundErr = True
		Exit Sub
	Else
		DownsysClass.Execute ("Delete From [NC_Template] Where id=" & StyleID & "")
		NC_Admin.Succeed_Msg ("成功删除了一个模板。")
		DownsysClass.DelCahe ("Templateslist") '删除模板列表缓存
		DownsysClass.DelCahe ("SortingMenu" & StyleID)
		DownsysClass.DelCahe ("ClassMenu" & StyleID)
		DownsysClass.DelCahe ("SortingList" & StyleID)
		DownsysClass.DelCahe ("ClassList" & StyleID)
	End If
End Sub

Private Function IsTruePage(page)
	Dim myrs
	IsTruePage = False
	If page <> "" Then
		page = LCase(Trim(page))
		Set myrs = DownsysClass.Execute("Select top 1 * From [NC_Template]")
		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

Private Sub SaveEdit()
	Dim page
	Dim TempStr
	Dim TemplateStr
	Dim stype
	If Request("DownsysClass") <> "OK!" Then
		ErrMsg = ErrMsg + "<BR><li>您提交了非法数据"
		FoundErr = True
		Exit Sub
	End If
	stype = DownsysClass.checkStr(Request("stype"))
	page = DownsysClass.checkStr(Request("page"))
	If Not IsNumeric(stype) Then
		ErrMsg = ErrMsg + "<BR><li>错误的样式参数"
		FoundErr = True
		Exit Sub
	End If
	If Not IsTruePage(page) Then
		ErrMsg = ErrMsg + "<BR><li>要编辑的页面模板字段尚未建立。"
		FoundErr = True
		Exit Sub
	End If
	'提取表单中的数据
	TemplateStr = ""
	For Each TempStr In Request.Form("TemplateStr")
		If LCase(TempStr) <> "del" Then
			TemplateStr = TemplateStr & Replace(TempStr, "|||", "") & "|||"
		End If
	Next
	TemplateStr = DownsysClass.checkStr(Replace(TemplateStr, "@@@", ""))
	If Trim(TemplateStr) = "" Then
		TemplateStr = "|||"
	End If
	Set Rs = DownsysClass.Execute("Select ID,TempName," & page & " From [NC_Template] Where ID=" & StyleID)
	TempStr = Split(DownsysClass.checkStr(Rs(2)), "@@@")
	Select Case stype
		Case 1
			TemplateStr = TempStr(0) & "@@@" & TemplateStr & "@@@" & TempStr(2)
		Case 2
			TemplateStr = TemplateStr & "@@@" & TempStr(1) & "@@@" & TempStr(2)
	End Select
	Rs.Close
	 Set Rs = Nothing
	DownsysClass.Execute ("update [NC_Template] set " & page & "='" & TemplateStr & "' Where ID=" & StyleID)
	Select Case stype
		Case 1
			NC_Admin.Succeed_Msg (page & "基本设置修改成功!")
		Case 2
			NC_Admin.Succeed_Msg (page & "界面风格修改成功!")
	End Select
	'更新缓存。此处是在模板数据变化的时候需要更新的代码。如有漏掉，可以在这添加。

	DownsysClass.DelCahe (page & StyleID)
	DownsysClass.DelCahe ("SortingMenu" & StyleID)
	DownsysClass.DelCahe ("ClassMenu" & StyleID)
	DownsysClass.DelCahe ("SortingList" & StyleID)
	DownsysClass.DelCahe ("ClassList" & StyleID)
	If InStr(LCase(page), "main_style") > 0 Then
		DownsysClass.DelCahe ("head_" & StyleID)
		DownsysClass.DelCahe ("GroupTitle")
		DownsysClass.DelCahe ("ForumPlusMenu" & StyleID)
	End If
End Sub

Private Sub rename()
	Dim TempName
	TempName = DownsysClass.checkStr(Request("TempName"))
	If Trim(TempName) = "" Then
		ErrMsg = ErrMsg + "<BR><li>修改名称请输入新的模板名称。"
		FoundErr = True
		Exit Sub
	End If
	DownsysClass.Execute ("update [NC_Template] set TempName='" & TempName & "' where id=" & StyleID & "")
	DownsysClass.DelCahe ("Templateslist") '删除模板列表缓存
	NC_Admin.Succeed_Msg ("模板名修改成功!")
End Sub

Private Sub addstyle()
	Dim TempName
	Dim SQL
	Dim styleFields
	Dim stylevalues
	TempName = DownsysClass.checkStr(Request("TempName"))
	If Trim(TempName) = "" Then
		ErrMsg = ErrMsg + "<BR><li>请输入模板名称。"
		FoundErr = True
		Exit Sub
	End If
	Set Rs = DownsysClass.Execute("select * From [NC_Template] where ID=" & StyleID & "")
	styleFields = "TempName"
	stylevalues = "'" & TempName & "'"
	For i = 2 To Rs.Fields.Count - 1
		styleFields = styleFields & "," & Rs(i).Name
		stylevalues = stylevalues & ",'" & DownsysClass.checkStr(Rs(i)) & "'"
	Next
	Set Rs = Nothing
	SQL = "insert into [NC_Template](" & styleFields & ")values(" & stylevalues & ")"
	DownsysClass.Execute (SQL)
	NC_Admin.Succeed_Msg ("新模板创建成功!")
	DownsysClass.DelCahe ("Templateslist") '删除模板列表缓存
End Sub
%>