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

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

中间件编程

开发平台：

HTML/CSS

c_system_manage.asp：源码内容
  1. <%
  2. '///////////////////////////////////////////////////////////////////////////////
  3. '//              Z-Blog
  4. '// 作    者:    朱煊(zx.asd)2008-5-30
  5. '// 版权所有:    RainbowSoft Studio
  6. '// 技术支持:    rainbowsoft@163.com
  7. '// 程序名称:    
  8. '// 程序版本:    
  9. '// 单元名称:    c_system_manage.asp
  10. '// 开始时间:    2005.02.11
  11. '// 最后修改:    
  12. '// 备    注:    
  13. '///////////////////////////////////////////////////////////////////////////////
  15. '*********************************************************
  16. ' 目的：    
  17. '*********************************************************
  18. Function ExportPageBar(PageNow,PageAll,PageLength,Url)
  20. If PageAll=0 Then
  21. Exit Function
  22. End if
  24. Dim s
  25. Dim i
  27. 'Dim PageNow
  28. 'Dim PageAll
  29. 'Dim PageLength
  30. Dim PageFrist
  31. Dim PageLast
  32. Dim PagePrevious
  33. Dim PageNext
  34. Dim PageBegin
  35. Dim PageEnd
  37. PageFrist = 1
  38. PageLast = PageAll
  40. PageBegin = PageNow
  41. PageEnd = PageBegin + PageLength - 1
  43. If PageEnd > PageAll Then
  44. PageEnd = PageAll
  45. PageBegin = PageAll - PageLength + 1
  46. If PageBegin < 1 Then
  47. PageBegin = 1
  48. End If
  49. End If
  51. s=s &"<a href='"&Url & PageFrist &"'>["& "&lt;&lt;" &"]</a> "
  53. For i=PageBegin To PageEnd
  54. If i=PageNow Then
  55. s=s &"["& Replace(ZC_MSG036,"%s",i) &"] "
  56. Else
  57. s=s &"<a href='"&Url & i  &"'>["& Replace(ZC_MSG036,"%s",i) &"]</a> "
  58. End If
  59. Next
  61. s=s &"<a href='"&Url & PageLast  &"'>["& "&gt;&gt;" &"]</a> "
  63. ExportPageBar=s
  65. End Function
  69. '*********************************************************
  70. ' 目的：    Manager Articles
  71. '*********************************************************
  72. Function ExportArticleList(intPage,intCate,intLevel,intTitle)
  74. Call Add_Response_Plugin("Response_Plugin_ArticleMng_SubMenu",MakeSubMenu(ZC_MSG168 & "(" & ZC_MSG100 & ")","../cmd.asp?act=ArticleEdt&type=" & ZC_BLOG_WEBEDIT,"m-left",False))
  76. Call Add_Response_Plugin("Response_Plugin_ArticleMng_SubMenu",MakeSubMenu(ZC_MSG168 & "(" & ZC_MSG101 & ")","../cmd.asp?act=ArticleEdt","m-left",False))
  78. Dim i
  79. Dim objRS
  80. Dim strSQL
  81. Dim strPage
  82. Dim intPageAll
  84. Call CheckParameter(intPage,"int",1)
  85. Call CheckParameter(intCate,"int",-1)
  86. Call CheckParameter(intLevel,"int",-1)
  87. Call CheckParameter(intTitle,"sql",-1)
  88. intTitle=vbsunescape(intTitle)
  89. intTitle=FilterSQL(intTitle)
  91. Response.Write "<div class=""Header"">" & ZC_MSG067 & "</div>"
  92. Response.Write "<div class=""SubMenu"">" & Response_Plugin_ArticleMng_SubMenu & "</div>"
  93. Response.Write "<div id=""divMain2"">"
  95. Call GetBlogHint()
  97. Response.Write "<form id=""edit"" method=""post"" enctype=""application/x-www-form-urlencoded"" action=""../admin/admin.asp?act=ArticleMng"">"
  99. Response.Write "<p>"&ZC_MSG158&":</p><p>"
  101. Response.Write ZC_MSG012&" <select class=""edit"" size=""1"" id=""cate"" name=""cate"" style=""width:100px;"" ><option value=""-1"">"&ZC_MSG157&"</option> "
  102. Dim Category
  103. For Each Category in Categorys
  104. If IsObject(Category) Then
  105. Response.Write "<option value="""&Category.ID&""" "
  106. Response.Write ">"&TransferHTML(Category.Name,"[html-format]")&"</option>"
  107. End If
  108. Next
  109. Response.Write "</select> "
  111. Response.Write ZC_MSG061&" <select class=""edit"" size=""1"" id=""level"" name=""level"" style=""width:80px;"" ><option value=""-1"">"&ZC_MSG157&"</option> "
  113. For i=LBound(ZVA_Article_Level_Name)+1 to Ubound(ZVA_Article_Level_Name)
  114. Response.Write "<option value="""&i&""" "
  115. Response.Write ">"&ZVA_Article_Level_Name(i)&"</option>"
  116. Next
  117. Response.Write "</select>"
  119. Response.Write " "&ZC_MSG224&" <input id=""title"" name=""title"" style=""width:150px;"" type=""text"" value="""" /> "
  120. Response.Write "<input type=""submit"" class=""button"" value="""&ZC_MSG087&""">"
  122. Response.Write "</p></form>"
  126. Set objRS=Server.CreateObject("ADODB.Recordset")
  127. objRS.CursorType = adOpenKeyset
  128. objRS.LockType = adLockReadOnly
  129. objRS.ActiveConnection=objConn
  130. objRS.Source=""
  132. strSQL="WHERE ([log_Level]>0) AND (true=true) "
  134. If CheckRights("Root")=False Then strSQL= strSQL & "AND [log_AuthorID] = " & BlogUser.ID
  136. If intCate<>-1 Then
  137. strSQL= strSQL & " AND [log_CateID] = " & intCate
  138. End If
  140. If intLevel<>-1 Then
  141. strSQL= strSQL & " AND [log_Level] = " & intLevel
  142. End If
  144. If intTitle<>"-1" Then
  145. strSQL = strSQL & "AND ( (InStr(1,LCase([log_Title]),LCase('" & intTitle &"'),0)<>0) OR (InStr(1,LCase([log_Intro]),LCase('" & intTitle &"'),0)<>0) OR (InStr(1,LCase([log_Content]),LCase('" & intTitle &"'),0)<>0) )"
  146. End If
  148. Response.Write "<table border=""1"" width=""100%"" cellspacing=""1"" cellpadding=""1"">"
  149. Response.Write "<tr><td>"& ZC_MSG076 &"</td><td>"& ZC_MSG012 &"</td><td>"& ZC_MSG003 &"</td><td>"& ZC_MSG075 &"</td><td>"& ZC_MSG060 &"</td><td></td><td></td><td></td></tr>"
  151. objRS.Open("SELECT * FROM [blog_Article] "& strSQL &" ORDER BY [log_PostTime] DESC")
  152. objRS.PageSize=ZC_MANAGE_COUNT
  153. If objRS.PageCount>0 Then objRS.AbsolutePage = intPage
  154. intPageAll=objRS.PageCount
  156. If (Not objRS.bof) And (Not objRS.eof) Then
  158. For i=1 to objRS.PageSize
  160. Response.Write "<tr>"
  162. Response.Write "<td>" & objRS("log_ID") & "</td>"
  164. Dim Cate
  165. For Each Cate in Categorys
  166. If IsObject(Cate) Then
  167. If Cate.ID=objRS("log_CateID") Then
  168. Response.Write "<td>" & Left(Cate.Name,6) & "</td>"
  169. End If
  170. End If
  171. Next
  173. Dim User
  174. For Each User in Users
  175. If IsObject(User) Then
  176. If User.ID=objRS("log_AuthorID") Then
  177. Response.Write "<td>" & User.Name & "</td>"
  178. End If
  179. End If
  180. Next
  182. 'Response.Write "<td>" & ZVA_Article_Level_Name(objRS("log_Level")) & "</td>"
  183. Response.Write "<td>" & FormatDateTime(objRS("log_PostTime"),vbShortDate) & "</td>"
  184. If Len(objRS("log_Title"))>14 Then
  185. Response.Write "<td><a href=""../view.asp?id=" & objRS("log_ID") & """ title="""& Replace(objRS("log_Title"),"""","") &""" target=""_blank"">" & Left(objRS("log_Title"),14) & "..." & "</a></td>"
  186. Else
  187. Response.Write "<td><a href=""../view.asp?id=" & objRS("log_ID") & """ title="""& Replace(objRS("log_Title"),"""","") &""" target=""_blank"">" & objRS("log_Title") & "</a></td>"
  188. End If
  189. Response.Write "<td align=""center""><a href=""../cmd.asp?act=ArticleEdt&type="& ZC_BLOG_WEBEDIT &"&id=" & objRS("log_ID") & """>[" & ZC_MSG100 & "]</a></td>"
  190. Response.Write "<td align=""center""><a href=""../cmd.asp?act=ArticleEdt&id=" & objRS("log_ID") & """>[" & ZC_MSG101 & "]</a></td>"
  191. Response.Write "<td align=""center""><a onclick='return window.confirm("""& ZC_MSG058 &""");' href=""../cmd.asp?act=ArticleDel&id=" & objRS("log_ID") & """>[" & ZC_MSG063 & "]</a></td>"
  192. Response.Write "</tr>"
  194. objRS.MoveNext
  195. If objRS.eof Then Exit For
  197. Next
  199. End If
  201. Response.Write "</table>"
  203. 'For i=1 to objRS.PageCount
  204. ' strPage=strPage &"<a href='../admin/admin.asp?act=ArticleMng&amp;page="& i &"&cate="&ReQuest("cate")&"&level="&ReQuest("level")&"&title="&Escape(ReQuest("title"))&"'>["& Replace(ZC_MSG036,"%s",i) &"]</a> "
  205. 'Next
  207. strPage=ExportPageBar(intPage,intPageAll,ZC_PAGEBAR_COUNT,"../admin/admin.asp?act=ArticleMng&amp;cate="&ReQuest("cate")&"&amp;level="&ReQuest("level")&"&amp;title="&Escape(ReQuest("title")) & "&amp;page=")
  209. Response.Write "<hr/>" & ZC_MSG042 & ": " & strPage
  210. Response.Write "</div>"
  212. objRS.Close
  213. Set objRS=Nothing
  215. ExportArticleList=True
  217. End Function
  218. '*********************************************************
  223. '*********************************************************
  224. ' 目的：    Manager Categorys
  225. '*********************************************************
  226. Function ExportCategoryList(intPage)
  228. Dim i
  229. Dim objRS
  230. Dim strPage
  231. Dim intPageAll
  233. Response.Write "<div class=""Header"">" & ZC_MSG066 & "</div>"
  234. Response.Write "<div class=""SubMenu"">" & Response_Plugin_CategoryMng_SubMenu & "</div>"
  235. Response.Write "<div id=""divMain2"">"
  237. Call GetBlogHint()
  239. Response.Write "<form id=""edit"" method=""post"" action="""">"
  240. Response.Write "<p>"& ZC_MSG122 &": </p>"
  241. Response.Write "<p><a href=""../cmd.asp?act=CategoryEdt"">["& ZC_MSG077 &"]</a></p>"
  242. Response.Write "</form>"
  244. Call CheckParameter(intPage,"int",1)
  246. Set objRS=Server.CreateObject("ADODB.Recordset")
  247. objRS.CursorType = adOpenKeyset
  248. objRS.LockType = adLockReadOnly
  249. objRS.ActiveConnection=objConn
  250. objRS.Source=""
  252. objRS.Open("SELECT * FROM [blog_Category] ORDER BY [cate_Order] ASC,[cate_ID] ASC")
  254. objRS.PageSize=ZC_MANAGE_COUNT
  255. If objRS.PageCount>0 Then objRS.AbsolutePage = intPage
  256. intPageAll=objRS.PageCount
  258. Response.Write "<table border=""1"" width=""100%"" cellspacing=""1"" cellpadding=""1"">"
  259. Response.Write "<tr><td>"& ZC_MSG076 &"</td><td>"& ZC_MSG079 &"</td><td>"& ZC_MSG001 &"</td><td>"& ZC_MSG147 &"</td><td></td><td></td></tr>"
  261. If (Not objRS.bof) And (Not objRS.eof) Then
  263. For i=1 to objRS.PageSize
  265. Response.Write "<tr>"
  266. Response.Write "<td>" & objRS("cate_ID") & "</td>"
  267. Response.Write "<td>" & objRS("cate_Order") & "</td>"
  268. Response.Write "<td><a href=""../catalog.asp?cate="& objRS("cate_ID") &"""  target=""_blank"">" & objRS("cate_Name") & "</a></td>"
  269. Response.Write "<td>" & objRS("cate_Intro") & "</td>"
  270. Response.Write "<td align=""center""><a href=""../cmd.asp?act=CategoryEdt&id="& objRS("cate_ID") &""">["& ZC_MSG078 &"]</a></td>"
  271. Response.Write "<td align=""center""><a onclick='return window.confirm("""& ZC_MSG058 &""");' href=""../cmd.asp?act=CategoryDel&amp;id="& objRS("cate_ID") &""">["& ZC_MSG063 &"]</a></td>"
  272. Response.Write "</tr>"
  274. objRS.MoveNext
  275. If objRS.eof Then Exit For
  277. Next
  279. End If
  281. Response.Write "</table>"
  283. 'For i=1 to objRS.PageCount
  284. ' strPage=strPage &"<a href='admin.asp?act=CategoryMng&amp;page="& i &"'>["& Replace(ZC_MSG036,"%s",i) &"]</a> "
  285. 'Next
  287. strPage=ExportPageBar(intPage,intPageAll,ZC_PAGEBAR_COUNT,"admin.asp?act=CategoryMng&amp;page=")
  289. Response.Write "<hr/>" & ZC_MSG042 & ": " & strPage
  290. Response.Write "</div>"
  292. objRS.Close
  293. Set objRS=Nothing
  295. ExportCategoryList=True
  297. End Function
  298. '*********************************************************
  303. '*********************************************************
  304. ' 目的：    Manager Comments
  305. '*********************************************************
  306. Function ExportCommentList(intPage,intContent)
  308. Dim i
  309. Dim objRS
  310. Dim strSQL
  311. Dim strPage
  312. Dim intPageAll
  314. Call CheckParameter(intPage,"int",1)
  315. intContent=FilterSQL(intContent)
  317. Set objRS=Server.CreateObject("ADODB.Recordset")
  318. objRS.CursorType = adOpenKeyset
  319. objRS.LockType = adLockReadOnly
  320. objRS.ActiveConnection=objConn
  321. objRS.Source=""
  324. If CheckRights("GuestBookMng")=True Then 
  325. strSQL=strSQL & " WHERE ( ([log_ID]>0) OR ([log_ID] = 0 ) ) "
  326. Else
  327. strSQL=strSQL&" WHERE  ([log_ID]>0) "
  328. End If
  330. If CheckRights("Root")=False Then strSQL=strSQL & "AND( ([comm_AuthorID] = " & BlogUser.ID & " ) OR ((SELECT [log_AuthorID] FROM [blog_Article] WHERE [blog_Article].[log_ID]=[blog_Comment].[log_ID])=" & BlogUser.ID & " )) "
  332. If Trim(intContent)<>"" Then strSQL=strSQL & " AND ( ([comm_Author] LIKE '%" & intContent & "%') OR ([comm_Content] LIKE '%" & intContent & "%') OR ([comm_HomePage] LIKE '%" & intContent & "%') ) "
  334. Response.Write "<div class=""Header"">" & ZC_MSG068 & "</div>"
  335. Response.Write "<div class=""SubMenu"">" & Response_Plugin_CommentMng_SubMenu & "</div>"
  336. Response.Write "<div id=""divMain2"">"
  338. Call GetBlogHint()
  340. Response.Write "<form id=""edit"" method=""post"" enctype=""application/x-www-form-urlencoded"" action=""../admin/admin.asp?act=CommentMng"">"
  341. Response.Write "<p>"&ZC_MSG287&":</p><p>"
  343. Response.Write " "&ZC_MSG224&" <input id=""intContent"" name=""intContent"" style=""width:150px;"" type=""text"" value="""" /> "
  344. Response.Write "<input type=""submit"" class=""button"" value="""&ZC_MSG087&""">"
  346. Response.Write "</p></form>"
  348. Response.Write "<table border=""1"" width=""100%"" cellspacing=""1"" cellpadding=""1"">"
  349. Response.Write "<tr><td width='5%'>"& ZC_MSG076 &"</td><td width='14%'>"& ZC_MSG001 &"</td><td>"& ZC_MSG055 &"</td><td width='12%'>"& ZC_MSG080 &"</td><td width='15%'>"& ZC_MSG075 &"</td><td width='6%'></td><td width='6%'></td><td width='5%'  align='center'><a href='' onclick='BatchSelectAll();return false'>"& ZC_MSG229 &"</a></td></tr>"'
  351. objRS.Open("SELECT * FROM [blog_Comment] "& strSQL &" ORDER BY [comm_ID] DESC")
  354. objRS.PageSize=ZC_MANAGE_COUNT
  355. If objRS.PageCount>0 Then objRS.AbsolutePage = intPage
  356. intPageAll=objRS.PageCount
  358. If (Not objRS.bof) And (Not objRS.eof) Then
  360. For i=1 to objRS.PageSize
  362. Response.Write "<tr>"
  363. Response.Write "<td>" & objRS("comm_ID") & "</td>"
  364. If Trim(objRS("comm_Email"))="" Then
  365. Response.Write "<td>"& objRS("comm_Author") & "</td>"
  366. Else
  367. Response.Write "<td><a href=""mailto:"& objRS("comm_Email") &""">" & objRS("comm_Author") & "</a></td>"
  368. End If
  370. 'If objRS("log_ID")=0 Then
  371. ' Response.Write "<td><a href=""../guestbook.asp#cmt" & objRS("comm_ID") & """ target=""_blank"">" & Left(objRS("comm_Content"),20) & "...</a></td>"
  372. 'Else
  373. ' Response.Write "<td><a href=""../view.asp?id=" & objRS("log_ID") & "#cmt" & objRS("comm_ID") & """ target=""_blank"" title="""&TransferHTML(TransferHTML(UBBCode(objRS("comm_Content"),"[face][link][autolink][font][code][image][typeset][media][flash][key][upload]"),"[html-japan][upload]"),"[nohtml]")&""">" & Left(objRS("comm_Content"),20) & "...</a></td>"
  374. 'End If
  376. Response.Write "<td><a id=""mylink"&objRS("comm_ID")&""" href=""$div"&objRS("comm_ID")&"tip?width=320"" class=""betterTip"" title=""正文"">" & Left(objRS("comm_Content"),20) & "...</a><div id=""div"&objRS("comm_ID")&"tip"" style=""display:none;"">"& objRS("comm_Content") &"</div></td>"
  378. Response.Write "<td>" & objRS("comm_IP") & "</td>"
  379. Response.Write "<td>" & objRS("comm_PostTime") & "</td>"
  380. Response.Write "<td align=""center""><a href=""../cmd.asp?act=CommentEdt&id=" & objRS("comm_ID") & "&log_id="& objRS("log_ID") &""">["& ZC_MSG078 &"]</a></td>"
  381. Response.Write "<td align=""center""><a href=""../cmd.asp?act=CommentDel&id=" & objRS("comm_ID") & "&log_id="& objRS("log_ID") &""" onclick='return window.confirm("""& ZC_MSG058 &""");'>["& ZC_MSG063 &"]</a></td>"
  382. Response.Write "<td align=""center"" ><input type=""checkbox"" name=""edtDel"" id=""edtDel"" value="""&objRS("comm_ID")&"""/></td>"
  383. Response.Write "</tr>"
  385. objRS.MoveNext
  386. If objRS.eof Then Exit For
  388. Next
  390. End If
  392. Response.Write "</table>"
  394. 'For i=1 to objRS.PageCount
  395. ' strPage=strPage &"<a href='admin.asp?act=CommentMng&amp;page="& i &"'>["& Replace(ZC_MSG036,"%s",i) &"]</a> "
  396. 'Next
  397. strPage=ExportPageBar(intPage,intPageAll,ZC_PAGEBAR_COUNT,"admin.asp?act=CommentMng&amp;page=")
  399. Response.Write "<br/><form id=""frmBatch"" method=""post"" action=""../cmd.asp?act=CommentDelBatch""><input type=""hidden"" id=""edtBatch"" name=""edtBatch"" value=""""/><input class=""button"" type=""submit"" onclick='BatchDeleteAll(""edtBatch"");if(document.getElementById(""edtBatch"").value){return window.confirm("""& ZC_MSG058 &""");}else{return false}' value="""&ZC_MSG228&""" id=""btnPost""/><form>" & vbCrlf
  401. Response.Write "<hr/>" & ZC_MSG042 & ": " & strPage
  402. Response.Write "</div>"
  404. objRS.Close
  405. Set objRS=Nothing
  407. ExportCommentList=True
  409. End Function
  410. '*********************************************************
  415. '*********************************************************
  416. ' 目的：    Manager TrackBacks
  417. '*********************************************************
  418. Function ExportTrackBackList(intPage)
  420. Dim i
  421. Dim objRS
  422. Dim strSQL
  423. Dim strPage
  424. Dim intPageAll
  426. Call CheckParameter(intPage,"int",1)
  428. Set objRS=Server.CreateObject("ADODB.Recordset")
  429. objRS.CursorType = adOpenKeyset
  430. objRS.LockType = adLockReadOnly
  431. objRS.ActiveConnection=objConn
  432. objRS.Source=""
  434. strSQL="WHERE ([log_ID]>0) "
  435. If CheckRights("Root")=False Then strSQL=strSQL & "AND( (SELECT [log_AuthorID] FROM [blog_Article] WHERE [blog_Article].[log_ID] =[blog_TrackBack].[log_ID] ) =" & BlogUser.ID & ")"
  437. Response.Write "<div class=""Header"">" & ZC_MSG069 & "</div>"
  438. Response.Write "<div class=""SubMenu"">" & Response_Plugin_TrackBackMng_SubMenu & "</div>"
  439. Response.Write "<div id=""divMain2"">"
  441. Call GetBlogHint()
  443. Response.Write "<table border=""1"" width=""100%"" cellspacing=""1"" cellpadding=""1"">"
  444. Response.Write "<tr><td>"& ZC_MSG048 & ZC_MSG076 &"</td><td>"& ZC_MSG014 &"</td><td>"& ZC_MSG060 &"</td><td>"& ZC_MSG055 &"</td><td></td><td width='5%'  align='center'><a href='' onclick='BatchSelectAll();return false'>"& ZC_MSG229 &"</a></td></tr>"
  447. objRS.Open("SELECT * FROM [blog_TrackBack] "& strSQL &" ORDER BY [tb_ID] DESC")
  448. objRS.PageSize=ZC_MANAGE_COUNT
  449. If objRS.PageCount>0 Then objRS.AbsolutePage = intPage
  450. intPageAll=objRS.PageCount
  452. If (Not objRS.bof) And (Not objRS.eof) Then
  454. For i=1 to objRS.PageSize
  456. Response.Write "<tr>"
  457. Response.Write "<td>" & objRS("log_ID") & "</td>"
  458. Response.Write "<td><a target=""_blank"" href="""&objRS("tb_Url")&""">" & Left(objRS("tb_Blog"),14) & "</a></td>"
  459. Response.Write "<td><a href=""../view.asp?id=" & objRS("log_ID") & "#tb" & objRS("tb_ID") & """ target=""_blank"">" & Left(objRS("tb_Title"),12) & "</a></td>"
  461. Response.Write "<td><a id=""mylink"&objRS("tb_ID")&""" href=""$div"&objRS("tb_ID")&"tip?width=320"" class=""betterTip"" title=""正文"">" & Left(objRS("tb_Excerpt"),18) & "...</a><div id=""div"&objRS("tb_ID")&"tip"" style=""display:none;"">"& objRS("tb_Excerpt") &"</div></td>"
  463. Response.Write "<td align=""center""><a href=""../cmd.asp?act=TrackBackDel&id=" & objRS("tb_ID") & "&log_id="& objRS("log_ID") &""" onclick='return window.confirm(""" & ZC_MSG058 & """);'>["& ZC_MSG063 &"]</a></td>"
  464. Response.Write "<td align=""center"" ><input type=""checkbox"" name=""edtDel"" id=""edtDel"" value="""&objRS("tb_ID")&"""/></td>"
  465. Response.Write "</tr>"
  467. objRS.MoveNext
  468. If objRS.eof Then Exit For
  470. Next
  472. End If
  474. Response.Write "</table>"
  476. 'For i=1 to objRS.PageCount
  477. ' strPage=strPage &"<a href='admin.asp?act=TrackBackMng&amp;page="& i &"'>["& Replace(ZC_MSG036,"%s",i) &"]</a> "
  478. 'Next
  479. strPage=ExportPageBar(intPage,intPageAll,ZC_PAGEBAR_COUNT,"admin.asp?act=TrackBackMng&amp;page=")
  481. Response.Write "<br/><form id=""frmBatch"" method=""post"" action=""../cmd.asp?act=TrackBackDelBatch""><input type=""hidden"" id=""edtBatch"" name=""edtBatch"" value=""""/><input class=""button"" type=""submit"" onclick='BatchDeleteAll(""edtBatch"");if(document.getElementById(""edtBatch"").value){return window.confirm("""& ZC_MSG058 &""");}else{return false}' value="""&ZC_MSG228&""" id=""btnPost""/><form>" & vbCrlf
  484. Response.Write "<hr/>" & ZC_MSG042 & ": " & strPage
  485. Response.Write "</div>"
  487. objRS.Close
  488. Set objRS=Nothing
  490. ExportTrackBackList=True
  492. End Function
  493. '*********************************************************
  498. '*********************************************************
  499. ' 目的：    Manager Users
  500. '*********************************************************
  501. Function ExportUserList(intPage)
  503. Dim i
  504. Dim objRS
  505. Dim strSQL
  506. Dim strPage
  507. Dim intPageAll
  509. Call CheckParameter(intPage,"int",1)
  511. Response.Write "<div class=""Header"">" & ZC_MSG070 & "</div>"
  512. Response.Write "<div class=""SubMenu"">" & Response_Plugin_UserMng_SubMenu & "</div>"
  513. Response.Write "<div id=""divMain2"">"
  515. Call GetBlogHint()
  517. If CheckRights("UserCrt")=True Then
  518. Response.Write "<form id=""edit"" method=""post"" action="""">"
  519. Response.Write "<p>"& ZC_MSG123 &": </p>"
  520. Response.Write "<p><a href=""edit_user.asp"">["& ZC_MSG127 &"]</a></p>"
  521. Response.Write "</form>"
  522. End If
  524. Set objRS=Server.CreateObject("ADODB.Recordset")
  525. objRS.CursorType = adOpenKeyset
  526. objRS.LockType = adLockReadOnly
  527. objRS.ActiveConnection=objConn
  528. objRS.Source=""
  530. If CheckRights("Root")=False Then strSQL="WHERE [mem_ID] = " & BlogUser.ID
  532. objRS.Open("SELECT * FROM [blog_Member] " & strSQL & " ORDER BY [mem_ID] ASC")
  534. objRS.PageSize=ZC_MANAGE_COUNT
  535. If objRS.PageCount>0 Then objRS.AbsolutePage = intPage
  536. intPageAll=objRS.PageCount
  538. If (Not objRS.bof) And (Not objRS.eof) Then
  540. Response.Write "<table border=""1"" width=""100%"" cellspacing=""1"" cellpadding=""1"">"
  541. Response.Write "<tr><td>"& ZC_MSG076 &"</td><td>"&"</td><td>"& ZC_MSG001 &"</td><td>"& ZC_MSG082 &"</td><td>"& ZC_MSG124 &"</td><td></td><td></td></tr>"
  543. For i=1 to objRS.PageSize
  545. Response.Write "<tr>"
  546. Response.Write "<td>" & objRS("mem_ID") & "</td>"
  547. Response.Write "<td>" & ZVA_User_Level_Name(objRS("mem_Level")) & "</td>"
  548. Response.Write "<td><a href=""../catalog.asp?auth="& objRS("mem_ID") &"""  target=""_blank"">" & objRS("mem_Name") & "</a></td>"
  550. Response.Write "<td>" & objRS("mem_PostLogs") & "</td>"
  551. Response.Write "<td>" & objRS("mem_PostComms") & "</td>"
  553. Response.Write "<td align=""center""><a href=""edit_user.asp?id="& objRS("mem_ID") &""">["& ZC_MSG078 &"]</a></td>"
  554. Response.Write "<td align=""center""><a onclick='return window.confirm("""& ZC_MSG058 &""");' href=""../cmd.asp?act=UserDel&amp;id="& objRS("mem_ID") &""">["& ZC_MSG063 &"]</a></td>"
  556. Response.Write "</tr>"
  558. objRS.MoveNext
  559. If objRS.eof Then Exit For
  561. Next
  563. Response.Write "</table>"
  565. End If
  567. 'For i=1 to objRS.PageCount
  568. ' strPage=strPage &"<a href='admin.asp?act=UserMng&amp;page="& i &"'>["& Replace(ZC_MSG036,"%s",i) &"]</a> "
  569. 'Next
  570. strPage=ExportPageBar(intPage,intPageAll,ZC_PAGEBAR_COUNT,"admin.asp?act=UserMng&amp;page=")
  572. Response.Write "<hr/>" & ZC_MSG042 & ": " & strPage
  573. Response.Write "</div>"
  575. objRS.Close
  576. Set objRS=Nothing
  578. ExportUserList=True
  580. End Function
  581. '*********************************************************
  586. '*********************************************************
  587. ' 目的：    Manager Files
  588. '*********************************************************
  589. Function ExportFileList(intPage)
  591. Dim i
  592. Dim objRS
  593. Dim strSQL
  594. Dim strPage
  595. Dim intPageAll
  597. Call CheckParameter(intPage,"int",1)
  599. Response.Write "<div class=""Header"">" & ZC_MSG071 & "</div>"
  600. Response.Write "<div class=""SubMenu"">" & Response_Plugin_FileMng_SubMenu & "</div>"
  601. Response.Write "<div id=""divMain2"">"
  603. Call GetBlogHint()
  605. Response.Write "<form border=""1"" name=""edit"" id=""edit"" method=""post"" enctype=""multipart/form-data"" action=""../cmd.asp?act=FileUpload"">"
  606. Response.Write "<p>"& ZC_MSG108 &": </p>"
  607. Response.Write "<p><input type=""file"" id=""edtFileLoad"" name=""edtFileLoad"" size=""20"">  <input type=""submit"" class=""button"" value="""& ZC_MSG087 &""" name=""B1"" onclick='document.getElementById(""edit"").action=document.getElementById(""edit"").action+""&filename=""+escape(edtFileLoad.value)' /> <input class=""button"" type=""reset"" value="""& ZC_MSG088 &""" name=""B2"" />"
  608. Response.Write "&nbsp;<input type=""checkbox"" onclick='if(this.checked==true){document.getElementById(""edit"").action=document.getElementById(""edit"").action+""&autoname=1"";}else{document.getElementById(""edit"").action=""../cmd.asp?act=FileUpload"";};SetCookie(""chkAutoFileName"",this.checked,365);' id=""chkAutoName"" id=""chkAutoName""/><label for=""chkAutoName"">"& ZC_MSG131 &"</label></p></form>"
  610. Set objRS=Server.CreateObject("ADODB.Recordset")
  611. objRS.CursorType = adOpenKeyset
  612. objRS.LockType = adLockReadOnly
  613. objRS.ActiveConnection=objConn
  614. objRS.Source=""
  616. If CheckRights("Root")=False Then strSQL="WHERE [ul_AuthorID] = " & BlogUser.ID
  618. Response.Write "<table border='1' width='100%' cellspacing=""1"" cellpadding=""1"">"
  619. Response.Write "<tr><td width='10%'>"& ZC_MSG076 &"</td><td width='10%'>"& ZC_MSG003 &"</td><td width='30%'>"& ZC_MSG001 &"</td><td width='15%'>"& ZC_MSG041 &"</td><td width='15%'>"& ZC_MSG075 &"</td><td width='7%'></td><td width='5%'  align='center'><a href='' onclick='BatchSelectAll();return false'>"& ZC_MSG229 &"</a></td></tr>"
  621. objRS.Open("SELECT * FROM [blog_UpLoad] " & strSQL & " ORDER BY [ul_PostTime] DESC")
  622. objRS.PageSize=ZC_MANAGE_COUNT
  623. If objRS.PageCount>0 Then objRS.AbsolutePage = intPage
  624. intPageAll=objRS.PageCount
  626. If (Not objRS.bof) And (Not objRS.eof) Then
  628. For i=1 to objRS.PageSize
  630. Response.Write "<tr><td>"&objRS("ul_ID")&"</td>"
  632. Dim User:For Each User in Users:If IsObject(User) Then:If User.ID=objRS("ul_AuthorID") Then:Response.Write "<td>" & User.Name & "</td>":End If:End If:Next
  633. If IsNull(objRS("ul_Quote"))=False And objRS("ul_Quote")<>"" Then
  634. If CBool(objRS("ul_Quote"))=True Then
  635. Response.Write "<td><a href='../"& ZC_UPLOAD_DIRECTORY &"/"&Year(objRS("ul_PostTime")) & "/" & Month(objRS("ul_PostTime")) & "/"&objRS("ul_FileName")&"' target='_blank'>"&Year(objRS("ul_PostTime")) & "/" & Month(objRS("ul_PostTime")) & "/" &objRS("ul_FileName")&"</a></td>"
  636. Else
  637. Response.Write "<td><a href='../"& ZC_UPLOAD_DIRECTORY &"/"&objRS("ul_FileName")&"' target='_blank'>"&objRS("ul_FileName")&"</a></td>"
  638. End If
  639. Else
  640. Response.Write "<td><a href='../"& ZC_UPLOAD_DIRECTORY &"/"&objRS("ul_FileName")&"' target='_blank'>"&objRS("ul_FileName")&"</a></td>"
  641. End If
  643. Response.Write "<td>"&objRS("ul_FileSize")&"</td><td>"&objRS("ul_PostTime")&"</td>"
  644. Response.Write "<td align=""center""><a href='../cmd.asp?act=FileDel&amp;id="&Server.URLEncode(objRS("ul_ID"))&"' onclick='return window.confirm("""& ZC_MSG058 &""");'>["& ZC_MSG063 &"]</a></td>"
  645. Response.Write "<td align=""center"" ><input type=""checkbox"" name=""edtDel"" id=""edtDel"" value="""&objRS("ul_ID")&"""/></td>"
  646. Response.Write "</tr>"
  648. objRS.MoveNext
  649. If objRS.eof Then Exit For
  651. Next
  653. End If
  655. Response.Write "</table>"
  657. Response.Write "<br/><form id=""frmBatch"" method=""post"" action=""../cmd.asp?act=FileDelBatch""><input type=""hidden"" id=""edtBatch"" name=""edtBatch"" value=""""/><input class=""button"" type=""submit"" onclick='BatchDeleteAll(""edtBatch"");if(document.getElementById(""edtBatch"").value){return window.confirm("""& ZC_MSG058 &""");}else{return false}' value="""&ZC_MSG228&""" id=""btnPost""/><form>" & vbCrlf
  659. 'For i=1 to objRS.PageCount
  660. ' strPage=strPage &"<a href='admin.asp?act=FileMng&amp;page="& i &"'>["& Replace(ZC_MSG036,"%s",i) &"]</a> "
  661. 'Next
  662. strPage=ExportPageBar(intPage,intPageAll,ZC_PAGEBAR_COUNT,"admin.asp?act=FileMng&amp;page=")
  664. Response.Write "<hr/>" & ZC_MSG042 & ": " & strPage
  665. Response.Write "</div><script type=""text/javascript"">if(GetCookie(""chkAutoFileName"")==""true""){document.getElementById(""chkAutoName"").checked=true};</script>"
  667. objRS.Close
  668. Set objRS=Nothing
  670. ExportFileList=True
  672. End Function
  673. '*********************************************************
  678. '*********************************************************
  679. ' 目的：    Manage Setting
  680. '*********************************************************
  681. Function ExportManageList()
  683. ExportManageList=True
  685. End Function
  686. '*********************************************************
  691. '*********************************************************
  692. ' 目的：    Manager KeyWord
  693. '*********************************************************
  694. Function ExportKeyWordList(intPage)
  696. ExportKeyWordList=True
  698. End Function
  699. '*********************************************************
  704. '*********************************************************
  705. ' 目的：    Manager Tag
  706. '*********************************************************
  707. Function ExportTagList(intPage)
  709. Dim i
  710. Dim objRS
  711. Dim strPage
  712. Dim intPageAll
  714. Response.Write "<div class=""Header"">" & ZC_MSG141 & "</div>"
  715. Response.Write "<div class=""SubMenu"">" & Response_Plugin_TagMng_SubMenu & "</div>"
  716. Response.Write "<div id=""divMain2"">"
  718. Call GetBlogHint()
  720. Response.Write "<form id=""edit"" method=""post"" action="""">"
  721. Response.Write "<p>"& ZC_MSG134 &": </p>"
  722. Response.Write "<p><a href=""../cmd.asp?act=TagEdt"">["& ZC_MSG136 &"]</a></p>"
  723. Response.Write "</form>"
  725. Call CheckParameter(intPage,"int",1)
  727. Set objRS=Server.CreateObject("ADODB.Recordset")
  728. objRS.CursorType = adOpenKeyset
  729. objRS.LockType = adLockReadOnly
  730. objRS.ActiveConnection=objConn
  731. objRS.Source=""
  733. objRS.Open("SELECT * FROM [blog_Tag] ORDER BY [tag_Name] ASC")
  735. objRS.PageSize=ZC_MANAGE_COUNT
  736. If objRS.PageCount>0 Then objRS.AbsolutePage = intPage
  737. intPageAll=objRS.PageCount
  739. Response.Write "<table border=""1"" width=""100%"" cellspacing=""1"" cellpadding=""1"">"
  740. Response.Write "<tr><td width=""5%"">"& ZC_MSG076 &"</td><td width=""25%"">"& ZC_MSG001 &"</td><td width=""40%"">"& ZC_MSG016 &"</td><td width=""15%""></td><td width=""15%""></td></tr>"
  742. If (Not objRS.bof) And (Not objRS.eof) Then
  744. For i=1 to objRS.PageSize
  746. Response.Write "<tr>"
  747. Response.Write "<td>" & objRS("tag_ID") & "</td>"
  748. Response.Write "<td>" & objRS("tag_Name") & "</td>"
  749. If IsNull(objRS("tag_Intro"))=True Then
  750. Response.Write "<td></td>"
  751. Else
  752. Response.Write "<td>" & TransferHTML(objRS("tag_Intro"),"[html-format]") & "</td>"
  753. End If
  754. Response.Write "<td align=""center""><a href=""../cmd.asp?act=TagEdt&id="& objRS("tag_ID") &""">["& ZC_MSG078 &"]</a></td>"
  755. Response.Write "<td align=""center""><a onclick='return window.confirm("""& ZC_MSG058 &""");' href=""../cmd.asp?act=TagDel&amp;id="& objRS("tag_ID") &""">["& ZC_MSG063 &"]</a></td>"
  756. Response.Write "</tr>"
  758. objRS.MoveNext
  759. If objRS.eof Then Exit For
  761. Next
  763. End If
  765. Response.Write "</table>"
  767. 'For i=1 to objRS.PageCount
  768. ' strPage=strPage &"<a href='admin.asp?act=TagMng&amp;page="& i &"'>["& Replace(ZC_MSG036,"%s",i) &"]</a> "
  769. 'Next
  770. strPage=ExportPageBar(intPage,intPageAll,ZC_PAGEBAR_COUNT,"admin.asp?act=TagMng&amp;page=")
  772. Response.Write "<hr/>" & ZC_MSG042 & ": " & strPage
  773. Response.Write "</div>"
  775. objRS.Close
  776. Set objRS=Nothing
  778. ExportTagList=True
  780. End Function
  781. '*********************************************************
  786. '*********************************************************
  787. ' 目的：    Manager Plugin
  788. '*********************************************************
  789. Function ExportPluginList()
  791. On Error Resume Next
  793. Dim aryPL_Enable()
  794. Dim aryPL_Disable()
  796. ReDim aryPL_Enable(0)
  797. ReDim aryPL_Disable(0)
  799. Dim aryPL
  800. aryPL=Split(ZC_USING_PLUGIN_LIST,"|")
  802. Dim i,j,s,t,m,n
  804. If ZC_USING_PLUGIN_LIST<>"" Then
  805. i=UBound(aryPL)
  806. Else
  807. i=0
  808. End If
  810. ReDim aryPL_Enable(i)
  813. If Request.QueryString("installed")<>"" Then
  815. Call InstallPlugin(Request.QueryString("installed"))
  817. End If
  819. Dim fso, f, f1, fc
  820. Set fso = CreateObject("Scripting.FileSystemObject")
  822. Response.Write "<div class=""Header"">" & ZC_MSG107 & "</div>"
  823. Response.Write "<div class=""SubMenu"">" & Response_Plugin_PlugInMng_SubMenu & "</div>"
  824. Response.Write "<div id=""divMain2"">"
  826. Call GetBlogHint()
  829. Response.Write "<table border=""1"" width=""100%"" cellspacing=""1"" cellpadding=""1"">"
  830. Response.Write "<tr><td width=""5%"">"& ZC_MSG079 &"</td><td width=""20%"">"& ZC_MSG001 &"</td><td width=""15%"">"& ZC_MSG128 &"</td><td width=""15%"">"& ZC_MSG150 &"</td><td width=""15%"">"& ZC_MSG151 &"</td><td width=""10%"">"& ZC_MSG309 &"</td><td width=""10%""></td><td width=""10%""></td></tr>"
  832. Dim objXmlFile,strXmlFile
  836. strXmlFile =BlogPath & "/themes/" & ZC_BLOG_THEME & "/" & "theme.xml"
  838. Set objXmlFile=Server.CreateObject("Microsoft.XMLDOM")
  839. objXmlFile.async = False
  840. objXmlFile.ValidateOnParse=False
  841. objXmlFile.load(strXmlFile)
  842. If objXmlFile.readyState=4 Then
  843. If objXmlFile.parseError.errorCode <> 0 Then
  844. Else
  846. If CInt(objXmlFile.documentElement.selectSingleNode("plugin/level").text)>0 Then
  848. If Err.Number=0 Then
  850. Response.Write "<tr>"
  851. Response.Write "<td>"& "0" &"</td>"
  852. Response.Write "<td><a id=""mylink"&Left(md5(objXmlFile.documentElement.selectSingleNode("id").text),6)&""" href=""$div"&Left(md5(objXmlFile.documentElement.selectSingleNode("id").text),6)&"tip?width=300"" class=""betterTip"" title=""$content"">" & "" & objXmlFile.documentElement.selectSingleNode("plugin/name").text & "" & "</a><div id=""div"&Left(md5(objXmlFile.documentElement.selectSingleNode("id").text),6)&"tip"" style=""display:none;"">"&objXmlFile.documentElement.selectSingleNode("plugin/note").text&"</div></td>"
  853. Response.Write "<td>" & "<a target=""_blank"" href=""" & objXmlFile.documentElement.selectSingleNode("author/url").text & """>"& objXmlFile.documentElement.selectSingleNode("author/name").text & "</td>"
  854. Response.Write "<td>" & objXmlFile.documentElement.selectSingleNode("version").text & "</td>"
  855. Response.Write "<td>"& objXmlFile.documentElement.selectSingleNode("modified").text &"</td>"
  856. Response.Write "<td align=center><img title='"&ZC_MSG308&"' alt='"&ZC_MSG308&"' src='../IMAGE/EDIT/0101.gif'/></td>"
  857. Response.Write "<td align=center>"& ZC_MSG311 &"</td>"
  858. Response.Write "<td align=center>"
  859. If BlogUser.Level<=CInt(objXmlFile.documentElement.selectSingleNode("plugin/level").text) Then
  860. If fso.FileExists(BlogPath & "/themes/" & ZC_BLOG_THEME & "/plugin/" & objXmlFile.documentElement.selectSingleNode("plugin/path").text) Then
  861. Response.Write "<a href=""../themes/" & ZC_BLOG_THEME & "/plugin/" & objXmlFile.documentElement.selectSingleNode("plugin/path").text &""">[" & ZC_MSG022 & "]</a>"
  862. End If
  863. End If
  864. Response.Write "</td>"
  865. Response.Write "</tr>"
  867. End If
  869. End If
  871. End If
  872. End If
  873. Set objXmlFile=Nothing
  875. Set f = fso.GetFolder(BlogPath & "/plugin/")
  876. Set fc = f.SubFolders
  877. For Each f1 in fc
  879. s=""
  881. If fso.FileExists(BlogPath & "/plugin/" & f1.name & "/" & "plugin.xml") Then
  883. strXmlFile =BlogPath & "/plugin/" & f1.name & "/" & "plugin.xml"
  885. Set objXmlFile=Server.CreateObject("Microsoft.XMLDOM")
  886. objXmlFile.async = False
  887. objXmlFile.ValidateOnParse=False
  888. objXmlFile.load(strXmlFile)
  889. If objXmlFile.readyState=4 Then
  890. If objXmlFile.parseError.errorCode <> 0 Then
  891. Else
  892. 'If BlogUser.Level<=CInt(objXmlFile.documentElement.selectSingleNode("level").text) Then
  894. If CheckPluginState(objXmlFile.documentElement.selectSingleNode("id").text) Then 
  895. For j=0 To UBound(aryPL)
  896. If UCase(aryPL(j))=UCase(objXmlFile.documentElement.selectSingleNode("id").text) Then
  897. n=j
  898. Exit For
  899. End If
  900. Next
  901. m=n+1
  902. Else
  903. m=""
  904. End If
  907. s=s & "<tr>"
  908. s=s & "<td>"& m &"</td>"
  909. s=s & "<td><a id=""mylink"&Left(md5(objXmlFile.documentElement.selectSingleNode("id").text),6)&""" href=""$div"&objXmlFile.documentElement.selectSingleNode("id").text&"tip?width=300"" class=""betterTip"" title=""$content"">" & "" & objXmlFile.documentElement.selectSingleNode("name").text & "" & "</a><div id=""div"&objXmlFile.documentElement.selectSingleNode("id").text&"tip"" style=""display:none;"">"&objXmlFile.documentElement.selectSingleNode("note").text&"</div></td>"
  910. s=s & "<td>" & "<a target=""_blank"" href=""" & objXmlFile.documentElement.selectSingleNode("author/url").text & """>"& objXmlFile.documentElement.selectSingleNode("author/name").text & "</td>"
  911. s=s & "<td>" & objXmlFile.documentElement.selectSingleNode("version").text & "</td>"
  912. s=s & "<td>"& objXmlFile.documentElement.selectSingleNode("modified").text &"</td>"
  914. If CheckPluginState(objXmlFile.documentElement.selectSingleNode("id").text) Then 
  915. s=s & "<td align=center><img title='"&ZC_MSG308&"' alt='"&ZC_MSG308&"' src='../IMAGE/EDIT/0101.gif'/></td>"
  916. Else
  917. s=s & "<td align=center><img title='"&ZC_MSG307&"' alt='"&ZC_MSG307&"' src='../IMAGE/EDIT/0020.gif'/></td>"
  918. End If
  920. s=s & "<td align=center>"
  921. If CheckPluginState(objXmlFile.documentElement.selectSingleNode("id").text) Then
  922. If CheckRights("PlugInDisable")=True Then
  923. s=s & "<a href=""../cmd.asp?act=PlugInDisable&name="& Server.URLEncode(objXmlFile.documentElement.selectSingleNode("id").text) &""">[" & ZC_MSG307 & "]</a>"
  924. Else
  926. End If
  927. Else
  928. If CheckRights("PlugInActive")=True Then
  929. s=s & "<a href=""../cmd.asp?act=PlugInActive&name="& Server.URLEncode(objXmlFile.documentElement.selectSingleNode("id").text) &""">[" & ZC_MSG308 & "]</a>"
  930. Else
  931. End If
  932. End If
  933. s=s & "</td>"
  936. s=s & "<td align=center>"
  937. If CheckPluginState(objXmlFile.documentElement.selectSingleNode("id").text) Then
  938. If BlogUser.Level<=CInt(objXmlFile.documentElement.selectSingleNode("level").text) Then
  939. If fso.FileExists(BlogPath & "/plugin/" & f1.name & "/" & objXmlFile.documentElement.selectSingleNode("path").text) Then
  940. s=s & "<a href=""../plugin/" & f1.name & "/" & objXmlFile.documentElement.selectSingleNode("path").text &""">[" & ZC_MSG022 & "]</a>"
  941. End If
  942. End If
  943. Else
  944. End If
  945. s=s & "</td>"
  947. s=s & "</tr>"
  950. If CheckPluginState(objXmlFile.documentElement.selectSingleNode("id").text) Then 
  952. 'j=UBound(aryPL_Enable)
  953. 'ReDim Preserve aryPL_Enable(j+1)
  954. aryPL_Enable(n)=s
  955. Else
  956. j=UBound(aryPL_Disable)
  957. ReDim Preserve aryPL_Disable(j+1)
  958. aryPL_Disable(j)=s
  959. End If
  961. End If
  962. End If
  963. Set objXmlFile=Nothing
  964. End If
  965. Next
  967. Response.Write Join(aryPL_Enable)
  969. Response.Write Join(aryPL_Disable)
  971. Response.Write "</div>"
  973. %>
  975. <%
  977. Err.Clear
  979. ExportPluginList=True
  981. End Function
  982. '*********************************************************
  987. '*********************************************************
  988. ' 目的：    
  989. '*********************************************************
  990. Function ExportSiteInfo()
  992. On Error Resume Next
  994. Dim FoundFso
  995. FoundFso = False
  996. FoundFso = IsObjInstalled("Scripting.FileSystemObject")
  999. Dim objRS
  1000. Set objRS=Server.CreateObject("ADODB.Recordset")
  1001. objRS.CursorType = adOpenKeyset
  1002. objRS.LockType = adLockReadOnly
  1003. objRS.ActiveConnection=objConn
  1004. objRS.Source=""
  1006. Dim allArticle,allCommNums,allTrackBackNums,allViewNums,allUserNums,allCateNums,allTagsNums
  1008. Dim User,i
  1009. For Each User in Users
  1010. If IsObject(User) Then
  1011. Set objRS=objConn.Execute("SELECT COUNT([log_ID]) FROM [blog_Article] WHERE [log_Level]>1 AND [log_AuthorID]=" & User.ID )
  1012. i=objRS(0)
  1013. objConn.Execute("UPDATE [blog_Member] SET [mem_PostLogs]="&i&" WHERE [mem_ID] =" & User.ID)
  1014. Set objRS=Nothing
  1016. Set objRS=objConn.Execute("SELECT COUNT([comm_ID]) FROM [blog_Comment] WHERE [comm_AuthorID]=" & User.ID )
  1017. i=objRS(0)
  1018. objConn.Execute("UPDATE [blog_Member] SET [mem_PostComms]="&i&" WHERE [mem_ID] =" & User.ID)
  1019. Set objRS=Nothing
  1020. End If
  1021. Next
  1023. Set objRS=Server.CreateObject("ADODB.Recordset")
  1024. objRS.CursorType = adOpenKeyset
  1025. objRS.LockType = adLockReadOnly
  1026. objRS.ActiveConnection=objConn
  1027. objRS.Source=""
  1028. objRS.Open("SELECT COUNT([log_ID])AS allArticle,SUM([log_CommNums]) AS allCommNums,SUM([log_ViewNums]) AS allViewNums,SUM([log_TrackBackNums]) AS allTrackBackNums FROM [blog_Article]")
  1029. If (Not objRS.bof) And (Not objRS.eof) Then
  1030. allArticle=objRS("allArticle")
  1031. allCommNums=objRS("allCommNums")
  1032. allTrackBackNums=objRS("allTrackBackNums")
  1033. allViewNums=objRS("allViewNums")
  1034. End If
  1035. objRS.Close
  1037. objRS.Open("SELECT COUNT([tag_ID])AS allTagsNums FROM [blog_Tag]")
  1038. If (Not objRS.bof) And (Not objRS.eof) Then
  1039. allTagsNums=objRS("allTagsNums")
  1040. End If
  1041. objRS.Close
  1043. objRS.Open("SELECT COUNT([mem_ID])AS allUserNums FROM [blog_Member]")
  1044. If (Not objRS.bof) And (Not objRS.eof) Then
  1045. allUserNums=objRS("allUserNums")
  1046. End If
  1047. objRS.Close
  1049. objRS.Open("SELECT COUNT([cate_ID])AS allCateNums FROM [blog_Category]")
  1050. If (Not objRS.bof) And (Not objRS.eof) Then
  1051. allCateNums=objRS("allCateNums")
  1052. End If
  1053. objRS.Close
  1055. Call CheckParameter(allArticle,"int",0)
  1056. Call CheckParameter(allCommNums,"int",0)
  1057. Call CheckParameter(allTrackBackNums,"int",0)
  1058. Call CheckParameter(allViewNums,"int",0)
  1059. Call CheckParameter(allUserNums,"int",0)
  1060. Call CheckParameter(allCateNums,"int",0)
  1061. Call CheckParameter(allTagsNums,"int",0)
  1063. Response.Write "<div class=""Header"">" & ZC_MSG159 & "</div>"
  1064. Response.Write "<div class=""SubMenu"">" & Response_Plugin_SiteInfo_SubMenu & "</div>"
  1065. Response.Write "<div id=""divMain2"">"
  1067. Call GetBlogHint()
  1068. %>
  1070. <table border="0" cellspacing="0" cellpadding="0" align="center" width="100%" class="tableBorder">
  1071. <tr><th height=25 colspan=4  align="center">&nbsp;<%=ZC_MSG167%></th></tr>
  1072. <tr>
  1073. <td width="20%"><%=ZC_MSG160%></td>
  1074. <td width="30%"><%=BlogUser.Name%> (<%=ZVA_User_Level_Name(BlogUser.Level)%>)</td>
  1075. <td width="20%"><%=ZC_MSG150%></td>
  1076. <td width="30%"><%=ZC_BLOG_VERSION%></td>
  1077. </tr>
  1078. <tr>
  1079. <td width="20%"><%=ZC_MSG082%></td>
  1080. <td width="30%"><%=allArticle%></td>
  1081. <td width="20%"><%=ZC_MSG124%></td>
  1082. <td width="30%"><%=allCommNums%></td>
  1083. </tr>
  1084. <tr>
  1085. <td width="20%"><%=ZC_MSG125%></td>
  1086. <td width="30%"><%=allTrackBackNums%></td>
  1087. <td width="20%"><%=ZC_MSG129%></td>
  1088. <td width="30%"><%=allViewNums%></td>
  1089. </tr>
  1090. <tr>
  1091. <td width="20%"><%=ZC_MSG163%></td>
  1092. <td width="30%"><%=allTagsNums%></td>
  1093. <td width="20%"><%=ZC_MSG162%></td>
  1094. <td width="30%"><%=allCateNums%></td>
  1095. </tr>
  1096. <tr>
  1097. <td width="20%"><%=ZC_MSG306%>/<%=ZC_MSG083%></td>
  1098. <td width="30%"><%=GetNameFormTheme(ZC_BLOG_THEME)%> / <%=ZC_BLOG_CSS%></td>
  1099. <td width="20%"><%=ZC_MSG166%></td>
  1100. <td width="30%"><%=allUserNums%></td>
  1101. </tr>
  1102. <tr>
  1103. <td width="20%">MetaWeblog API</td>
  1104. <td colspan="3" width="80%"><%=ZC_BLOG_HOST%>xml-rpc/index.asp</td>
  1105. </tr>
  1106. <!--  <tr>
  1107. <td colspan="4">
  1108. <marquee onmouseover="this.stop()" onmouseout="this.start()"></marquee>
  1109. </td>
  1110. </tr> -->
  1111. </table>
  1112. <!-- 
  1113. <table border="0" cellspacing="0" cellpadding="0" align=center width="100%" class="tableBorder">
  1114. <tr><th height=25 colspan=4>&nbsp;<%=ZC_MSG164%></th></tr>
  1115. <tr>
  1116. <td width="22%" ><%=ZC_MSG150%></td>
  1117. <td width="27%"><%=ZC_BLOG_VERSION%></td>
  1118. <td width="27%"></td>
  1119. <td width="24%"></td>
  1120. </tr>
  1121. <tr>
  1122. <td width="22%" >FSO </td>
  1123. <td width="27%">
  1124. <%
  1125. If FoundFso Then
  1126. Response.Write "<font color=green><b>ok</b></font>"
  1127. Else
  1128. Response.Write "<font color=red><b>fail</b></font>"
  1129. End If
  1130. %>
  1131. </td>
  1132. <td> Adodb.Stream </td>
  1133. <td><%
  1134. If IsObjInstalled("Adodb.Stream") Then
  1135. Response.Write "<font color=green><b>ok</b></font>"
  1136. Else
  1137. Response.Write "<font color=red><b>fail</b></font>"
  1138. End If
  1139. %>
  1140. </td>
  1141. </tr>
  1142. <tr>
  1143. <td width="22%" >ADODB.Connection</td>
  1144. <td width="27%">
  1145. <%
  1146. If IsObjInstalled("ADODB.Connection") Then
  1147. Response.Write "<font color=green><b>ok</b></font>"
  1148. Else
  1149. Response.Write "<font color=red><b>fail</b></font>"
  1150. End If
  1151. %></td>
  1152. <td> Microsoft.XMLDOM</td>
  1153. <td><%
  1154. If IsObjInstalled("Microsoft.XMLDOM") Then
  1155. Response.Write "<font color=green><b>ok</b></font>"
  1156. Else
  1157. Response.Write "<font color=red><b>fail</b></font>"
  1158. End If
  1159. %>
  1160. </td>
  1161. </tr>
  1162. <tr>
  1163. <td width="22%" >
  1164. MSXML2.ServerXMLHTTP</td>
  1165. <td width="27%">
  1166. <%
  1167. If IsObjInstalled("MSXML2.ServerXMLHTTP") Then
  1168. Response.Write "<font color=green><b>ok</b></font>"
  1169. Else
  1170. Response.Write "<font color=red><b>fail</b></font>"
  1171. End If
  1172. %>
  1173. </td>
  1174. <td > Scripting.Dictionary</td>
  1175. <td><%
  1176. If IsObjInstalled("Scripting.Dictionary") Then
  1177. Response.Write "<font color=green><b>ok</b></font>"
  1178. Else
  1179. Response.Write "<font color=red><b>fail</b></font>"
  1180. End If
  1181. %>
  1182. </td>
  1183. </tr>
  1184. </table>
  1185. -->
  1186. <%
  1187. If Len(ZC_UPDATE_INFO_URL)>0 Then
  1188. %>
  1189. <table border="0" cellspacing="0" cellpadding="0" align="center" width="100%" class="tableBorder">
  1190. <tr><th height=25 colspan=4 align="center">&nbsp;<%=ZC_MSG164%>&nbsp;<a href="javascript:updateinfo('?reload');">[<%=ZC_MSG289%>]</a></th></tr>
  1191. <tr><td height=25 colspan=4 id="tdUpdateInfo">
  1192. <script language="JavaScript" type="text/javascript">
  1193. function updateinfo(s){
  1194. $.post("c_updateinfo.asp"+s,{},
  1195. function(data){
  1196. $("#tdUpdateInfo").html(data);
  1197. }
  1198. )
  1199. };
  1201. $(document).ready(function(){updateinfo("");});
  1203. </script>
  1204. </td></tr>
  1205. </table>
  1206. <%
  1207. End If
  1208. %>
  1209. <br />
  1210. <%
  1211. Response.Write "</div>"
  1213. ExportSiteInfo=True
  1215. Err.Clear
  1217. End Function
  1218. '*********************************************************
  1223. '*********************************************************
  1224. ' 目的：    目录下文件列表
  1225. '*********************************************************
  1226. Function ExportSiteFileList(path,opath)
  1228. On Error Resume Next
  1230. Response.Write "<div class=""Header"">" & ZC_MSG210 & "</div>"
  1231. Response.Write "<div class=""SubMenu"">" & Response_Plugin_SiteFileMng_SubMenu & "</div>"
  1232. Response.Write "<div id=""divMain2"">"
  1234. Call GetBlogHint()
  1236. Response.Write "<!-- <form id=""edit"" method=""post"" action="""">"
  1237. %>
  1238. <p><%=ZC_MSG246%>:</p>
  1239. <p><a href="admin.asp?act=SiteFileEdt&path=<%=Escape("./INCLUDE/link.asp")%>" target="main">[<%=ZC_MSG031%>]</a>
  1240. <a href="admin.asp?act=SiteFileEdt&path=<%=Escape("./INCLUDE/favorite.asp")%>" target="main">[<%=ZC_MSG030%>]</a>
  1241. <a href="admin.asp?act=SiteFileEdt&path=<%=Escape("./INCLUDE/misc.asp")%>" target="main">[<%=ZC_MSG039%>]</a>
  1242. <a href="admin.asp?act=SiteFileEdt&path=<%=Escape("./INCLUDE/navbar.asp")%>" target="main">[<%=ZC_MSG233%>]</a>
  1243. </p>
  1244. <%
  1245. Response.Write "</form> -->"
  1247. dim f,fold,item,fpath,jpath
  1248. set f=server.createobject("scripting.filesystemobject")
  1250. If opath<>"" Then path=opath
  1252.   if path<>"" then
  1253.  if instr(path,":")>0 then
  1254.  path=path
  1255.  else
  1256.  path=server.mappath(path)
  1257.  end if
  1258.   else
  1259.   path=blogpath
  1260.   end if
  1261. response.write "<p>"&ZC_MSG240&":"&path&"</p>"
  1262. set fold=f.getfolder(path)
  1264. response.write"<table width=""100%"" border=""0"">"
  1265. response.write "<tr><td><a href='../cmd.asp?act=SiteFileMng&path="&Server.URLEncode(path&"..")&"'>"&ZC_MSG239&"</a></td></tr>"
  1266. for each item in fold.subfolders
  1267. jpath=replace(path,"","\")
  1268. response.write "<tr height=18><td><img src='../image/edit/page_peppermint.png' height='11' width='11' />&nbsp;<a href='../cmd.asp?act=SiteFileMng&path="&Server.URLEncode(path&""&item.name)&"&opath='>"&item.name&"</a>"
  1269. response.write"</td></tr>"
  1270. next
  1271. for each item in fold.files
  1272. fpath=replace(path&"/"&item.name,blogpath,"")
  1273. fpath=replace(fpath,"","/")
  1274. response.write "<tr><td><img src='../image/edit/page_spearmint.png' height='11' width='11' />&nbsp;<a href=""javascript:;"" title='"&ZC_MSG261&":"&item.datelastmodified&";"&ZC_MSG238&":"&clng(item.size/1024)&"k'>"&item.name&"</a>&nbsp;&nbsp;"
  1275. response.write"<a href=""../cmd.asp?act=SiteFileEdt&path=."&Server.URLEncode(fpath)&"&opath="& Server.URLEncode(path) &""">["&ZC_MSG078&"]</a>&nbsp;&nbsp;<a href=""../cmd.asp?act=SiteFileDel&path=."&Server.URLEncode(fpath)&"&opath="& Server.URLEncode(path) &""" onclick='return window.confirm("""&ZC_MSG058&""");'>["&ZC_MSG063&"]</a>"
  1277. next
  1278. response.write"</table>"
  1279. set fold=nothing
  1281. set f=Nothing
  1283. Response.Write "</div>"
  1285. ExportSiteFileList=True
  1287. Err.Clear
  1289. End Function
  1290. '*********************************************************
  1295. '*********************************************************
  1296. ' 目的：    编辑文件
  1297. '*********************************************************
  1298. Function ExportSiteFileEdit(tpath,opath)
  1300. Dim Del,txaContent
  1302. Response.Write "<div class=""Header"">" & ZC_MSG246 & "</div>"
  1303. Response.Write "<div class=""SubMenu"">" & Response_Plugin_SiteFileEdt_SubMenu & "</div>"
  1304. Response.Write "<div id=""divMain2"">"
  1306. Call GetBlogHint()
  1308. If IsEmpty(txaContent) Then txaContent=Null
  1311. If Not IsNull(tpath) Then
  1313. Response.Write "<form id=""edit"" name=""edit"" method=""post"" action=""../cmd.asp?act=SiteFilePst&path="&Server.URLEncode(tpath)&"&opath="&Server.URLEncode(opath)&""">" & vbCrlf
  1314. Response.Write "<p><br/>" & ZC_MSG170 & ": <br/><INPUT TYPE=""text"" Value="""&unEscape(tpath)&""" style=""width:100%"" name=""path"" id=""path"" readonly></p>"
  1315. Response.Write "<p><textarea class=""resizable"" style=""height:300px;width:100%"" name=""txaContent"" id=""txaContent"">"&TransferHTML(LoadFromFile(BlogPath & unEscape(tpath),"utf-8"),"[textarea]")&"</textarea></p>" & vbCrlf
  1316. Response.Write "<hr/>"
  1317. Response.Write "<p><input class=""button"" type=""submit"" value="""&ZC_MSG087&""" id=""btnPost""/></p>" & vbCrlf
  1318. Response.Write "</form>" & vbCrlf
  1320. End If
  1322. Response.Write "</div>"
  1324. ExportSiteFileEdit=True
  1326. End Function
  1327. '*********************************************************
  1332. '*********************************************************
  1333. ' 目的：    
  1334. '*********************************************************
  1335. Function ExportFileReBuildAsk()
  1337. 'Call Add_Response_Plugin("Response_Plugin_AskFileReBuild_SubMenu",MakeSubMenu(ZC_MSG072,"../cmd.asp?act=BlogReBuild","m-left",False))
  1339. Response.Write "<div class=""Header"">" & ZC_MSG073 & "</div>"
  1340. Response.Write "<div class=""SubMenu"">" & Response_Plugin_AskFileReBuild_SubMenu & "</div>"
  1341. Response.Write "<div id=""divMain2"">"
  1343. Call GetBlogHint()
  1345. Response.Write "<form id=""edit"" name=""edit"" method=""post"" action=""../cmd.asp?act=FileReBuild"">" & vbCrlf
  1346. Response.Write "<p>"& ZC_MSG112 &"</p>" & vbCrlf
  1347. Response.Write "<p><input class=""button"" type=""submit"" value="""&ZC_MSG087&""" id=""btnPost""/></p>" & vbCrlf
  1349. If ZC_MOONSOFT_PLUGIN_ENABLE=True Then
  1350. Response.Write "<p></p>" & vbCrlf
  1351. Response.Write "<p></p>" & vbCrlf
  1352. Response.Write "<p>其它操作:</p>" & vbCrlf
  1353. Response.Write "<p>进行<a href='../cmd.asp?act=BlogReBuild'>[索引重建]</a>或是<a href='../cmd.asp?act=DirectoryReBuild'>[静态日志目录重建]</a></p>" & vbCrlf
  1354. Response.Write "<p></p>" & vbCrlf
  1355. End If
  1356. Response.Write "</form>" & vbCrlf
  1358. Response.Write "</div>"
  1360. ExportFileReBuildAsk=True
  1362. End Function
  1363. '*********************************************************
  1368. '*********************************************************
  1369. ' 目的：    
  1370. '*********************************************************
  1371. Function ExportThemesMng()
  1373. On Error Resume Next
  1375. Dim CurrentTheme
  1376. Dim CurrentStyle
  1378. CurrentTheme=ZC_BLOG_THEME
  1379. CurrentStyle=ZC_BLOG_CSS
  1381. Dim Theme_Id
  1382. Dim Theme_Name
  1383. Dim Theme_Url
  1384. Dim Theme_Note
  1385. Dim Theme_Description
  1386. Dim Theme_Pubdate
  1387. Dim Theme_Source_Name
  1388. Dim Theme_Source_Url
  1389. Dim Theme_Author_Name
  1390. Dim Theme_Author_Url
  1391. Dim Theme_ScreenShot
  1392. Dim Theme_Style_Name
  1393. Dim i,j
  1394. Dim aryFileList
  1396. If Request.QueryString("installed")<>"" Then
  1398. Call InstallPlugin(Request.QueryString("installed"))
  1400. End If
  1403. Response.Write "<div class=""Header"">" & ZC_MSG291 & "</div>"
  1404. Response.Write "<div class=""SubMenu"">" & Response_Plugin_ThemesMng_SubMenu & "</div>"
  1405. Response.Write "<div id=""divMain2"">"
  1407. Call GetBlogHint()
  1409. Response.Write "<form id=""frmTheme"" method=""post"" action=""../cmd.asp?act=ThemesSav"">"
  1411. Dim objXmlFile,strXmlFile
  1412. Dim fso, f, f1, fc, s
  1413. Set fso = CreateObject("Scripting.FileSystemObject")
  1414. Set f = fso.GetFolder(BlogPath & "themes" & "/")
  1415. Set fc = f.SubFolders
  1416. For Each f1 in fc
  1418. If fso.FileExists(BlogPath & "themes" & "/" & f1.name & "/" & "theme.xml") Then
  1420. strXmlFile =BlogPath & "themes" & "/" & f1.name & "/" & "theme.xml"
  1422. Set objXmlFile=Server.CreateObject("Microsoft.XMLDOM")
  1423. objXmlFile.async = False
  1424. objXmlFile.ValidateOnParse=False
  1425. objXmlFile.load(strXmlFile)
  1426. If objXmlFile.readyState=4 Then
  1427. If objXmlFile.parseError.errorCode <> 0 Then
  1428. Else
  1430. Theme_Id=""
  1431. Theme_Name=""
  1432. Theme_Url=""
  1433. Theme_Note=""
  1434. Theme_Description=""
  1435. Theme_Pubdate=""
  1436. Theme_Source_Name=""
  1437. Theme_Source_Url=""
  1438. Theme_Author_Name=""
  1439. Theme_Author_Url=""
  1440. Theme_ScreenShot=""
  1441. Theme_Style_Name=""
  1443. Theme_Source_Name=objXmlFile.documentElement.selectSingleNode("source/name").text
  1444. Theme_Source_Url=objXmlFile.documentElement.selectSingleNode("source/url").text
  1446. Theme_Author_Name=objXmlFile.documentElement.selectSingleNode("author/name").text
  1447. Theme_Author_Url=objXmlFile.documentElement.selectSingleNode("author/url").text
  1449. If Theme_Author_Name="" Then
  1450. Theme_Author_Name=Theme_Source_Name
  1451. Theme_Author_Url=Theme_Source_Url
  1452. End If
  1455. 'Theme_Id=f1.name
  1456. Theme_Id=objXmlFile.documentElement.selectSingleNode("id").text
  1457. Theme_Name=objXmlFile.documentElement.selectSingleNode("name").text
  1458. Theme_Url=objXmlFile.documentElement.selectSingleNode("url").text
  1459. Theme_Note=objXmlFile.documentElement.selectSingleNode("note").text
  1460. Theme_Pubdate=objXmlFile.documentElement.selectSingleNode("pubdate").text
  1461. Theme_Description=objXmlFile.documentElement.selectSingleNode("description").text
  1463. Theme_ScreenShot=ZC_BLOG_HOST & "themes" &"/" & Theme_Id & "/" & "screenshot.png"
  1468. If UCase(Theme_Id)=UCase(CurrentTheme) Then
  1469. Response.Write "<div class=""theme-now"" style="""">"
  1470. Else
  1471. Response.Write "<div class=""theme-other"" style="""">"
  1472. End If
  1474. If UCase(Theme_Id) <> UCase(f1.name) Then
  1475. Response.Write "<p style=""color:red;"">ID Error! Should be """& f1.name &"""!!</p>"
  1476. Else
  1477. Response.Write "<p>ID: <a id=""mylink1"&Left(md5(Theme_Id),6)&""" href=""$div"&Left(md5(Theme_Id),6)&"tip?width=300"" class=""betterTip"" title="""&Theme_Id&""">" & "" & Theme_Id & "" & "</a></p>"
  1478. End If
  1479. Response.Write "<p><a id=""mylink"&Left(md5(Theme_Id),6)&""" href=""$div"&Left(md5(Theme_Id),6)&"tip?width=300"" class=""betterTip"" title="""&Theme_Id&"""><img src=""" & Theme_ScreenShot & """ title=""" & Theme_Name & """ alt=""ScreenShot"" width=""200"" height=""150"" /></a></p>"
  1481. Response.Write "<div id=""div"&Left(md5(Theme_Id),6)&"tip"" style=""display:none;"">"
  1482. Response.Write "<p>"&ZC_MSG001&":" & Theme_Name & "</p>"
  1483. Response.Write "<p>"&ZC_MSG128&":" & Theme_Author_Name & "</p>"
  1484. 'Response.Write "<p>"&ZC_MSG054&":" & Theme_Author_Url & "</p>"
  1485. Response.Write "<p>"&ZC_MSG313&":" & Theme_Source_Name & "</p>"
  1486. 'Response.Write "<p>"&ZC_MSG054&":" & Theme_Source_Url & "</p>"
  1487. Response.Write "<p>"&ZC_MSG011&":" & Theme_Pubdate & "</p>"
  1488. Response.Write "<p>"&ZC_MSG261&":" & Theme_Modified & "</p>"
  1489. Response.Write "<p>"&ZC_MSG312&":<br />" & TransferHTML(Theme_Description,"[enter]") & "</p>"
  1490. Response.Write "</div>"
  1492. If Theme_Url="" Then
  1493. Response.Write "<p>"&ZC_MSG001&":" & Theme_Name & "</p>"
  1494. Else
  1495. Response.Write "<p>"&ZC_MSG001&":<a target=""_blank"" href=""" & Theme_Url & """>" & Theme_Name & "</a></p>"
  1496. End If
  1498. If Theme_Author_Url="" Then
  1499. Response.Write "<p>"&ZC_MSG128&":" & Theme_Author_Name & "</p>"
  1500. Else
  1501. Response.Write "<p>"&ZC_MSG128&":<a target=""_blank"" href=""" & Theme_Author_Url & """>" & Theme_Author_Name & "</a></p>"
  1502. End If
  1505. Response.Write "<p>"&ZC_MSG011&":" & Theme_Pubdate & "</p>"
  1506. Response.Write "<p>"&ZC_MSG016&":" & Theme_Note & "</p>"
  1507. Response.Write "<p>"&ZC_MSG314&":" & "<select class=""edit"" size=""1"" id=""cate"&Left(md5(Theme_Id),6)&""" name=""cate"&Left(md5(Theme_Id),6)&""" style=""width:100px;"" onchange=""document.getElementById('edtZC_BLOG_THEME').value='"&Theme_Id&"';document.getElementById('edtZC_BLOG_CSS').value=this.options[this.selectedIndex].value""> ><option value=""""></option>"
  1510. aryFileList=LoadIncludeFiles("themes" & "/" & Theme_Id & "/style")
  1512. If IsArray(aryFileList) Then
  1513. j=UBound(aryFileList)
  1514. For i=1 to j
  1515. If (InStr(aryFileList(i),".css")>0) Or (InStr(aryFileList(i),".asp")) Then
  1516. Theme_Style_Name=Replace(aryFileList(i),".css","")
  1517. Theme_Style_Name=Replace(Theme_Style_Name,".asp","")
  1518. If Theme_Id=CurrentTheme And Theme_Style_Name=CurrentStyle Then
  1519. Response.Write " <option selected=""selected"" value="""& Theme_Style_Name &""">"&aryFileList(i)&"</option> "
  1520. Else
  1521. If j=1 Then
  1522. Response.Write " <option selected=""selected"" value="""& Theme_Style_Name &""">"&aryFileList(i)&"</option> "
  1523. ElseIf LCase(Theme_Style_Name)="style" Then
  1524. Response.Write " <option selected=""selected"" value="""& Theme_Style_Name &""">"&aryFileList(i)&"</option> "
  1525. ElseIf LCase(Theme_Style_Name)=LCase(Theme_Id) Then
  1526. Response.Write " <option selected=""selected"" value="""& Theme_Style_Name &""">"&aryFileList(i)&"</option> "
  1527. Else
  1528. If i=1 Then
  1529. Response.Write " <option selected=""selected"" value="""& Theme_Style_Name &""">"&aryFileList(i)&"</option> "
  1530. Else
  1531. Response.Write " <option value="""& Theme_Style_Name &""">"&aryFileList(i)&"</option> "
  1532. End If
  1533. End If
  1534. End If
  1535. End If
  1536. Next
  1537. End If
  1539. Response.Write "</select>"
  1540. 'Response.Write "&nbsp;&nbsp;<a href='' onclick='if(document.getElementById(""cate"&Left(md5(Theme_Id),6)&""").value){document.getElementById(""frmTheme"").submit();return false;}'>["&ZC_MSG308&"]</a>"
  1541. Response.Write "&nbsp;&nbsp;<input type=""submit"" class=""button"" value="""& ZC_MSG308 &""" id=""btnPost"" onclick='if(!document.getElementById(""cate"&Left(md5(Theme_Id),6)&""").value){return false;}else{document.getElementById(""edtZC_BLOG_THEME"").value="""&Theme_Id&""";document.getElementById(""edtZC_BLOG_CSS"").value=document.getElementById(""cate"&Left(md5(Theme_Id),6)&""").value};' />"
  1543. 'Response.Write "&nbsp;&nbsp;<input type=""submit"" class=""button"" value="""& ZC_MSG308 &""" id=""btnPost"" onclick='if(document.getElementById(""edtZC_BLOG_CSS"").value&&document.getElementById(""edtZC_BLOG_THEME"").value){return window.confirm("""& ZC_MSG058 &""");}else{return false}' />"
  1544. Response.Write "</p>"
  1547. Response.Write "</div>"
  1551. End If
  1552. Set objXmlFile=Nothing
  1553. End If
  1555. End If
  1557. Next
  1558. Set fso = nothing
  1560. Response.Write "<input type=""hidden"" name=""edtZC_BLOG_CSS"" id=""edtZC_BLOG_CSS"" value="""" />"
  1561. Response.Write "<input type=""hidden"" name=""edtZC_BLOG_THEME"" id=""edtZC_BLOG_THEME"" value="""" />"
  1564. Response.Write "</form>"
  1565. Response.Write "</div>"
  1566. Err.Clear
  1568. ExportThemesMng=True
  1570. End Function
  1571. '*********************************************************
  1572. %>