开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 中间件编程 > 查看源码
ThemeDetail.asp
资源名称：www.myworld.net.cn.rar　[点击查看]
上传用户：saigedz
上传日期：2019-10-14
资源大小：997k
文件大小：12k
源码类别：

中间件编程

开发平台：

HTML/CSS

ThemeDetail.asp：源码内容
  1. <%@ CODEPAGE=65001 %>
  2. <%
  3. '///////////////////////////////////////////////////////////////////////////////
  4. '// 插件应用:    1.8 Pre Terminator 及以上版本, 其它版本的Z-blog未知
  5. '// 插件制作:    haphic(http://haphic.com/)
  6. '// 备    注:    主题管理插件
  7. '// 最后修改：   2008-6-28
  8. '// 最后版本:    1.2
  9. '///////////////////////////////////////////////////////////////////////////////
  10. %>
  11. <% Option Explicit %>
  12. <% On Error Resume Next %>
  13. <% Response.Charset="UTF-8" %>
  14. <% Response.Buffer=True %>
  15. <!-- #include file="../../c_option.asp" -->
  16. <!-- #include file="../../function/c_function.asp" -->
  17. <!-- #include file="../../function/c_system_lib.asp" -->
  18. <!-- #include file="../../function/c_system_base.asp" -->
  19. <!-- #include file="../../function/c_system_plugin.asp" -->
  20. <!-- #include file="c_sapper.asp" -->
  21. <%
  22. Call System_Initialize()
  24. '检查非法链接
  25. Call CheckReference("")
  27. '检查权限
  28. If BlogUser.Level>1 Then Call ShowError(6)
  30. If CheckPluginState("ThemeSapper")=False Then Call ShowError(48)
  32. SelectedTheme=Request.QueryString("theme")
  33. SelectedThemeName=Request.QueryString("themename")
  35. If SelectedThemeName = "" Then SelectedThemeName = SelectedTheme
  37. BlogTitle="Theme Sapper"
  39. %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  40. <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="<%=ZC_BLOG_LANGUAGE%>" lang="<%=ZC_BLOG_LANGUAGE%>">
  41. <head>
  42. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  43. <meta http-equiv="Content-Language" content="<%=ZC_BLOG_LANGUAGE%>" />
  44. <meta name="robots" content="noindex,nofollow"/>
  45. <link rel="stylesheet" rev="stylesheet" href="../../CSS/admin.css" type="text/css" media="screen" />
  46. <link rel="stylesheet" rev="stylesheet" href="images/style.css" type="text/css" media="screen" />
  47. <title><%=BlogTitle%></title>
  48. </head>
  49. <body>
  50. <div id="divMain">
  51. <div class="Header">Theme Sapper - 主题: "<%=SelectedThemeName%>" 的详细信息.</div>
  52. <%Call SapperMenu("0")%>
  53. <div id="divMain2">
  54. <%Call GetBlogHint()%>
  55. <div>
  56. <%
  57. Response.Write "<p id=""loading"">正在载入主题信息, 请稍候... 如果长时间停止响应, 请 <a href=""javascript:window.location.reload();"" title=""点此重试"">[点此重试]</a></p>"
  58. Response.Flush
  60. Dim objXmlFile,strXmlFile
  61. Dim fso
  62. Set fso = CreateObject("Scripting.FileSystemObject")
  64. If fso.FileExists(BlogPath & "/THEMES/" & SelectedTheme & "/" & "theme.xml") Then
  66. strXmlFile =BlogPath & "/THEMES/" & SelectedTheme & "/" & "theme.xml"
  68. Set objXmlFile=Server.CreateObject("Microsoft.XMLDOM")
  69. objXmlFile.async = False
  70. objXmlFile.ValidateOnParse=False
  71. objXmlFile.load(strXmlFile)
  72. If objXmlFile.readyState=4 Then
  73. If objXmlFile.parseError.errorCode <> 0 Then
  74. Else
  76. 'ThemeID=SelectedTheme
  77. ThemeID=objXmlFile.documentElement.selectSingleNode("id").text
  78. ThemeName=objXmlFile.documentElement.selectSingleNode("name").text
  79. ThemeURL=objXmlFile.documentElement.selectSingleNode("url").text
  80. ThemeNote=objXmlFile.documentElement.selectSingleNode("note").text
  82. ThemeAuthor_Name=objXmlFile.documentElement.selectSingleNode("author/name").text
  83. ThemeAuthor_Url=objXmlFile.documentElement.selectSingleNode("author/url").text
  84. ThemeAuthor_Email=objXmlFile.documentElement.selectSingleNode("author/email").text
  86. ThemeSource_Name=objXmlFile.documentElement.selectSingleNode("source/name").text
  87. ThemeSource_Url=objXmlFile.documentElement.selectSingleNode("source/url").text
  88. ThemeSource_Email=objXmlFile.documentElement.selectSingleNode("source/email").text
  90. ThemePlugin_Name=objXmlFile.documentElement.selectSingleNode("plugin/name").text
  91. ThemePlugin_Note=objXmlFile.documentElement.selectSingleNode("plugin/note").text
  92. ThemePlugin_Type=objXmlFile.documentElement.selectSingleNode("plugin/type").text
  93. ThemePlugin_Path=objXmlFile.documentElement.selectSingleNode("plugin/path").text
  94. ThemePlugin_Include=objXmlFile.documentElement.selectSingleNode("plugin/include").text
  95. ThemePlugin_Level=objXmlFile.documentElement.selectSingleNode("plugin/level").text
  97. ThemeAdapted=objXmlFile.documentElement.selectSingleNode("adapted").text
  98. ThemeVersion=objXmlFile.documentElement.selectSingleNode("version").text
  99. ThemePubDate=objXmlFile.documentElement.selectSingleNode("pubdate").text
  100. ThemeModified=objXmlFile.documentElement.selectSingleNode("modified").text
  102. ThemeDescription=objXmlFile.documentElement.selectSingleNode("description").text
  103. ThemeDescription=TransferHTML(ThemeDescription,"[enter]")
  105. End If
  106. End If
  107. Set objXmlFile=Nothing
  109. Else
  111. ThemeID=SelectedTheme
  112. ThemeName=SelectedTheme
  113. ThemeURL=Empty
  114. ThemeNote="Nothing"
  116. ThemeSource_Name="unknown"
  117. ThemeSource_Url=Empty
  118. ThemeSource_Email="unknown"
  120. ThemeAuthor_Name="unknown"
  121. ThemeAuthor_Url=Empty
  122. ThemeAuthor_Email="unknown"
  124. ThemePlugin_Name="Nothing"
  125. ThemePlugin_Note="Nothing"
  126. ThemePlugin_Type="Nothing"
  127. ThemePlugin_Path="Nothing"
  128. ThemePlugin_Include="Nothing"
  129. ThemePlugin_Level="Nothing"
  131. ThemeAdapted="unknown"
  132. ThemeVersion="unknown"
  133. ThemePubDate="unknown"
  134. ThemeModified="unknown"
  136. ThemeDescription="Nothing"
  138. End If
  140. If fso.FileExists(BlogPath & "/THEMES/" & SelectedTheme & "/" & "screenshot.png") Then
  141. ThemeScreenShot="../../THEMES/" & SelectedTheme & "/" & "screenshot.png"
  142. Else
  143. ThemeScreenShot="Images/noscreenshot.png"
  144. End If
  146. Response.Write "<form id=""edit"" name=""edit"" method=""post"" action=""../../cmd.asp?act=ThemesSav"">"
  147. Response.Write "<div class=""themeDetail"">"
  149. Response.Write "<p><img src=""" & ThemeScreenShot & """ title=""" & ThemeName & """ alt=""ScreenShot"" /></p>"
  151. If fso.FileExists(BlogPath & "/THEMES/" & ThemeID & "/" & "verchk.xml") Then
  152. Response.Write "<p><a href=""Xml_Install.asp?act=update&amp;url=" & Server.URLEncode(Update_URL & ThemeID) & """ title=""升级主题""><b class=""notice"">发现该主题的新版本!</b></a></p><br />"
  153. ElseIf fso.FileExists(BlogPath & "/THEMES/" & ThemeID & "/" & "error.log") Then
  154. Response.Write "<p><b class=""somehow"">该主题不支持在线更新.</b></p><br />"
  155. End If
  157. If UCase(ThemeID)<>UCase(SelectedTheme) Then
  158. Response.Write "<p>该主题ID错误, 请 <a href=""Xml_Edit.asp?theme=" & Server.URLEncode(SelectedTheme) & """ title=""编辑主题信息""><font color=""red""><b>[重新编辑主题信息]</b></font></a>.</p><br />"
  159. Else
  160. Response.Write "<p><b>主题 ID:</b> " & ThemeID & "</p><br />"
  161. End If
  163. Response.Write "<p><b>主题名称:</b> " & ThemeName & "</p>"
  164. If ThemeURL<>Empty Then Response.Write "<p><b>发布地址:</b> <a href=""" & ThemeURL & """ target=""_blank"" title=""主题的发布地址"">" & ThemeURL & "</a></p>"
  165. If ThemeAuthor_Url=Empty Then
  166. Response.Write "<p><b>主题作者:</b> " & ThemeAuthor_Name & "</p>"
  167. Else
  168. Response.Write "<p><b>主题作者:</b> <a href=""" & ThemeAuthor_Url & """ target=""_blank"" title=""作者主页"">" & ThemeAuthor_Name & "</a></p>"
  169. End If
  170. If ThemeAuthor_Email<>Empty Then Response.Write "<p><b>作者邮箱:</b> <a href=""mailto:" & ThemeAuthor_Email & """ title=""作者邮箱"">" & ThemeAuthor_Email & "</a></p>"
  171. Response.Write "<p><b>发布日期:</b> " & ThemePubDate & "</p>"
  172. Response.Write "<p><b>主题简介:</b> " & ThemeNote & "</p><br />"
  174. Response.Write "<p><b>适用于:</b> " & ThemeAdapted & "</p>"
  175. Response.Write "<p><b>主题版本:</b> " & ThemeVersion & "</p>"
  176. Response.Write "<p><b>修正日期:</b> " & ThemeModified & "</p><br />"
  178. If ThemeSource_Name<>Empty Then
  179. If ThemeSource_Url=Empty Then
  180. Response.Write "<p><b>主题源作者:</b> " & ThemeSource_Name & "</p>"
  181. Else
  182. Response.Write "<p><b>主题源作者:</b> <a href=""" & ThemeSource_Url & """ target=""_blank"" title=""源作者主页"">" & ThemeSource_Name & "</a></p>"
  183. End If
  184. If ThemeSource_Email<>Empty Then Response.Write "<p><b>源作者邮箱:</b> <a href=""mailto:" & ThemeSource_Email & """ title=""源作者邮箱"">" & ThemeSource_Email & "</a></p>"
  185. End If
  187. If ThemePlugin_Name<>Empty Then
  188. Response.Write "<br /><p><b>此主题含有附带插件:</b></p>"
  189. Response.Write "<p><b>插件名称:</b> " & ThemePlugin_Name & "</p>"
  190. Response.Write "<p><b>插件简介:</b> " & ThemePlugin_Note & "</p>"
  191. Response.Write "<p><b>插件类型:</b> " & ThemePlugin_Type & "</p>"
  192. Response.Write "<p><b>管理主口:</b> " & ThemePlugin_Path & "</p>"
  193. Response.Write "<p><b>包含文件:</b> " & ThemePlugin_Include & "</p>"
  194. Response.Write "<p><b>插件权限:</b> " & ThemePlugin_Level & "</p>"
  195. End If
  197. If ThemeDescription<>"" Then Response.Write "<hr /><br /><p><b>详细说明:</b></p>" & "<blockquote>" & ThemeDescription & "</blockquote><br />"
  199. Response.Write "<p><b><a href=""Xml_Install.asp?act=update&amp;url=" & Server.URLEncode(Update_URL & ThemeID) & """ title=""升级修复主题"">[升级修复主题]</a>:</b> 重新下载安装此主题以完成对主题的升级和修复.</p>"
  201. Response.Write "<p><b><a href=""Xml_Edit.asp?theme=" & Server.URLEncode(SelectedTheme) & """ title=""编辑主题信息"">[编辑信息]</a>:</b> 此功能可用于生成或编辑该主题的信息文档 Theme.xml.</p>"
  203. Response.Write "<p><b><a href=""Xml_Pack.asp?theme=" & Server.URLEncode(SelectedTheme) & """ title=""导出主题为 ZTI 文件"">[导出主题]</a>:</b> 将此主题导出为 ZTI 主题安装包文件, 并保存于 TS 插件中的 Export 目录下.</p>"
  205. Response.Write "<p><b><a href=""ThemeList.asp?act=themedel&amp;theme=" & Server.URLEncode(SelectedTheme) & "&amp;themename=" & Server.URLEncode(ThemeName) & """ title=""删除此主题"" onclick=""return window.confirm('您将删除此主题的所有文件, 确定吗?');"">[删除主题]</a>:</b> 从 THEMES 目录下删除该主题, 正在使用的主题无法删除.</p>"
  208. Dim i,j
  209. Dim aryFileList
  210. Dim Theme_Style_Name
  212. aryFileList=LoadIncludeFiles("themes" & "/" & SelectedTheme & "/style")
  214. Response.Write "<br /><hr /><p><input type=""hidden"" name=""edtZC_BLOG_THEME"" value="""& SelectedTheme &""">"
  216. If IsArray(aryFileList) Then
  217. j=UBound(aryFileList)
  218. For i=1 to j
  219. GetFileExt(f1.name)="zti" Or GetFileExt(f1.name)="xml"
  220. If (GetFileExt(aryFileList(i))="css") Or (GetFileExt(aryFileList(i))="asp") Then
  221. Theme_Style_Name=Replace(aryFileList(i),"." & GetFileExt(aryFileList(i)),"")
  222. Response.Write "<p>"
  223. If i=1 Then
  224. Response.Write " <input type=""radio"" checked=""checked"" name=""edtZC_BLOG_CSS"" value="""& Theme_Style_Name &"""> 选择样式 "&aryFileList(i)&"; "
  225. Else
  226. Response.Write " <input type=""radio"" name=""edtZC_BLOG_CSS"" value="""& Theme_Style_Name &"""> 选择样式 "&aryFileList(i)&"; "
  227. End If
  228. Response.Write "</p>"
  229. End If
  230. Next
  231. End If
  233. Response.Write "</p><br /><p><input type=""submit"" class=""button"" value=""应用此主题"" id=""btnPost"" title=""应用此主题"" /> <input onclick=""self.location.href='ThemeList.asp';"" type=""button"" class=""button"" value=""返回主题管理"" title=""返回主题管理页"" /> <input onclick=""window.scrollTo(0,0);"" type=""button"" class=""button"" value=""TOP"" title=""返回页面顶部"" /></p>"
  235. Response.Write "</div>"
  236. Response.Write "</form>"
  238. Set fso = nothing
  239. Err.Clear
  241. Response.Write "<script language=""JavaScript"" type=""text/javascript"">try{document.getElementById('loading').style.display = 'none';}catch(e){};</script>"
  242. %>
  243. </div>
  244. </div>
  245. </div>
  246. </body>
  247. </html>
  248. <%
  249. Call System_Terminate()
  251. If Err.Number<>0 then
  252. Call ShowError(0)
  253. End If
  254. %>