📄 admin_template.asp
字号:
Response.Write " <option value=2> ├列表页面</option>"
Response.Write " <option value=3> ├内容页面</option>"
Response.Write " <option value=4> ├专题页面</option>"
Response.Write " <option value=5> ├推荐页面</option>"
Response.Write " <option value=6> ├热门页面</option>"
Response.Write " <option value=7> ├搜索页面</option>"
Response.Write " <option value=8> ├其它页面</option>"
Response.Write "</select> "
If ChannelID = 0 Then
Response.Write "请选择频道："
Response.Write "<select name=ChannelID>"
sModuleName = Split(sModuleName, "|||")
sChannelID = Split(sChannelID, "|||")
For i = 0 To UBound(sModuleName) - 1
Response.Write " <option value="
Response.Write sChannelID(i)
Response.Write ">"
Response.Write sModuleName(i)
Response.Write "</option>"
Next
Response.Write "</select>"
Else
Response.Write " <input type=""hidden"" name=""ChannelID"" value=""" & ChannelID & """>"
End If
Response.Write "<br>模板名称："
Response.Write "<input type=""text"" name=""pagename"" size=35>"
'Response.Write "模板唯一标识：(请用英文)<input type=""text"" name=""pagemark"" size=20>"
Response.Write " <input type=submit value=""新建分模板"" name=""B2"" class=button> "
Response.Write " </td>"
Response.Write " </form>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write " <th width=""40%"">模板名称</th>"
Response.Write " <th width=""60%"">模板相关设置</th>"
Response.Write "</tr>"
Set Rs = Newasp.Execute("SELECT * FROM NC_Template WHERE " & SQL & " And ChannelID<>3 Order By TemplateID")
If Rs.BOF And Rs.EOF Then
Response.Write "<tr><td colspan=2 align=center>没有找到相关模板！</td></tr>"
Else
Response.Write "<tr>"
Response.Write " <td colspan=2 Class=BodyTitle>当前模板：<font color=blue>"
If Rs("pageid") = 0 Then
Response.Write Rs("page_name")
End If
Response.Write "</font></td>"
Response.Write "</tr>"
Do While Not Rs.EOF
Response.Write "<tr "
Response.Write MouseStyle
Response.Write ">"
Response.Write " <td><li>"
If Rs("ChannelID") = 0 Then
Response.Write "<font color=blue>"
Response.Write Rs("page_name")
Response.Write "</font>"
ElseIf ChannelID = 0 And Rs("pageid") = 1 Then
Response.Write "<font color=red>"
Response.Write Rs("page_name")
Response.Write "</font>"
Else
Response.Write Rs("page_name")
End If
Response.Write "</li></td>"
Response.Write " <td>编辑该模块： "
If Rs("pageid") = 0 Then
Response.Write "<a href=?action=editstyle&TemplateID=" & Rs("TemplateID") & "&StyleID=1&ChannelID=" & ChannelID & ">编辑CSS样式</a> | "
Response.Write "<a href=?action=set&TemplateID=" & Rs("TemplateID") & "&ChannelID=" & ChannelID & ">模板常规设置</a>"
Else
Response.Write "<a href=?action=edit&TemplateID=" & Rs("TemplateID") & "&ChannelID=" & ChannelID & ">编辑模板界面风格</a> | "
Response.Write "<a href=?action=set&TemplateID=" & Rs("TemplateID") & "&ChannelID=" & ChannelID & ">修改模板基本设置</a>"
End If
Response.Write "</td>"
Response.Write "</tr>"
Rs.MoveNext
Loop
Response.Write "<tr>"
Response.Write " <td class=""TableRow1""></td>"
Response.Write " <td class=""TableRow1""></td>"
Response.Write "</tr>"
End If
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 EditTemplatePage()
Dim page_content
If Trim(Request("TemplateID")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>错误的系统参数！</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
If Not IsNull(Rs("page_content")) Then
page_content = Split(Rs("page_content") & "|||@@@|||", "|||@@@|||")
End If
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 Colspan=2 align=right class=TableRow1>"
Call TemplateJumpList
Response.Write "</td>"
Response.Write " </tr><form method=Post name=""myform"" action=""?action=save&ChannelID=" & ChannelID & """>"
Response.Write " <input type=hidden name=TemplateID value=""" & Rs("TemplateID") & """>"
Response.Write " <input type=hidden name=pageid value=""" & Rs("pageid") & """>"
Response.Write " <tr>"
Response.Write " <td width=""10%"" nowrap class=""TableRow2""><strong>当前模板名称</strong></td>"
Response.Write " <td width=""90%"" class=""TableRow1"">"
Response.Write "<input type=""text"" name=""pagename"" value="""
Response.Write Rs("page_name")
Response.Write """ size=35>"
Response.Write " "
Response.Write " <a href=?action=set&TemplateID=" & Rs("TemplateID") & "&ChannelID=" & ChannelID & " class=showmeun>修改该模板基本设置</a> | "
Response.Write "<a href=?action=manage&ChannelID=" & Rs("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"">"
Response.Write "<a href=javascript:openDialog('admin_label.asp?action=list&ChannelID=1',550,490)>文章标签</a> | "
Response.Write "<a href=javascript:openDialog('admin_label.asp?action=list&ChannelID=2',550,460)>软件标签</a> | "
Response.Write "<a href=javascript:openDialog('admin_label.asp?action=list&ChannelID=3',550,460)>商城标签</a> | "
Response.Write "<a href=javascript:openDialog('admin_label.asp?action=list&ChannelID=5',550,460)>动画标签</a> | "
Response.Write "<a href=javascript:openDialog('admin_label.asp?action=image&ChannelID=" & ChannelID & "',550,460)>图片标签</a> | "
Response.Write "<a href=javascript:openDialog('admin_label.asp',550,460)>模板标签管理</a>"
Response.Write "</td>" & vbCrLf
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width=""10%"" class=""TableRow2""><strong>模板内容</strong><br>相关标签说明<br><br>{$InstallDir}<br>系统根目录<br><br>{$SkinPath}<br>皮肤图片路径</td>"
Response.Write " <td class=""TableRow1""><textarea name=""content"" style=""width:100%;"" rows=""30"" wrap=""OFF"" id=PageContent>" & Server.HTMLEncode(page_content(0)) & "</textarea>"
Response.Write " <div align=right><a href=""javascript:admin_Size(-10,'PageContent')""><img src=""images/minus.gif"" unselectable=on border=0></a> <a href=""javascript:admin_Size(10,'PageContent')""><img src=""images/plus.gif"" unselectable=on border=0></div></td>"
Response.Write " </tr>"
If Rs("pageid") = 2 And ChannelID <> 9999 Then
Response.Write " <tr"
If ChannelID = 3 Or ChannelModuleID = 5 Then
Response.Write " style=""display:none"""
End If
Response.Write ">"
Response.Write " <td width=""10%"" class=""TableRow2""><strong>模板内容</strong><br>说明：<br>此模板是大类列表页面模板，如果你只有一级分类此模板可能不用编辑。<br>如：你的分类下面包含子分类。当用访问父级分类的时候就显示此模板内容</td>"
If ChannelID = 3 Or ChannelModuleID = 5 Then
Response.Write " <td class=""TableRow1""><textarea name=""content1"" id=PageContent1></textarea>"
Else
Response.Write " <td class=""TableRow1""><textarea name=""content1"" style=""width:100%;"" rows=""30"" wrap=""OFF"" id=PageContent1>" & Server.HTMLEncode(page_content(1)) & "</textarea>"
End If
Response.Write " <div align=right><a href=""javascript:admin_Size(-10,'PageContent1')""><img src=""images/minus.gif"" unselectable=on border=0></a> <a href=""javascript:admin_Size(10,'PageContent1')""><img src=""images/plus.gif"" unselectable=on border=0></div></td>"
Response.Write " </tr>"
End If
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 SaveTemplatePage()
Dim TemplateContent
Dim page_name
If Trim(Request("TemplateID")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>模板ID不能为空！</li>"
Exit Sub
End If
If Trim(Request("pagename")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>模板内容不能为空！</li>"
Exit Sub
End If
If Trim(Request("content")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>模板内容不能为空！</li>"
Exit Sub
End If
TemplateContent = Request.Form("content")
If Request.Form("pageid") = 2 And ChannelID <> 9999 And ChannelID <> 3 And ChannelModuleID <> 5 Then
TemplateContent = TemplateContent & "|||@@@|||" & Request.Form("content1")
End If
TemplateContent = Newasp.CheckStr(TemplateContent)
page_name = Newasp.CheckStr(Request.Form("pagename"))
Newasp.Execute ("update [NC_Template] set page_name = '" & page_name & "', page_content ='" & TemplateContent & "' Where TemplateID =" & Request("TemplateID"))
Call RemoveCache
Succeed ("<li>恭喜您！修改模板基本设置成功。</li>")
End Sub
Sub NewTemplatePage()
Dim Rss
Dim pageid
Dim skinid
Dim TemplateName
Dim TemplateFields
Dim TemplateValues
If Trim(Request("pageid")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>请选择模板所属类型！</li>"
Exit Sub
End If
If Trim(Request("pagename")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>模板名称不能为空！</li>"
Exit Sub
End If
If Trim(Request("skinid")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>错误的系统参数！</li>"
Exit Sub
End If
If Trim(Request("ChannelID")) = "" Or Request("ChannelID") = 0 Then
FoundErr = True
ErrMsg = ErrMsg + "<li>错误的系统参数！</li>"
Exit Sub
End If
If CInt(Request("pageid")) = 0 Then
ChannelID = 0
pageid = 1
Else
ChannelID = CInt(Request("ChannelID"))
pageid = CInt(Request("pageid"))
End If
skinid = CLng(Request("skinid"))
TemplateName = Newasp.CheckStr(Trim(Request("pagename")))
'If pageid <> 8 Then
Set Rss = Newasp.Execute("select pageid From [NC_Template] where skinid = " & skinid & " And ChannelID = " & ChannelID & " And pageid = " & pageid)
If Not (Rss.BOF And Rss.EOF) Then
FoundErr = True
ErrMsg = ErrMsg + "<li>此模板类型已经存在,请选择其它类型模板！</li>"
Exit Sub
End If
Set Rss = Nothing
'End If
Set Rss = Newasp.Execute("select * From [NC_Template] where pageid = 0 And IsDefault = 1")
Set Rs = Newasp.Execute("select * From [NC_Template] where skinid = " & Rss("skinid") & " And ChannelID = " & ChannelID & " And pageid = " & pageid)
If Not (Rs.BOF And Rs.EOF) Then
TemplateFields = "ChannelID,skinid,pageid,page_name,page_content,page_setting,Template_Help,isDefault"
TemplateValues = "" & ChannelID & "," & skinid & "," & pageid & ",'" & 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 & ")"
Else
TemplateValues = "" & ChannelID & "," & skinid & "," & pageid & ",'" & TemplateName & "','|||','1|||','|||@@@|||',0"
SQL = "insert into [NC_Template](ChannelID,skinid,pageid,page_name,page_content,page_setting,Template_Help,isDefault)values(" & TemplateValues & ")"
End If
Set Rs = Nothing
Set Rss = Nothing
Newasp.Execute (SQL)
OutHintScript ("新建分模板“" & Request.Form("pagename") & "”成功！")
End Sub
Sub TemplateJumpList()
Dim rstmp, tmpsql, tmpname, sel
Dim strTemp, strContent, strStetting
strTemp = ""
On Error Resume Next
If ChannelID > 0 Then
If Trim(Request("skinid")) <> "" And Trim(Request("skinid")) <> "0" Then
tmpsql = "And skinid=" & Trim(Request("skinid"))
Else
tmpsql = "And isDefault=1"
End If
tmpsql = "SELECT TemplateID,pageid,page_name FROM NC_Template WHERE (ChannelID=0 Or ChannelID=" & ChannelID & ") " & tmpsql & " ORDER BY TemplateID"
Set rstmp = Newasp.Execute(tmpsql)
If rstmp.BOF And rstmp.EOF Then
Set rstmp = Nothing
Exit Sub
End If
Do While Not rstmp.EOF
If rstmp("TemplateID") = CLng(Request("TemplateID")) Then
sel = " selected"
Else
sel = ""
End If
If rstmp("pageid") = 0 Then
strContent = strContent & "<option>↓" & rstmp("page_name") & "-界面风格↓</option>" & vbCrLf
strStetting = strStetting & "<option>↓" & rstmp("page_name") & "-基本设置↓</option>" & vbCrLf
strStetting = strStetting & "<option value='?action=set&TemplateID=" & rstmp("TemplateID") & "&ChannelID=" & ChannelID & "'" & sel & ">主模板常规设置</option>" & vbCrLf
Else
strContent = strContent & "<option value='?action=edit&TemplateID=" & rstmp("TemplateID") & "&ChannelID=" & ChannelID & "'" & sel & ">" & rstmp("page_name") & "-界面</option>" & vbCrLf
strStetting = strStetting & "<option value='?action=set&TemplateID=" & rstmp("TemplateID") & "&ChannelID=" & ChannelID & "'" & sel & ">" & rstmp("page_name") & "-设置</option>" & vbCrLf
End If
rstmp.MoveNext
Loop
rstmp.Close: Set rstmp = Nothing
Response.Write "选择分页模板："
Response.Write "<select onchange=""if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}"">" & vbCrLf
Response.Write strContent
Response.Write "</select>"
Response.Write "<select onchange=""if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}"">" & vbCrLf
Response.Write strStetting
Response.Write "</select>"
End If
End Sub
Sub RemoveCache()
If Not IsNumeric(Request("TemplateID")) Then
Exit Sub
End If
Dim rsCache
Set rsCache = Newasp.Execute("SELECT TemplateID,ChannelID,skinid,pageid FROM NC_Template WHERE TemplateID=" & CLng(Request("TemplateID")))
Newasp.DelCahe "MainStyle" & rsCache("skinid")
Newasp.DelCahe "Templates" & rsCache("ChannelID") & rsCache("skinid") & rsCache("pageid")
Newasp.DelCahe "DefaultSkinID"
Newasp.DelCahe "ChannelMenu"
Newasp.DelCahe "SiteClassMap"
rsCache.Close: Set rsCache = Nothing
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -