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

📄 admin_template.asp

📁 网络上经典的图片程序
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Admin_header
'=====================================================================
' 软件名称：新云网站管理系统
' 当前版本：NewCloud Site Management System Version 2.1
' 文件名称：admin_template.asp
' 更新日期：2004-11-20
' 官方网站：(www.newasp.net www.newasp.cn)   QQ：94022511
'=====================================================================
' Copyright 2002-2005 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Dim Rsm,Action,i
Dim ModuleName,MouseStyle,sChannelID

Response.Write "<script language=JavaScript>" & vbCrLf
Response.Write "function Juge(form1)" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write " if (form1.page_name.value == """")" & vbCrLf
Response.Write " {" & vbCrLf
Response.Write "  alert(""请输入模板名称!"");" & vbCrLf
Response.Write "  form1.page_name.focus();" & vbCrLf
Response.Write "  return (false);" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " if (form1.TemplateDir.value == """")" & vbCrLf
Response.Write " {" & vbCrLf
Response.Write "  alert(""请输入模板目录!"");" & vbCrLf
Response.Write "  form1.TemplateDir.focus();" & vbCrLf
Response.Write "  return (false);" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<table border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder"">"
Response.Write " <tr>"
Response.Write "   <th colspan=""2"">模板样式总管理</th>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write "   <td colspan=""2"" class=""TableRow1""><strong>注意：</strong><br>"
Response.Write " ①在这里，您可以新建和修改模板，可以编辑CSS样式，可以新建模板页面；<br>"
Response.Write " ②当前正在使用的默认模板不能删除；<br>"
Response.Write " ③如果你想为每个页面设计不同的模板，请在相应的<a href='admin_custom.asp' class='showmenu'>自定义标签</a>。</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write "   <td width=""10%"" nowrap class=""TableRow2"">管理选项：</td>"
Response.Write "   <td width=""90%"" class=""TableRow2"">"
Response.Write "<a href=admin_template.asp>管理首页</a> | "
'Response.Write "<a href='admin_custom.asp' class='showmenu'>自定义标签</a> | "
Set Rsm = Newasp.Execute("Select ChannelID,ModuleName From NC_Channel where ChannelType < 2 And ChannelID <> 4 And stopChannel=0 Order By ChannelID Asc")
Do While Not Rsm.EOF
	Response.Write "<a href=?action=manage&ChannelID="
	Response.Write Rsm("ChannelID")
	Response.Write " class=showmeun>"
	Response.Write Rsm("ModuleName")
	Response.Write "模板管理</a> | "
	sModuleName = sModuleName & Rsm("ModuleName") & "|||"
	sChannelID = sChannelID & Rsm("ChannelID") & "|||"
	Rsm.MoveNext
Loop
Set Rsm = Nothing
Response.Write "<a href=?action=manage&ChannelID=9999 class=showmeun>公共模板管理</a> | "
Response.Write "<a href=admin_loadskin.asp class=showmeun>模板导出</a> | "
Response.Write "<a href=admin_loadskin.asp?action=load class=showmeun>模板导入</a>"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<br>"
ChannelID = Newasp.ChkNumeric(Request("ChannelID"))

If ChannelID > 0 Then
	Set Rsm = Newasp.Execute("SELECT ChannelID,ModuleName FROM NC_Channel WHERE ChannelType=0 And ChannelID<>9999 And ChannelID=" & ChannelID)
	If Rsm.BOF And Rsm.EOF Then
		ModuleName = "全部"
	Else
		ModuleName = Rsm("ModuleName")
	End If
	Set Rsm = Nothing
Else
	ModuleName = "全部"
End If
MouseStyle = " bgcolor=""#EEEEE6"" onmouseover=""this.style.backgroundColor='#FFFF00';this.style.color='red'"" onmouseout=""this.style.backgroundColor='';this.style.color=''"""
Action = LCase(Request("action"))
If Not Newasp.CheckAdmin("Template") Then
	Server.Transfer ("showerr.asp")
	Response.End
End If
Select Case Trim(Action)
	Case "del"
		Call DelTemplate
	Case "newtemplate"
		Call NewTemplate
	Case "default"
		Call DefaultTemplate
	Case "editstyle"
		Call EditStyle
	Case "savestyle"
		Call SaveStyle
	Case "set"
		Call SettingTemplate
	Case "saveset"
		Call SaveTemplateSet
	Case "help"
		Call EditTemplateHelp
	Case "savehelp"
		Call SaveTemplateHelp
	Case "manage"
		Call ChannelTemplate
	Case "edit"
		Call EditTemplatePage
	Case "save"
		Call SaveTemplatePage
	Case "newpage"
		Call NewTemplatePage
	Case Else
		Call MainPage
End Select
If FoundErr = True Then
	ReturnError (ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn
Sub MainPage()
	SQL = "select * from [NC_Template] where ChannelID = 0 And pageid = 0 order by skinid asc"
	Set Rs = Newasp.Execute(SQL)
	Response.Write "<table border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder"">"
	Response.Write " <tr>"
	Response.Write "   <th>模板名称</th>"
	Response.Write "   <th>编辑CSS样式</th>"
	Response.Write "   <th>模板常规设置</th>"
	Response.Write "   <th>自定义标签</th>"
	Response.Write "   <th>操作选项</th>"
	Response.Write " </tr>"
	Do While Not Rs.EOF
		Response.Write " <tr "
		Response.Write MouseStyle
		Response.Write ">"
		Response.Write "   <td align=""center"">"
		If Rs("IsDefault") = 1 Then
			Response.Write "<img src=images/arrow.gif> "
			Response.Write "<a href=?action=manage&skinid="
			Response.Write Rs("skinid")
			Response.Write " class=showmeun>"
		Else
			Response.Write "<a href=?action=manage&skinid="
			Response.Write Rs("skinid")
			Response.Write ">"
		End If
		Response.Write Rs("page_name")
		Response.Write "<a/></td>"
		Response.Write "   <td align=""center""><a href=?action=editstyle&TemplateID=" & Rs("TemplateID") & "&StyleID=1>编辑CSS样式</a></td>"
		Response.Write "   <td align=""center""><a href=?action=set&TemplateID=" & Rs("TemplateID") & ">模板常规设置</a></td>"
		Response.Write "   <td align=""center""><a href='admin_custom.asp' class='showmenu'>自定义标签</a></td>"
		Response.Write "   <td align=""center"">"
		Response.Write "   <a href=?action=default&skinid=" & Rs("skinid") & " onclick=""{if(confirm('您确定要将该模板设为默认模板吗?')){return true;}return false;}"">设为默认模板</a> |"
		Response.Write "   <a href=?action=del&skinid=" & Rs("skinid") & "&TemplateID=" & Rs("TemplateID") & " onclick=""{if(confirm('模板删除后将不能恢复，您确定要删除该模板吗?')){return true;}return false;}"">删除模板</a></td>"
		Response.Write " </tr>"
		Rs.MoveNext
	Loop
	Set Rs = Nothing
	Response.Write "<form method=Post name=""myform"" action=""?action=newtemplate"" onSubmit=""return Juge(this)"">"
	Response.Write " <tr>"
	Response.Write "   <td colspan=""5"" align=""center"" class=""TableRow2"">模板名称：<input name=""page_name"" type=""text"" size=""20"">"
	Response.Write "   模板目录：<input name=""TemplateDir"" type=""text"" size=""20"" value=""skin/default/"">"
	Response.Write "   <input type=""submit"" name=""Submit"" value=""新建模板"" class=Button><br>"
	Response.Write "   <strong>注意：</strong>模板目录相对于系统根目录下，模板新建成功后，请到相应的频道模板新建分页模板</td>"
	Response.Write " </tr></form>"
	Response.Write "</table>"

End Sub

Sub EditStyle()
	Dim StyleTitle
	Dim PageContent

	If CInt(Request("StyleID")) = 1 Then
		StyleTitle = "编辑CSS样式"
	Else
		StyleTitle = "编辑模板通栏"
	End If
	Set Rs = Newasp.Execute("select * From [NC_Template] where pageid = 0 And TemplateID = " & Request("TemplateID"))
	If Rs.BOF And Rs.EOF Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>错误的系统参数！</li>"
		Set Rs = Nothing
		Exit Sub
	End If
	PageContent = Split(Rs("page_content"), "|||")
	Response.Write "<table border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder"">"
	Response.Write " <tr>"
	Response.Write "   <th colspan=""2"">" & StyleTitle & "（修改以下设置必须具备一定网页知识）</th>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write " <td Colspan=2 align=right class=TableRow1>"
	Call TemplateJumpList
	Response.Write "</td>"
	Response.Write " </tr><form method=Post name=""myform"" action=""?action=savestyle"" onSubmit=""return Juge(this)"">"
	Response.Write "  <input type=hidden name=TemplateID value=""" & Rs("TemplateID") & """>"
	Response.Write "  <input type=hidden name=StyleID value=""" & Request("StyleID") & """>"
	Response.Write " <tr>"
	Response.Write "   <td width=""10%"" nowrap class=""TableRow2""><strong>模板名称</strong></td>"
	Response.Write "   <td width=""90%"" class=""TableRow1""><input name=""page_name"" type=""text"" size=""30"" value=""" & Rs("page_name") & """>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
	Response.Write "   <a href=?action=editstyle&TemplateID=" & Rs("TemplateID") & "&StyleID=1&ChannelID=" & ChannelID & " class=showmeun>编辑CSS样式</a> | " & vbCrLf
	Response.Write "   <a href=?action=set&TemplateID=" & Rs("TemplateID") & "&ChannelID=" & ChannelID & " class=showmeun>模板基本设置</a></td>" & vbCrLf
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write "   <td class=""TableRow2""><strong>模板目录</strong></td>"
	Response.Write "   <td class=""TableRow1""><input name=""TemplateDir"" type=""text"" size=""30"" value=""" & Rs("TemplateDir") & """></td>" & vbCrLf
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write "   <td nowrap class=""TableRow2""><strong>CSS样式内容</strong><br>相关标签说明<br><br>{$InstallDir}<br>系统根目录<br><br>{$SkinPath}<br>皮肤图片路径</td>"
	Response.Write "   <td class=""TableRow1""><textarea name=""page_style"" style=""width:100%;"" rows=""30"" wrap=""OFF"" id=page_style>" & Server.HTMLEncode(PageContent(0)) & "</textarea>"
	Response.Write "   <div align=right><a href=""javascript:admin_Size(-15,'page_style')""><img src=""images/minus.gif"" unselectable=on border=0></a> <a href=""javascript:admin_Size(15,'page_style')""><img src=""images/plus.gif"" unselectable=on border=0></div></td>"
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write "   <td class=""TableRow2""></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>"
	Response.Write "</table>"
	Set Rs = Nothing

End Sub

Sub SettingTemplate()
	Dim TemplateStr
	Dim TemplateHelpStr
	Dim TempHelpStr
	Dim TempTitleStr
	Dim TempHelpValue
	Dim TempTitleValue

	If Trim(Request("TemplateID")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>模板ID不能为空！</li>"
		Exit Sub
	End If
	Set Rs = Newasp.Execute("Select * 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
	
	TemplateStr = Split(Rs("page_setting"), "|||")
	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=""30%"" Class=BodyTitle align=""center"">"
	Response.Write Rs("page_name")
	Response.Write "</td>" & vbCrLf
	Response.Write " <td width=""70%"" Class=BodyTitle align=""center"">"
	If Rs("pageid") <> 0 Then
		Response.Write "<a href=?action=edit&TemplateID=" & Rs("TemplateID") & "&ChannelID=" & ChannelID & " class=showmeun>编辑该模板界面风格</a> | "
	End If
	Response.Write "<a href=?action=manage&ChannelID=" & Rs("ChannelID") & " class=showmeun>返回模板首页</a>"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write " <td Colspan=2 align=right class=TableRow1>"
	Call TemplateJumpList
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<form name=myform method=""post"" action=""?action=saveset&ChannelID=" & ChannelID & """>"
	Response.Write "<input type=""hidden"" name=""TemplateID"" value=""" & Rs("TemplateID") & """>"
	If TemplateStr(UBound(TemplateStr)) = "" Then TemplateStr(UBound(TemplateStr)) = "del"
	For i = 0 To UBound(TemplateStr)
		If i < UBound(TempHelpStr) Then
			TempHelpValue = TempHelpStr(i)
		Else
			TempHelpValue = "//"
		End If
		If i < UBound(TempTitleStr) Then
			TempTitleValue = TempTitleStr(i)
		Else
			TempTitleValue = "基本设置说明"
		End If
		Response.Write "<tr>"
		Response.Write " <td class=""TableRow2"">"
		Response.Write "<font color=blue style=""font-family:tahoma"">"
		Response.Write i
		Response.Write "、</font>"
		Response.Write TempTitleValue
		Response.Write " </td>"
		Response.Write " <td class=""TableRow1"">"
		If Rs("pageid") = 0 And i <= 6 And LCase(TemplateStr(i)) <> "del" Then
			Response.Write "<input Type=""text"" name=""TemplateStr"" id=""t" & i & """ value="""
			Response.Write Server.HTMLEncode(TemplateStr(i))
			Response.Write """ size=10> "
			If i <> 0 Then
				Response.Write "<font size=3 color=" & TemplateStr(i) & "><b>■</b></font>"
			End If
		ElseIf LenB(TemplateStr(i)) > 90 Then
			Response.Write "<textarea name=""TemplateStr"" id=""t" & i & """  cols=""80"" rows=""3"">"
			Response.Write Server.HTMLEncode(TemplateStr(i))
			Response.Write "</textarea><br>"
			Response.Write "<a href=""javascript:admin_Size(-10,'t" & i & "')""><img src=""images/minus.gif"" unselectable=""on"" border='0'></a> <a href=""javascript:admin_Size(10,'t" & i & "')""><img src=""images/plus.gif"" unselectable=""on"" border='0'></a> "
		ElseIf LenB(TemplateStr(i)) <= 21 And LCase(TemplateStr(i)) <> "del" Then
			Response.Write "<input Type=""text"" name=""TemplateStr"" id=""t" & i & """ value="""
			Response.Write Server.HTMLEncode(TemplateStr(i))
			Response.Write """ size=20> "
		Else
			Response.Write "<input Type=""text"" name=""TemplateStr"" id=""t" & i & """ value="""
			Response.Write Server.HTMLEncode(TemplateStr(i))
			Response.Write """ size=60> "
		End If
		Response.Write "<INPUT TYPE=""hidden"" NAME=""ReadME"" id=""r" & i & """ value=""" & TempHelpValue & """>"
		Response.Write "<a href=# onclick=""helpscript(r" & i & ");return false;"" class=""helplink""><img src=""images/help.gif"" border=0 title=""点击查阅管理帮助！""></a>"
		Response.Write " </td>"
		Response.Write "</tr>"
123

⌨️ 快捷键说明

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