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

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

中间件编程

开发平台：

HTML/CSS

Xml_Edit.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. BlogTitle = "编辑主题信息"
  33. %>
  34. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  35. <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="<%=ZC_BLOG_LANGUAGE%>" lang="<%=ZC_BLOG_LANGUAGE%>">
  36. <head>
  37. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  38. <meta http-equiv="Content-Language" content="<%=ZC_BLOG_LANGUAGE%>" />
  39. <meta name="robots" content="noindex,nofollow"/>
  40. <link rel="stylesheet" rev="stylesheet" href="../../CSS/admin.css" type="text/css" media="screen" />
  41. <link rel="stylesheet" rev="stylesheet" href="images/style.css" type="text/css" media="screen" />
  43. <script language="JavaScript" src="../../script/common.js" type="text/javascript"></script>
  44. <script language="JavaScript" src="../../script/jquery.tabs.pack.js" type="text/javascript"></script>
  45. <link rel="stylesheet" href="../../CSS/jquery.tabs.css" type="text/css" media="print, projection, screen">
  46. <!--[if lte IE 7]>
  47. <link rel="stylesheet" href="../../CSS/jquery.tabs-ie.css" type="text/css" media="projection, screen">
  48. <![endif]-->
  49. <title><%=BlogTitle%></title>
  50. </head>
  51. <body>
  52. <script language="javascript">
  53. $(document).ready(function(){
  54. $("#divMain2").tabs({ fxFade: true, fxSpeed: 'fast' });
  55. });
  56. </script>
  57. <div id="divMain">
  58. <div class="Header">Theme Sapper - 主题信息编辑 - 编辑主题的 Theme.xml 信息文档. <a href="help.asp#editinfo" title="编辑主题信息页帮助">[页面帮助]</a></div>
  59. <%Call SapperMenu("0")%>
  60. <%
  61. Action=Request.QueryString("act")
  62. SelectedTheme=Request.QueryString("theme")
  64. Response.Write "<div>"
  65. Response.Flush
  67. If Action="" Then
  68. Response.Write "<p id=""loading"">正在载入主题信息, 请稍候...  如果长时间停止响应, 请 <a href=""javascript:window.location.reload();"" title=""点此重试"">[点此重试]</a></p>"
  69. Response.Flush
  71. Call EditXMLPackInfo()
  73. Response.Write "<script language=""JavaScript"" type=""text/javascript"">document.getElementById('loading').style.display = 'none';</script>"
  74. End If
  77. If Action="save" Then
  79. Response.Write "<div id=""divMain2"">"
  81. Response.Write "<p id=""loading2"">正在写入主题信息, 请稍候...  如果长时间停止响应, 请 <a href=""javascript:window.location.reload();"" title=""点此重试"">[点此重试]</a></p>"
  82. Response.Flush
  84. Dim Pack_Error
  85. Pack_Error=0
  87. If SelectedTheme="" Then
  88. Response.Write "<p><font color=""red""> × 主题的名称为空.</font></p>"
  89. Pack_Error=Pack_Error+1
  91. Else
  92. Response.Write "<p class=""status-box""><font color=""Navy"">正在保存XML...</font><p>"
  93. Response.Flush
  95. Dim ZipPathFile
  96. Dim TS_startime,TS_endtime
  98. '打包文件目录与生成文件名
  99. ZipPathFile = BlogPath & "THEMES" & SelectedTheme & "Theme.xml"
  101. '开始打包
  102. CreateXml(ZipPathFile)
  103. End If
  105. If Pack_Error = 0 Then
  106. Call SetBlogHint(True,Empty,Empty)
  107. Response.Write "<p class=""status-box""><font color=""Navy""> √ 主题信息保存完成. 如果您的浏览器没能自动跳转, 请 <a href=""ThemeDetail.asp?theme="& Server.URLEncode(SelectedTheme) &""">[点击这里]</a>.</font></p>"
  108. Response.Write "<script>setTimeout(""self.location.href='ThemeDetail.asp?theme="& Server.URLEncode(SelectedTheme) &"'"",1000);</script>"
  109. Else
  110. Call SetBlogHint(False,Empty,Empty)
  111. Response.Write "<p class=""status-box""><font color=""red""> × 主题信息保存失败. "
  112. Response.Write "<a href=""javascript:history.back(-1)"" title=""返回上一个页面""><span>[返回]</span></a> 或 <a href=""javascript:window.location.reload();"" title=""返回资源列表页""><span>[重试]</span></a></font></p>"
  113. End If
  115. Response.Write "</div>"
  117. Response.Write "<script language=""JavaScript"" type=""text/javascript"">document.getElementById('loading2').style.display = 'none';</script>"
  118. End If
  119. Response.Write "</div>"
  120. %>
  121. </div>
  122. </body>
  123. </html>
  124. <%
  125. '编辑XML安装包内的信息
  126. Sub EditXMLPackInfo()
  127. On Error Resume Next
  128. Dim objXmlFile,strXmlFile
  129. Dim fso
  130. Set fso = CreateObject("Scripting.FileSystemObject")
  132. If fso.FileExists(BlogPath & "/THEMES/" & SelectedTheme & "/" & "theme.xml") Then
  134. strXmlFile =BlogPath & "/THEMES/" & SelectedTheme & "/" & "theme.xml"
  136. Set objXmlFile=Server.CreateObject("Microsoft.XMLDOM")
  137. objXmlFile.async = False
  138. objXmlFile.ValidateOnParse=False
  139. objXmlFile.load(strXmlFile)
  140. If objXmlFile.readyState=4 Then
  141. If objXmlFile.parseError.errorCode <> 0 Then
  142. Else
  144. 'ThemeID=SelectedTheme
  145. ThemeID=objXmlFile.documentElement.selectSingleNode("id").text
  146. ThemeName=objXmlFile.documentElement.selectSingleNode("name").text
  147. ThemeURL=objXmlFile.documentElement.selectSingleNode("url").text
  148. ThemeNote=objXmlFile.documentElement.selectSingleNode("note").text
  150. ThemeAuthor_Name=objXmlFile.documentElement.selectSingleNode("author/name").text
  151. ThemeAuthor_Url=objXmlFile.documentElement.selectSingleNode("author/url").text
  152. ThemeAuthor_Email=objXmlFile.documentElement.selectSingleNode("author/email").text
  154. ThemeSource_Name=objXmlFile.documentElement.selectSingleNode("source/name").text
  155. ThemeSource_Url=objXmlFile.documentElement.selectSingleNode("source/url").text
  156. ThemeSource_Email=objXmlFile.documentElement.selectSingleNode("source/email").text
  158. ThemePlugin_Name=objXmlFile.documentElement.selectSingleNode("plugin/name").text
  159. ThemePlugin_Note=objXmlFile.documentElement.selectSingleNode("plugin/note").text
  160. ThemePlugin_Type=objXmlFile.documentElement.selectSingleNode("plugin/type").text
  161. ThemePlugin_Path=objXmlFile.documentElement.selectSingleNode("plugin/path").text
  162. ThemePlugin_Include=objXmlFile.documentElement.selectSingleNode("plugin/include").text
  163. ThemePlugin_Level=objXmlFile.documentElement.selectSingleNode("plugin/level").text
  165. ThemeAdapted=objXmlFile.documentElement.selectSingleNode("adapted").text
  166. ThemeVersion=objXmlFile.documentElement.selectSingleNode("version").text
  167. ThemePubDate=objXmlFile.documentElement.selectSingleNode("pubdate").text
  168. ThemeModified=objXmlFile.documentElement.selectSingleNode("modified").text
  170. ThemeDescription=objXmlFile.documentElement.selectSingleNode("description").text
  172. ThemeAuthor_Name=TransferHTML(ThemeAuthor_Name,"[html-format]")
  173. ThemeSource_Name=TransferHTML(ThemeSource_Name,"[html-format]")
  174. ThemeName=TransferHTML(ThemeName,"[html-format]")
  175. ThemeNote=TransferHTML(ThemeNote,"[html-format]")
  176. ThemeDescription=TransferHTML(ThemeDescription,"[html-format]")
  178. End If
  179. Set objXmlFile=Nothing
  180. End If
  182. Else
  184. ThemeID=SelectedTheme
  185. ThemeName=SelectedTheme
  186. ThemeURL=Empty
  187. ThemeNote=Empty
  189. ThemeSource_Name=Empty
  190. ThemeSource_Url=Empty
  191. ThemeSource_Email=Empty
  193. ThemeAuthor_Name=Empty
  194. ThemeAuthor_Url=Empty
  195. ThemeAuthor_Email=Empty
  197. ThemePlugin_Name=Empty
  198. ThemePlugin_Note=Empty
  199. ThemePlugin_Type=Empty
  200. ThemePlugin_Path=Empty
  201. ThemePlugin_Include=Empty
  202. ThemePlugin_Level=Empty
  204. ThemeAdapted="Z-Blog 1.8"
  205. ThemeVersion=Empty
  206. ThemePubDate=Date()
  207. ThemeModified=Date()
  209. ThemeDescription=Empty
  211. End If
  212. Set fso = nothing
  213. Err.Clear
  215. Response.Write "<form method=""post"" action=""Xml_Edit.asp?act=save&theme="& SelectedTheme &""">"
  217. Response.Write "<div id=""divMain2"">"
  219. Call GetBlogHint()
  220. %>
  221. <ul>
  222. <li class="tabs-selected"><a href="#fragment-1"><span>主题信息</span></a></li>
  223. <li><a href="#fragment-2"><span>作者信息</span></a></li>
  224. <li><a href="#fragment-3"><span>主题说明</span></a></li>
  225. <li><a href="#fragment-4"><span>主题自带插件(可选)</span></a></li>
  226. </ul>
  227. <%
  228. Response.Write "<div class=""tabs-div"" id=""fragment-1"">"
  230. Response.Write "<p>※主题ID: (主题ID应为主题文件夹名称, 由编辑器自动完成填写, 不可修改.)</p><p><input name=""ThemeID"" style=""width:99%"" type=""text"" value="""&SelectedTheme&""" readonly /></p><p></p>"
  232. Response.Write "<p>※主题名称:</p><p><input name=""ThemeName"" style=""width:99%"" type=""text"" value="""&ThemeName&""" /></p><p></p>"
  234. Response.Write "<p>※主题的发布页面: (带 http:// 等协议名的页面地址, 以方便使用者获取更多的主题信息)</p><p><input name=""ThemeURL"" style=""width:99%"" type=""text"" value="""&ThemeURL&""" /></p><p></p>"
  236. Response.Write "<p>※主题简介 (可以用 &lt;br /&gt; 换行, 可以使用 html 标签):</p><p><textarea name=""ThemeNote"" style=""width:99%"" rows=""5"">"&ThemeNote&"</textarea></p><p></p>"
  238. Response.Write "<p>※适用的 Z-Blog 版本: (要求写法: ""Z-Blog 1.8 Spirit"")</p><p><input name=""ThemeAdapted"" style=""width:99%"" type=""text"" value="""&ThemeAdapted&""" /></p><p></p>"
  240. Response.Write "<p><b>以下信息对查找主题可用更新极为重要, 建议在每次修改主题后更新这些信息!</a></b></p><hr />"
  242. Response.Write "<p>※主题的版本号:</p><p><input name=""ThemeVersion"" style=""width:99%"" type=""text"" value="""&ThemeVersion&""" /></p><p></p>"
  244. Response.Write "<p>※您的主题的发布日期: (日期标准格式:"""&Date()&""")</p><p><input name=""ThemePubDate"" style=""width:99%"" type=""text"" value="""&ThemePubDate&""" /></p><p></p>"
  246. Response.Write "<p>※最后修改日期: (日期标准格式:"""&Date()&""")</p><p><input name=""ThemeModified"" style=""width:99%"" type=""text"" value="""&ThemeModified&""" /></p><p></p>"
  248. Response.Write "</div>"
  249. Response.Write "<div class=""tabs-div"" id=""fragment-2"">"
  251. Response.Write "<p>※作者名称:</p><p><input name=""ThemeAuthor_Name"" style=""width:99%"" type=""text"" value="""&ThemeAuthor_Name&""" /></p><p></p>"
  253. Response.Write "<p>※作者网址:</p><p><input name=""ThemeAuthor_URL"" style=""width:99%"" type=""text"" value="""&ThemeAuthor_Url&""" /></p><p></p>"
  255. Response.Write "<p>※作者 Email:</p><p><input name=""ThemeAuthor_Email"" style=""width:99%"" type=""text"" value="""&ThemeAuthor_Email&""" /></p><p></p>"
  258. Response.Write "<p>※源作者名称:</p><p><input name=""ThemeSource_Name"" style=""width:99%"" type=""text"" value="""&ThemeSource_Name&""" /></p><p></p>"
  260. Response.Write "<p>※源作者网址:</p><p><input name=""ThemeSource_URL"" style=""width:99%"" type=""text"" value="""&ThemeSource_Url&""" /></p><p></p>"
  262. Response.Write "<p>※源作者 Email:</p><p><input name=""ThemeSource_Email"" style=""width:99%"" type=""text"" value="""&ThemeSource_Email&""" /></p><p></p>"
  264. Response.Write "</div>"
  265. Response.Write "<div class=""tabs-div"" id=""fragment-3"">"
  267. Response.Write "<p>※详细说明 (可应用 HTML 代码, 但不必使用换行标签):</p><p><textarea name=""ThemeDescription"" style=""width:99%"" rows=""25"">"&TransferHTML(ThemeDescription,"[textarea]")&"</textarea></p><p></p>"
  269. Response.Write "</div>"
  270. Response.Write "<div class=""tabs-div"" id=""fragment-4"">"
  272. Response.Write "<p>※插件名称:</p><p><input name=""ThemePlugin_Name"" style=""width:99%"" type=""text"" value="""&ThemePlugin_Name&""" /></p><p></p>"
  274. Response.Write "<p>※插件简要说明:</p><p><input name=""ThemePlugin_Note"" style=""width:99%"" type=""text"" value="""&ThemePlugin_Note&""" /></p><p></p>"
  276. Response.Write "<p>※插件类型: (挂上接口为 ""inline"", 挂入接口为 ""outline"".)</p><p><input name=""ThemePlugin_Type"" style=""width:99%"" type=""text"" value="""&ThemePlugin_Type&""" /></p><p></p>"
  278. Response.Write "<p>※插件路径: (插件首页, 如 ""main.asp"".)</p><p><input name=""ThemePlugin_Path"" style=""width:99%"" type=""text"" value="""&ThemePlugin_Path&""" /></p><p></p>"
  280. Response.Write "<p>※插件 Include 文件: 如 (""include.asp"".)</p><p><input name=""ThemePlugin_Include"" style=""width:99%"" type=""text"" value="""&ThemePlugin_Include&""" /></p><p></p>"
  282. Response.Write "<p>※插件权限: ( ""1"" 为管理员, ""2"" 为高级用户. 以此类推...)</p><p><input name=""ThemePlugin_Level"" style=""width:99%"" type=""text"" value="""&ThemePlugin_Level&""" /></p><p></p>"
  284. Response.Write "</div>"
  286. Response.Write "<hr /><p><b>修改 ID 为 "&SelectedTheme&" 的主题的信息文档. <a href=""help.asp#themexml"">[关于主题信息文档 (Theme.xml)]</a></b></p>"
  287. Response.Write "<p><b>这些信息将被 (按主题信息文档规范版本 0.1) 保存为 Theme.xml 文件, 该文件将位于主题目录内. <a href=""help.asp#editinfo"">[如何编辑主题信息]</a></b></p><hr />"
  288. Response.Write "<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>"
  291. Response.Write "</form>"
  292. Response.Write "</div>"
  294. End Sub
  297. '创建一个空的XML文件，为写入文件作准备
  298. Sub CreateXml(FilePath)
  299. On Error Resume Next
  301. '程序开始执行时间
  302. TS_startime=timer()
  303. Dim XmlDoc,Root,xRoot
  304. Set XmlDoc = Server.CreateObject("Microsoft.XMLDOM")
  305. XmlDoc.async = False
  306. XmlDoc.ValidateOnParse=False
  307. Set Root = XmlDoc.createProcessingInstruction("xml","version='1.0' encoding='utf-8' standalone='yes'")
  308. XmlDoc.appendChild(Root)
  309. Set xRoot = XmlDoc.appendChild(XmlDoc.CreateElement("theme"))
  310. xRoot.setAttribute "version",XML_Pack_Ver
  311. Set xRoot = Nothing
  313. '写入文件信息
  315. Dim ThemeAuthor,ThemeSource,ThemePlugin
  316. Dim XMLcdata
  318. Set ThemeID = XmlDoc.SelectSingleNode("//theme").AppendChild(XmlDoc.CreateElement("id"))
  319. ThemeID.Text = SelectedTheme
  320. Set ThemeID=Nothing
  322. Set ThemeName = XmlDoc.SelectSingleNode("//theme").AppendChild(XmlDoc.CreateElement("name"))
  323. ThemeName.Text = Request.Form("ThemeName")
  324. Set ThemeName=Nothing
  326. Set ThemeURL = XmlDoc.SelectSingleNode("//theme").AppendChild(XmlDoc.CreateElement("url"))
  327. ThemeURL.Text = Request.Form("ThemeURL")
  328. Set ThemeURL=Nothing
  330. Set ThemeNote = XmlDoc.SelectSingleNode("//theme").AppendChild(XmlDoc.CreateElement("note"))
  331. ThemeNote.Text = Replace(Replace(Request.Form("ThemeNote"),vbCr,""),vbLf,"")
  332. Set ThemeNote=Nothing
  335. Set ThemeAuthor = XmlDoc.SelectSingleNode("//theme").AppendChild(XmlDoc.CreateElement("author"))
  337. Set ThemeAuthor_Name = ThemeAuthor.AppendChild(XmlDoc.CreateElement("name"))
  338. ThemeAuthor_Name.Text = Request.Form("ThemeAuthor_Name")
  339. Set ThemeAuthor_Name=Nothing
  341. Set ThemeAuthor_URL = ThemeAuthor.AppendChild(XmlDoc.CreateElement("url"))
  342. ThemeAuthor_URL.Text = Request.Form("ThemeAuthor_URL")
  343. Set ThemeAuthor_URL=Nothing
  345. Set ThemeAuthor_Email = ThemeAuthor.AppendChild(XmlDoc.CreateElement("email"))
  346. ThemeAuthor_Email.Text = Request.Form("ThemeAuthor_Email")
  347. Set ThemeAuthor_Email=Nothing
  349. Set ThemeAuthor=Nothing
  352. Set ThemeSource = XmlDoc.SelectSingleNode("//theme").AppendChild(XmlDoc.CreateElement("source"))
  354. Set ThemeSource_Name = ThemeSource.AppendChild(XmlDoc.CreateElement("name"))
  355. ThemeSource_Name.Text = Request.Form("ThemeSource_Name")
  356. Set ThemeSource_Name=Nothing
  358. Set ThemeSource_URL = ThemeSource.AppendChild(XmlDoc.CreateElement("url"))
  359. ThemeSource_URL.Text = Request.Form("ThemeSource_URL")
  360. Set ThemeSource_URL=Nothing
  362. Set ThemeSource_Email = ThemeSource.AppendChild(XmlDoc.CreateElement("email"))
  363. ThemeSource_Email.Text = Request.Form("ThemeSource_Email")
  364. Set ThemeSource_Email=Nothing
  366. Set ThemeSource=Nothing
  368. Set ThemePlugin = XmlDoc.SelectSingleNode("//theme").AppendChild(XmlDoc.CreateElement("plugin"))
  370. Set ThemePlugin_Name = ThemePlugin.AppendChild(XmlDoc.CreateElement("name"))
  371. ThemePlugin_Name.Text = Request.Form("ThemePlugin_Name")
  372. Set ThemePlugin_Name=Nothing
  374. Set ThemePlugin_Note = ThemePlugin.AppendChild(XmlDoc.CreateElement("note"))
  375. ThemePlugin_Note.Text = Request.Form("ThemePlugin_Note")
  376. Set ThemePlugin_Note=Nothing
  378. Set ThemePlugin_Type = ThemePlugin.AppendChild(XmlDoc.CreateElement("type"))
  379. ThemePlugin_Type.Text = Request.Form("ThemePlugin_Type")
  380. Set ThemePlugin_Type=Nothing
  382. Set ThemePlugin_Path = ThemePlugin.AppendChild(XmlDoc.CreateElement("path"))
  383. ThemePlugin_Path.Text = Request.Form("ThemePlugin_Path")
  384. Set ThemePlugin_Path=Nothing
  386. Dim CThemePlugin_Include
  387. Set ThemePlugin_Include = ThemePlugin.AppendChild(XmlDoc.CreateElement("include"))
  388. 'Set XMLcdata = XmlDoc.createNode("cdatasection", "","")
  389. ' XMLcdata.NodeValue = Request.Form("ThemePlugin_Include")
  390. 'Set CThemePlugin_Include = ThemePlugin_Include.AppendChild(XMLcdata)
  391. 'Set CThemePlugin_Include = Nothing
  392. 'Set XMLcdata = Nothing
  393. ThemePlugin_Include.Text = Request.Form("ThemePlugin_Include")
  394. Set ThemePlugin_Include=Nothing
  396. Set ThemePlugin_Level = ThemePlugin.AppendChild(XmlDoc.CreateElement("level"))
  397. ThemePlugin_Level.Text = Request.Form("ThemePlugin_Level")
  398. Set ThemePlugin_Level=Nothing
  400. Set ThemePlugin=Nothing
  403. Set ThemeAdapted = XmlDoc.SelectSingleNode("//theme").AppendChild(XmlDoc.CreateElement("adapted"))
  404. ThemeAdapted.Text = Request.Form("ThemeAdapted")
  405. Set ThemeAdapted=Nothing
  407. Set ThemeVersion = XmlDoc.SelectSingleNode("//theme").AppendChild(XmlDoc.CreateElement("version"))
  408. ThemeVersion.Text = Request.Form("ThemeVersion")
  409. Set ThemeVersion=Nothing
  411. Set ThemePubDate = XmlDoc.SelectSingleNode("//theme").AppendChild(XmlDoc.CreateElement("pubdate"))
  412. ThemePubDate.Text = Request.Form("ThemePubDate")
  413. Set ThemePubDate=Nothing
  415. Set ThemeModified = XmlDoc.SelectSingleNode("//theme").AppendChild(XmlDoc.CreateElement("modified"))
  416. ThemeModified.Text = Request.Form("ThemeModified")
  417. Set ThemeModified=Nothing
  420. Dim CThemeDescription
  421. Set ThemeDescription = XmlDoc.SelectSingleNode("//theme").AppendChild(XmlDoc.CreateElement("description"))
  422. Set XMLcdata = XmlDoc.createNode("cdatasection", "","")
  423. XMLcdata.NodeValue = Request.Form("ThemeDescription")
  424. Set CThemeDescription = ThemeDescription.AppendChild(XMLcdata)
  425. Set CThemeDescription = Nothing
  426. Set XMLcdata = Nothing
  427. Set ThemeDescription=Nothing
  431. XmlDoc.Save(FilePath)
  432. Set Root = Nothing
  433. Set XmlDoc = Nothing
  435. If Err.Number<>0 Then Pack_Error=Pack_Error+1
  436. Err.Clear
  438. '程序结束时间
  439. TS_endtime=timer()
  441. Dim TS_PageTime
  442. TS_PageTime=FormatNumber((TS_endtime-TS_startime),3)
  443. If left(TS_PageTime,1)="." Then TS_PageTime="0" & TS_PageTime
  445. Response.Write("<p>页面执行时间：" & TS_PageTime & "秒</p>")
  446. End Sub
  448. Call System_Terminate()
  450. If Err.Number<>0 Then
  451. Call ShowError(0)
  452. End If
  453. %>