⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_template.asp

📁 网络上经典的图片程序
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
	Next
	Response.Write "<tr>"
	Response.Write " <td class=""TableRow2"" align=""center""><a href=""?action=help&TemplateID=" & Rs("TemplateID") & "&ChannelID=" & ChannelID & """><font color=blue>该模板帮助设置</font></a></td>"
	Response.Write " <td class=""TableRow1"" align=""center""><input type=""button"" name=""Submit4"" onclick=""javascript:history.go(-1)"" value=""返回上一页"" class=Button>          <input type=""submit"" name=""btnSubmit"" value=""保存设置"" class=Button></td>"
	Response.Write "</tr>"
	Response.Write "</form>"
	Response.Write "<tr>"
	Response.Write " <td Colspan=2 class=""TableRow2""><font color=red><b>警告：</b></font><li><font color=blue>请不要在文本框中输入“del”，这样会删除相应的设置数据，那么模板会出现错误，导致网站不能正常访问。</font></li></td>"
	Response.Write "</tr>"
	Response.Write "</table>"
	Set Rs = Nothing

End Sub

Sub SaveTemplateSet()
	Dim TempStr
	Dim TemplateStr

	If Trim(Request("TemplateID")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>模板ID不能为空！</li>"
		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 = Newasp.CheckStr(TemplateStr)
	Newasp.Execute ("update [NC_Template] set page_setting ='" & TemplateStr & "' Where TemplateID =" & Request("TemplateID"))
	Call RemoveCache
	Succeed ("<li>恭喜您！修改模板基本设置成功。</li>")

End Sub

Sub EditTemplateHelp()
	Dim TemplateHelpStr
	Dim TempTitleStr
	Dim TempHelpStr
	'-----------模板帮助设置开始----------------
	'编辑模板帮助

	If Trim(Request("TemplateID")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>模板ID不能为空！</li>"
		Exit Sub
	End If
	Set Rs = Newasp.Execute("Select TemplateID,page_name,Template_Help From NC_Template where TemplateID = " & Request("TemplateID"))
	If Rs.BOF And Rs.EOF Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>错误的模板参数！</li>"
		Set Rs = Nothing
		Exit Sub
	End If
	TemplateHelpStr = Split(Rs("Template_Help"), "@@@")
	TempTitleStr = Split(TemplateHelpStr(0), "|||")
	TempHelpStr = Split(TemplateHelpStr(1), "|||")
	Response.Write "<table border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder"">"
	Response.Write "<tr>"
	Response.Write " <th Colspan=2>当前模板 (" & Rs("page_name") & ") 帮助管理</th>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write " <td width=""40%"" Class=TableTitle align=""center"">模板设置标题说明</td>"
	Response.Write " <td width=""60%"" Class=TableTitle align=""center"">模板设置帮助详细说明</td>"
	Response.Write "</tr>"
	Response.Write "<form name=myform method=""post"" action=""?action=savehelp&ChannelID=" & ChannelID & """>"
	Response.Write "<input type=""hidden"" name=""TemplateID"" value=""" & Rs("TemplateID") & """>"
	If TempTitleStr(UBound(TempTitleStr)) = "" Then
		TempTitleStr(UBound(TempTitleStr)) = "del"
	End If
	For i = 0 To UBound(TempTitleStr)
		Response.Write "<tr>" & vbCrLf
		Response.Write Chr(9) & "<td class=""TableRow1"">"
		Response.Write "<input Type=""text"" name=""TempTitleStr"" value="""
		Response.Write Server.HTMLEncode(TempTitleStr(i))
		Response.Write """ size=50> "
		Response.Write "</td>" & vbCrLf
		Response.Write Chr(9) & "<td class=""TableRow1"">"
		If LenB(TempHelpStr(i)) > 70 Then
			Response.Write "<textarea name=""TempHelpStr""  cols=""70"" rows=""3"">"
			Response.Write Server.HTMLEncode(TempHelpStr(i))
			Response.Write "</textarea>"
		Else
			Response.Write "<input Type=""text"" name=""TempHelpStr"" value="""
			Response.Write Server.HTMLEncode(TempHelpStr(i))
			Response.Write """ size=50> "
		End If
		Response.Write "</td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
	Next
	Response.Write "<tr>"
	Response.Write " <td class=""TableRow2"" align=""center""><a href=""?action=set&TemplateID=" & Rs("TemplateID") & "&ChannelID=" & ChannelID & """><font color=blue>该模板基本设置</font></a></td>"
	Response.Write " <td class=""TableRow1"" align=""center""><input type=""button"" name=""Submit4"" onclick=""javascript:history.go(-1)"" value=""返回上一页"" class=Button>          <input type=""submit"" name=""btnSubmit"" value=""保存帮助"" class=Button></td>"
	Response.Write "</tr></form><tr>"
	Response.Write " <td Colspan=2 class=""TableRow2""><font color=blue><b>注意：</b> 帮助内容是针对相应的模板基本设置。</font><li>帮助编辑规则：如果想清除该帮助，请在对应的文本框中输入“del”，那么帮助数据的序号就会前移。</li>"
	Response.Write " <li>如果不想改变帮助数据的序号,仅把该项目的数据清空,则只需要把内容清空。</li></td>"
	Response.Write "</tr>"
	Response.Write "</table>"
	Set Rs = Nothing
End Sub

Sub SaveTemplateHelp()
	Dim TempStr
	Dim HelpStr
	Dim TemplateHelpStr
	Dim TempHelpStr
	Dim TempTitleStr
	'保存模板帮助

	If Trim(Request("TemplateID")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>模板ID不能为空！</li>"
		Exit Sub
	End If
	'提取表单中的数据

	TempTitleStr = ""
	For Each TempStr In Request.Form("TempTitleStr")
		If LCase(TempStr) <> "del" Then
			TempTitleStr = TempTitleStr & Replace(TempStr, "|||", "") & "|||"
		End If
	Next
	TempHelpStr = ""
	For Each HelpStr In Request.Form("TempHelpStr")
		TempHelpStr = TempHelpStr & Replace(HelpStr, "|||", "") & "|||"
	Next
	TemplateHelpStr = Newasp.CheckStr(TempTitleStr & "@@@" & TempHelpStr)
	Newasp.Execute ("update [NC_Template] set Template_Help ='" & TemplateHelpStr & "' Where TemplateID =" & Request("TemplateID"))
	Call RemoveCache
	OutHintScript ("恭喜您！设置模板帮助成功。")
	'-----------模板帮助设置结束----------------
End Sub

Sub SaveStyle()
	Dim TemplateDir
	Dim page_content
	Dim FileName
	Dim FileContent
	

	If Trim(Request.Form("page_name")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>模板名称不能为空！</li>"
	End If
	If Trim(Request.Form("TemplateDir")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>模板目录不能为空！</li>"
	End If
	If Not Newasp.IsValidChar(Request.Form("TemplateDir")) Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>模板目录中含有非法字符或者中文字符！</li>"
	End If
	If Right(Request.Form("TemplateDir"), 1) <> "/" Then
		TemplateDir = Trim(Request.Form("TemplateDir")) & "/"
	Else
		TemplateDir = Trim(Request.Form("TemplateDir"))
	End If
	If FoundErr Then Exit Sub
	page_content = Newasp.CheckStr(Request.Form("page_style"))
	Newasp.Execute ("UPDATE [NC_Template] SET TemplateDir='" & TemplateDir & "',page_name='" & Trim(Request.Form("page_name")) & "',page_content='" & page_content & "' WHERE TemplateID = " & CLng(Request("TemplateID")))
	
	Newasp.CreatPathEx (Newasp.InstallDir & TemplateDir)
	FileName = Newasp.InstallDir & TemplateDir & "style.css"
	FileContent = Request.Form("page_style")
	FileContent = Replace(FileContent, "{$InstallDir}", Newasp.InstallDir)
	FileContent = Replace(FileContent, "{$SkinPath}", TemplateDir)
	Newasp.CreatedTextFile FileName, FileContent
	Call RemoveCache
	
	SucMsg = ("<li>恭喜您！编辑CSS样式成功。</li>")
	Succeed (SucMsg)
	
End Sub

Sub NewTemplate()
	Dim TemplateDir
	Dim TemplateName
	
	Dim TemplateFields
	Dim TemplateValues
	Dim newskinid

	If Trim(Request.Form("page_name")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>模板名称不能为空！</li>"
	End If
	If Trim(Request.Form("TemplateDir")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>模板目录不能为空！</li>"
	End If
	If Not Newasp.IsValidChar(Request.Form("TemplateDir")) Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>模板目录中含有非法字符或者中文字符！</li>"
	End If
	If Right(Request.Form("TemplateDir"), 1) <> "/" Then
		TemplateDir = Trim(Request.Form("TemplateDir")) & "/"
	Else
		TemplateDir = Trim(Request.Form("TemplateDir"))
	End If
	If FoundErr Then Exit Sub
	
	Newasp.CreatPathEx (Newasp.InstallDir & TemplateDir)
	'Response.Write "<li>正在新建模板…… 请稍候…… 现在请不要刷新页面。</li>"
	TemplateName = Newasp.CheckStr(Trim(Request("page_name")))
	Set Rs = Newasp.Execute("Select Max(skinid) from [NC_Template] where pageid = 0")
	If Not (Rs.EOF And Rs.BOF) Then
		newskinid = Rs(0)
	End If
	If IsNull(newskinid) Then newskinid = 0
	Rs.Close
	newskinid = newskinid + 1
	Set Rs = Newasp.Execute("select * From [NC_Template] where IsDefault = 1")
	If Not (Rs.BOF And Rs.EOF) Then
		Do While Not Rs.EOF
			If Rs("pageid") <> 0 Then
				TemplateName = Rs("page_name")
			End If
			TemplateFields = "ChannelID,skinid,pageid,TemplateDir,page_name,page_content,page_setting,Template_Help,isDefault"
			TemplateValues = "" & Rs("ChannelID") & "," & newskinid & "," & Rs("pageid") & ",'" & TemplateDir & "','" & TemplateName & "','" & Newasp.CheckStr(Rs("page_content")) & "','" & Newasp.CheckStr(Rs("page_setting")) & "','" & Newasp.CheckStr(Rs("Template_Help")) & "',0"
			SQL = "insert into [NC_Template](" & TemplateFields & ")values(" & TemplateValues & ")"
			Newasp.Execute (SQL)
			Rs.MoveNext
		Loop
	Else
		TemplateValues = "0," & newskinid & ",0,'" & TemplateDir & "','" & TemplateName & "','|||||||||','|||','|||@@@|||',0"
		SQL = "insert into [NC_Template](ChannelID,skinid,pageid,TemplateDir,page_name,page_content,page_setting,Template_Help,isDefault)values(" & TemplateValues & ")"
		Newasp.Execute (SQL)
	End If
	Set Rs = Nothing
	OutHintScript ("新建模板“" & Request.Form("page_name") & "”成功！")
	
End Sub

Sub DelTemplate()
	Set Rs = Newasp.Execute("Select IsDefault From NC_Template where TemplateID = " & Request("TemplateID"))
	If Rs(0) = 1 Then
		ErrMsg = ErrMsg + "<li>此模板是默认模版，不允许删除。"
		FoundErr = True
		Exit Sub
	Else
		Newasp.Execute ("Delete From NC_Template where skinid = " & Request("skinid"))
		Application.Contents.RemoveAll
		OutHintScript ("模板删除成功！")
	End If
	Set Rs = Nothing
End Sub

Sub DefaultTemplate()
	If Trim(Request("skinid")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>模板ID不能为空！</li>"
		Exit Sub
	End If
	Newasp.Execute ("update NC_Template set isDefault = 0 where isDefault = 1")
	Newasp.Execute ("update NC_Template set isDefault = 1 where skinid = " & Request("skinid"))
	Newasp.DelCahe "MainStyle" & Request("skinid")
	Newasp.DelCahe "DefaultSkinID"
	OutHintScript ("恭喜您，设置默认模板成功！")
End Sub

Sub ChannelTemplate()
	Dim skinid
	Dim Rss
	skinid = CLng(Request("skinid"))
	If Request("skinid") <> "" And ChannelID = 0 Then
		SQL = "skinid = " & skinid
	ElseIf Request("skinid") <> "" And ChannelID <> 0 Then
		SQL = "(skinid = " & skinid & " And ChannelID = " & ChannelID & ") Or (skinid = " & skinid & " And ChannelID = 0)"
	Else
		Set Rs = Newasp.Execute("Select * From NC_Template where isDefault = 1 And pageid = 0")
		If ChannelID <> 0 Then
			SQL = "(skinid = " & Rs("skinid") & " And ChannelID = " & ChannelID & ") Or (skinid = " & Rs("skinid") & " And ChannelID = 0)"
		Else
			SQL = "skinid = " & Rs("skinid")
		End If
		skinid = Rs("skinid")
		Set Rs = Nothing
	End If
	Response.Write "<table border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder"">"
	Response.Write "<tr>"
	Response.Write " <th colspan=2>"
	Response.Write ModuleName
	Response.Write "模板管理列表</th>"
	Response.Write "</tr>"
	Response.Write " <form name=myform method=""post"" action=""?action=manage"">"
	Response.Write " <input type=""hidden"" name=""ChannelID"" value=""" & ChannelID & """>"
	Response.Write " <td class=""TableRow2"">请选择模板："
	Set Rss = Newasp.Execute("Select * From NC_Template where pageid = 0")
	Response.Write "<select name=skinid>"
	Do While Not Rss.EOF
		Response.Write " <option value="
		Response.Write Rss("skinid")
		If Rss("skinid") = skinid Then Response.Write " selected"
		Response.Write ">"
		Response.Write Rss("page_name")
		Response.Write "</option>"
		Rss.MoveNext
	Loop
	Set Rss = Nothing
	Response.Write "</select>"
	Response.Write "&nbsp;<input type=submit value=""提 交"" name=""B1"" class=button>"
	Response.Write " </td>"
	Response.Write " </form>"
	Response.Write " <form name=myform method=""post"" action=""?action=newpage"">"
	Response.Write " <input type=""hidden"" name=""skinid"" value=""" & skinid & """>"
	Response.Write " <td class=""TableRow2"">新建"
	Response.Write ModuleName
	Response.Write "分模板页面："
	Response.Write "<select name=pageid>"
	Response.Write " <option value=''>↓请选择模板类型↓</option>"
	Response.Write " <option value=0>网站首页模板</option>"
	Response.Write " <option value=1>≡"
	Response.Write ModuleName
	Response.Write "首页≡</option>"
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -