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

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

中间件编程

开发平台：

HTML/CSS

edit_setting.asp：源码内容
  1. <%@ CODEPAGE=65001 %>
  2. <%
  3. '///////////////////////////////////////////////////////////////////////////////
  4. '//              Z-Blog 彩虹网志个人版
  5. '// 作    者:    朱煊(zx.asd)
  6. '// 版权所有:    RainbowSoft Studio
  7. '// 技术支持:    rainbowsoft@163.com
  8. '// 程序名称:    
  9. '// 程序版本:    
  10. '// 单元名称:    edit_setting.asp
  11. '// 开始时间:    2005.03.16
  12. '// 最后修改:    
  13. '// 备    注:    编辑设置页
  14. '///////////////////////////////////////////////////////////////////////////////
  15. %>
  16. <% Option Explicit %>
  17. <% On Error Resume Next %>
  18. <% Response.Charset="UTF-8" %>
  19. <% Response.Buffer=True %>
  20. <!-- #include file="../c_option.asp" -->
  21. <!-- #include file="../function/c_function.asp" -->
  22. <!-- #include file="../function/c_system_lib.asp" -->
  23. <!-- #include file="../function/c_system_base.asp" -->
  24. <!-- #include file="../function/c_system_plugin.asp" -->
  25. <!-- #include file="../plugin/p_config.asp" -->
  26. <%
  28. Call System_Initialize()
  30. 'plugin node
  31. For Each sAction_Plugin_Edit_Setting_Begin in Action_Plugin_Edit_Setting_Begin
  32. If Not IsEmpty(sAction_Plugin_Edit_Setting_Begin) Then Call Execute(sAction_Plugin_Edit_Setting_Begin)
  33. Next
  35. '检查非法链接
  36. Call CheckReference("")
  38. '检查权限
  39. If Not CheckRights("SettingMng") Then Call ShowError(6)
  41. Dim EditArticle
  43. BlogTitle=ZC_BLOG_TITLE & ZC_MSG044 & ZC_MSG247
  45. %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  46. <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="<%=ZC_BLOG_LANGUAGE%>" lang="<%=ZC_BLOG_LANGUAGE%>">
  47. <head>
  48. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  49. <meta http-equiv="Content-Language" content="<%=ZC_BLOG_LANGUAGE%>" />
  50. <link rel="stylesheet" rev="stylesheet" href="../CSS/admin.css" type="text/css" media="screen" />
  51. <script language="JavaScript" src="../script/common.js" type="text/javascript"></script>
  52. <script language="JavaScript" src="../script/jquery.tabs.pack.js" type="text/javascript"></script>
  53. <link rel="stylesheet" href="../CSS/jquery.tabs.css" type="text/css" media="print, projection, screen">
  54. <!--[if lte IE 7]>
  55. <link rel="stylesheet" href="../CSS/jquery.tabs-ie.css" type="text/css" media="projection, screen">
  56. <![endif]-->
  57. <link rel="stylesheet" href="../CSS/jquery.bettertip.css" type="text/css" media="screen">
  58. <script language="JavaScript" src="../script/jquery.bettertip.pack.js" type="text/javascript"></script>
  59. <title><%=BlogTitle%></title>
  60. </head>
  61. <body>
  62. <div id="divMain">
  63. <div class="Header"><%=ZC_MSG247%></div>
  64. <%
  65. Response.Write "<div class=""SubMenu"">" & Response_Plugin_SettingMng_SubMenu & "</div>"
  66. %>
  67. <form method="post" action="../cmd.asp?act=SettingSav">
  68. <div id="divMain2">
  69. <% Call GetBlogHint() %>
  70. <ul>
  71. <li class="tabs-selected"><a href="#fragment-1"><span><%=ZC_MSG105%></span></a></li>
  72. <li><a href="#fragment-2"><span><%=ZC_MSG173%></span></a></li>
  73. <li><a href="#fragment-3"><span><%=ZC_MSG186%></span></a></li>
  74. <li><a href="#fragment-4"><span><%=ZC_MSG281%></span></a></li>
  75. <li><a href="#fragment-5"><span><%=ZC_MSG195%></span></a></li>
  76. <li><a href="#fragment-6"><span><%=ZC_MSG215%></span></a></li>
  77. </ul>
  78. <%
  80. Function SplitNameAndNote(s)
  82. Dim i,j
  84. i=InStr(s,"(")
  85. j=InStr(s,")")
  87. If i>0 And j>0 Then 
  88. SplitNameAndNote="<p  align='left'>·" & Left(s,i-1) & ""
  89. SplitNameAndNote=SplitNameAndNote & "<p>" & Mid(s,i+1,Len(s)-i+1-2) & "</p></p>"
  90. Else
  91. SplitNameAndNote="<p  align='left'>·" & s & "</p>"
  92. End If
  94. End Function
  97. Dim i,j
  98. Dim tmpSng
  100. tmpSng=LoadFromFile(BlogPath & "/c_custom.asp","utf-8")
  102. Dim strZC_BLOG_HOST
  103. Dim strZC_BLOG_TITLE
  104. Dim strZC_BLOG_SUBTITLE
  105. Dim strZC_BLOG_NAME
  106. Dim strZC_BLOG_SUB_NAME
  107. Dim strZC_BLOG_CSS
  108. Dim strZC_BLOG_COPYRIGHT
  109. Dim strZC_BLOG_MASTER
  110. Dim strZC_BLOG_THEME
  112. Call LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_HOST",strZC_BLOG_HOST)
  113. Call LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_TITLE",strZC_BLOG_TITLE)
  114. Call LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_SUBTITLE",strZC_BLOG_SUBTITLE)
  115. Call LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_NAME",strZC_BLOG_NAME)
  116. Call LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_SUB_NAME",strZC_BLOG_SUB_NAME)
  117. Call LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_CSS",strZC_BLOG_CSS)
  118. Call LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_COPYRIGHT",strZC_BLOG_COPYRIGHT)
  119. Call LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_MASTER",strZC_BLOG_MASTER)
  120. Call LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_THEME",strZC_BLOG_THEME)
  123. strZC_BLOG_HOST=TransferHTML(strZC_BLOG_HOST,"[html-format]")
  124. strZC_BLOG_TITLE=TransferHTML(strZC_BLOG_TITLE,"[html-format]")
  125. strZC_BLOG_SUBTITLE=TransferHTML(strZC_BLOG_SUBTITLE,"[html-format]")
  126. strZC_BLOG_NAME=TransferHTML(strZC_BLOG_NAME,"[html-format]")
  127. strZC_BLOG_SUB_NAME=TransferHTML(strZC_BLOG_SUB_NAME,"[html-format]")
  128. strZC_BLOG_CSS=TransferHTML(strZC_BLOG_CSS,"[html-format]")
  129. strZC_BLOG_COPYRIGHT=TransferHTML(strZC_BLOG_COPYRIGHT,"[html-format]")
  130. strZC_BLOG_MASTER=TransferHTML(strZC_BLOG_MASTER,"[html-format]")
  131. strZC_BLOG_THEME=TransferHTML(strZC_BLOG_THEME,"[html-format]")
  133. Response.Write "<div class=""tabs-div"" style='border:none;padding:0px;margin:0;' id=""fragment-1"">"
  134. Response.Write "<table width='100%' style='padding:0px;margin:1px;' cellspacing='0' cellpadding='0'>"
  135. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG104) & "</td><td style=""width:68%""><p><input id=""edtZC_BLOG_HOST"" name=""edtZC_BLOG_HOST"" style=""width:95%"" type=""text"" value=""" & strZC_BLOG_HOST & """ /></p></td></tr>"
  136. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG091) & "</td><td style=""width:68%""><p><input id=""edtZC_BLOG_NAME"" name=""edtZC_BLOG_NAME"" style=""width:95%"" type=""text"" value=""" & strZC_BLOG_NAME & """ /></p></td></tr>"
  137. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG092) & "</td><td style=""width:68%""><p><input id=""edtZC_BLOG_SUB_NAME"" name=""edtZC_BLOG_SUB_NAME"" style=""width:95%""  type=""text"" value=""" & strZC_BLOG_SUB_NAME & """ /></p></td></tr>"
  138. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG093) & "</td><td style=""width:68%""><p><input id=""edtZC_BLOG_TITLE"" name=""edtZC_BLOG_TITLE""style=""width:95%""  type=""text"" value=""" & strZC_BLOG_TITLE &""" /></p></td></tr>"
  139. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG094) & "</td><td style=""width:68%""><p><input id=""edtZC_BLOG_SUBTITLE"" name=""edtZC_BLOG_SUBTITLE"" style=""width:95%""  type=""text"" value=""" & strZC_BLOG_SUBTITLE & """ /></p></td></tr>"
  140. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG293) & "</td><td style=""width:68%""><p><input id=""edtZC_BLOG_THEME"" name=""edtZC_BLOG_THEME"" style=""width:95%"" type=""text"" value=""" & strZC_BLOG_THEME & """ /></p></td></tr>"
  141. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG095) & "</td><td style=""width:68%""><p><input id=""edtZC_BLOG_CSS"" name=""edtZC_BLOG_CSS"" style=""width:95%"" type=""text"" value=""" & strZC_BLOG_CSS & """ /></p></td></tr>"
  142. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG096) & "</td><td style=""width:68%""><p><textarea rows=""4"" id=""edtZC_BLOG_COPYRIGHT"" name=""edtZC_BLOG_COPYRIGHT"" style=""width:95%"" type=""text"" >" & strZC_BLOG_COPYRIGHT & "</textarea></p></td></tr>"
  143. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG097) & "</td><td style=""width:68%""><p><input id=""edtZC_BLOG_MASTER"" name=""edtZC_BLOG_MASTER"" style=""width:95%""  type=""text"" value=""" & strZC_BLOG_MASTER & """ /></p></td></tr>"
  144. Response.Write "</table>"
  145. Response.Write "</div>"
  149. Response.Write "<div class=""tabs-div"" style='border:none;padding:0px;margin:0;' id=""fragment-2"">"
  150. Response.Write "<table width='100%' style='padding:0px;margin:1px;' cellspacing='0' cellpadding='0'>"
  151. tmpSng=LoadFromFile(BlogPath & "/c_option.asp","utf-8")
  154. Dim strZC_BLOG_CLSID
  155. If LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_CLSID",strZC_BLOG_CLSID) Then
  156. strZC_BLOG_CLSID=TransferHTML(strZC_BLOG_CLSID,"[html-format]")
  157. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG174) & "</td><td style=""width:68%""><p><input id=""edtZC_BLOG_CLSID"" name=""edtZC_BLOG_CLSID"" style=""width:95%"" type=""text"" value=""" & strZC_BLOG_CLSID & """ /></p></td></tr>"
  158. End If
  160. Dim strZC_TIME_ZONE
  161. If LoadValueForSetting(tmpSng,True,"String","ZC_TIME_ZONE",strZC_TIME_ZONE) Then
  162. strZC_TIME_ZONE=TransferHTML(strZC_TIME_ZONE,"[html-format]")
  163. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG175) & "</td><td style=""width:68%""><p><input id=""edtZC_TIME_ZONE"" name=""edtZC_TIME_ZONE"" style=""width:95%"" type=""text"" value=""" & strZC_TIME_ZONE & """ /></p></td></tr>"
  164. End If
  166. Dim strZC_HOST_TIME_ZONE
  167. If LoadValueForSetting(tmpSng,True,"String","ZC_HOST_TIME_ZONE",strZC_HOST_TIME_ZONE) Then
  168. strZC_HOST_TIME_ZONE=TransferHTML(strZC_HOST_TIME_ZONE,"[html-format]")
  169. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG303) & "</td><td style=""width:68%""><p><input id=""edtZC_HOST_TIME_ZONE"" name=""edtZC_HOST_TIME_ZONE"" style=""width:95%"" type=""text"" value=""" & strZC_HOST_TIME_ZONE & """ /></p></td></tr>"
  170. End If
  172. Dim strZC_BLOG_LANGUAGE
  173. If LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_LANGUAGE",strZC_BLOG_LANGUAGE) Then
  174. strZC_BLOG_LANGUAGE=TransferHTML(strZC_BLOG_LANGUAGE,"[html-format]")
  175. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG176) & "</td><td style=""width:68%""><p><input id=""edtZC_BLOG_LANGUAGE"" name=""edtZC_BLOG_LANGUAGE"" style=""width:95%"" type=""text"" value=""" & strZC_BLOG_LANGUAGE & """ /></p></td></tr>"
  176. End If
  179. Dim strZC_UPDATE_INFO_URL
  180. If LoadValueForSetting(tmpSng,True,"String","ZC_UPDATE_INFO_URL",strZC_UPDATE_INFO_URL) Then
  181. strZC_UPDATE_INFO_URL=TransferHTML(strZC_UPDATE_INFO_URL,"[html-format]")
  182. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG290) & "</td><td style=""width:68%""><p><input id=""edtZC_UPDATE_INFO_URL"" name=""edtZC_UPDATE_INFO_URL"" style=""width:95%"" type=""text"" value=""" & strZC_UPDATE_INFO_URL & """/></p></td></tr>"
  183. End If
  185. Dim strZC_BLOG_WEBEDIT
  186. If LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_WEBEDIT",strZC_BLOG_WEBEDIT) Then
  187. strZC_BLOG_WEBEDIT=TransferHTML(strZC_BLOG_WEBEDIT,"[html-format]")
  188. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG180) & "</td><td style=""width:68%""><p><input id=""edtZC_BLOG_WEBEDIT"" name=""edtZC_BLOG_WEBEDIT"" style=""width:95%"" type=""text"" value=""" & strZC_BLOG_WEBEDIT & """ /></p></td></tr>"
  189. End If
  191. Dim strZC_UPLOAD_FILETYPE
  192. If LoadValueForSetting(tmpSng,True,"String","ZC_UPLOAD_FILETYPE",strZC_UPLOAD_FILETYPE) Then
  193. strZC_UPLOAD_FILETYPE=TransferHTML(strZC_UPLOAD_FILETYPE,"[html-format]")
  194. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG183) & "</td><td style=""width:68%""><p><input id=""edtZC_UPLOAD_FILETYPE"" name=""edtZC_UPLOAD_FILETYPE"" style=""width:95%"" type=""text"" value=""" & strZC_UPLOAD_FILETYPE & """ /></p></td></tr>"
  195. End If
  197. Dim strZC_UPLOAD_FILESIZE
  198. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_UPLOAD_FILESIZE",strZC_UPLOAD_FILESIZE) Then
  199. strZC_UPLOAD_FILESIZE=TransferHTML(strZC_UPLOAD_FILESIZE,"[html-format]")
  200. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG184) & "</td><td style=""width:68%""><p><input id=""edtZC_UPLOAD_FILESIZE"" name=""edtZC_UPLOAD_FILESIZE"" style=""width:95%"" type=""text"" value=""" & strZC_UPLOAD_FILESIZE & """ /></p></td></tr>"
  201. End If
  203. Dim strZC_UPLOAD_DIRBYMONTH
  204. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UPLOAD_DIRBYMONTH",strZC_UPLOAD_DIRBYMONTH) Then
  205. strZC_UPLOAD_DIRBYMONTH=TransferHTML(strZC_UPLOAD_DIRBYMONTH,"[html-format]")
  206. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG292) & "</td><td style=""width:68%""><p><input id=""edtZC_UPLOAD_DIRBYMONTH"" name=""edtZC_UPLOAD_DIRBYMONTH"" style="""" type=""checkbox"" "&IIf(CBool(strZC_UPLOAD_DIRBYMONTH),"checked","")&" value=""" & strZC_UPLOAD_DIRBYMONTH & """ class=""pointer"" ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  207. End If
  209. Dim strZC_RSS_EXPORT_WHOLE
  210. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_RSS_EXPORT_WHOLE",strZC_RSS_EXPORT_WHOLE) Then
  211. strZC_RSS_EXPORT_WHOLE=TransferHTML(strZC_RSS_EXPORT_WHOLE,"[html-format]")
  212. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG226) & "</td><td style=""width:68%""><p><input id=""edtZC_RSS_EXPORT_WHOLE"" name=""edtZC_RSS_EXPORT_WHOLE"" style="""" type=""checkbox"" "&IIf(CBool(strZC_RSS_EXPORT_WHOLE),"checked","")&" value=""" & strZC_RSS_EXPORT_WHOLE & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  213. End If
  215. Dim strZC_GUEST_REVERT_COMMENT_ENABLE
  216. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_GUEST_REVERT_COMMENT_ENABLE",strZC_GUEST_REVERT_COMMENT_ENABLE) Then
  217. strZC_GUEST_REVERT_COMMENT_ENABLE=TransferHTML(strZC_GUEST_REVERT_COMMENT_ENABLE,"[html-format]")
  218. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG283) & "</td><td style=""width:68%""><p><input id=""edtZC_GUEST_REVERT_COMMENT_ENABLE"" name=""edtZC_GUEST_REVERT_COMMENT_ENABLE"" style="""" type=""checkbox"" "&IIf(CBool(strZC_GUEST_REVERT_COMMENT_ENABLE),"checked","")&" value=""" & strZC_GUEST_REVERT_COMMENT_ENABLE & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  219. End If
  221. Dim strZC_COMMENT_TURNOFF
  222. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_COMMENT_TURNOFF",strZC_COMMENT_TURNOFF) Then
  223. strZC_COMMENT_TURNOFF=TransferHTML(strZC_COMMENT_TURNOFF,"[html-format]")
  224. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG262) & "</td><td style=""width:68%""><p><input id=""edtZC_COMMENT_TURNOFF"" name=""edtZC_COMMENT_TURNOFF"" style="""" type=""checkbox"" "&IIf(CBool(strZC_COMMENT_TURNOFF),"checked","")&" value=""" & strZC_COMMENT_TURNOFF & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  225. End If
  227. Dim strZC_TRACKBACK_TURNOFF
  228. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_TRACKBACK_TURNOFF",strZC_TRACKBACK_TURNOFF) Then
  229. strZC_TRACKBACK_TURNOFF=TransferHTML(strZC_TRACKBACK_TURNOFF,"[html-format]")
  230. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG263) & "</td><td style=""width:68%""><p><input id=""edtZC_TRACKBACK_TURNOFF"" name=""edtZC_TRACKBACK_TURNOFF"" style="""" type=""checkbox"" "&IIf(CBool(strZC_TRACKBACK_TURNOFF),"checked","")&" value=""" & strZC_TRACKBACK_TURNOFF & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  231. End If
  234. Dim strZC_GUESTBOOK_CONTENT
  235. If LoadValueForSetting(tmpSng,True,"String","ZC_GUESTBOOK_CONTENT",strZC_GUESTBOOK_CONTENT) Then
  236. strZC_GUESTBOOK_CONTENT=TransferHTML(strZC_GUESTBOOK_CONTENT,"[html-format]")
  237. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG276) & "</td><td style=""width:68%""><p><textarea rows=""6"" id=""edtZC_GUESTBOOK_CONTENT"" name=""edtZC_GUESTBOOK_CONTENT"" style=""width:95%"" type=""text"" >" & strZC_GUESTBOOK_CONTENT & "</textarea></p></td></tr>"
  238. End If
  240. Response.Write "</table>"
  241. Response.Write "</div>"
  242. Response.Write "<div class=""tabs-div"" style='border:none;padding:0px;margin:0;' id=""fragment-3"">"
  243. Response.Write "<table width='100%' style='padding:0px;margin:1px;' cellspacing='0' cellpadding='0'>"
  245. Dim strZC_MSG_COUNT
  246. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_MSG_COUNT",strZC_MSG_COUNT) Then
  247. strZC_MSG_COUNT=TransferHTML(strZC_MSG_COUNT,"[html-format]")
  248. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG187) & "</td><td style=""width:68%""><p><input id=""edtZC_MSG_COUNT"" name=""edtZC_MSG_COUNT"" style=""width:95%"" type=""text"" value=""" & strZC_MSG_COUNT & """ /></p></td></tr>"
  249. End If
  251. Dim strZC_ARCHIVE_COUNT
  252. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_ARCHIVE_COUNT",strZC_ARCHIVE_COUNT) Then
  253. strZC_ARCHIVE_COUNT=TransferHTML(strZC_ARCHIVE_COUNT,"[html-format]")
  254. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG188) & "</td><td style=""width:68%""><p><input id=""edtZC_ARCHIVE_COUNT"" name=""edtZC_ARCHIVE_COUNT"" style=""width:95%"" type=""text"" value=""" & strZC_ARCHIVE_COUNT & """ /></p></td></tr>"
  255. End If
  257. Dim strZC_PREVIOUS_COUNT
  258. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_PREVIOUS_COUNT",strZC_PREVIOUS_COUNT) Then
  259. strZC_PREVIOUS_COUNT=TransferHTML(strZC_PREVIOUS_COUNT,"[html-format]")
  260. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG189) & "</td><td style=""width:68%""><p><input id=""edtZC_PREVIOUS_COUNT"" name=""edtZC_PREVIOUS_COUNT"" style=""width:95%"" type=""text"" value=""" & strZC_PREVIOUS_COUNT & """ /></p></td></tr>"
  261. End If
  263. Dim strZC_DISPLAY_COUNT
  264. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_DISPLAY_COUNT",strZC_DISPLAY_COUNT) Then
  265. strZC_DISPLAY_COUNT=TransferHTML(strZC_DISPLAY_COUNT,"[html-format]")
  266. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG190) & "</td><td style=""width:68%""><p><input id=""edtZC_DISPLAY_COUNT"" name=""edtZC_DISPLAY_COUNT"" style=""width:95%"" type=""text"" value=""" & strZC_DISPLAY_COUNT & """ /></p></td></tr>"
  267. End If
  269. Dim strZC_MANAGE_COUNT
  270. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_MANAGE_COUNT",strZC_MANAGE_COUNT) Then
  271. strZC_MANAGE_COUNT=TransferHTML(strZC_MANAGE_COUNT,"[html-format]")
  272. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG191) & "</td><td style=""width:68%""><p><input id=""edtZC_MANAGE_COUNT"" name=""edtZC_MANAGE_COUNT"" style=""width:95%"" type=""text"" value=""" & strZC_MANAGE_COUNT & """ /></p></td></tr>"
  273. End If
  275. Dim strZC_RSS2_COUNT
  276. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_RSS2_COUNT",strZC_RSS2_COUNT) Then
  277. strZC_RSS2_COUNT=TransferHTML(strZC_RSS2_COUNT,"[html-format]")
  278. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG192) & "</td><td style=""width:68%""><p><input id=""edtZC_RSS2_COUNT"" name=""edtZC_RSS2_COUNT"" style=""width:95%"" type=""text"" value=""" & strZC_RSS2_COUNT & """ /></p></td></tr>"
  279. End If
  281. Dim strZC_SEARCH_COUNT
  282. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_SEARCH_COUNT",strZC_SEARCH_COUNT) Then
  283. strZC_SEARCH_COUNT=TransferHTML(strZC_SEARCH_COUNT,"[html-format]")
  284. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG193) & "</td><td style=""width:68%""><p><input id=""edtZC_SEARCH_COUNT"" name=""edtZC_SEARCH_COUNT"" style=""width:95%"" type=""text"" value=""" & strZC_SEARCH_COUNT & """ /></p></td></tr>"
  285. End If
  287. Dim strZC_PAGEBAR_COUNT
  288. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_PAGEBAR_COUNT",strZC_PAGEBAR_COUNT) Then
  289. strZC_PAGEBAR_COUNT=TransferHTML(strZC_PAGEBAR_COUNT,"[html-format]")
  290. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG194) & "</td><td style=""width:68%""><p><input id=""edtZC_PAGEBAR_COUNT"" name=""edtZC_PAGEBAR_COUNT"" style=""width:95%"" type=""text"" value=""" & strZC_PAGEBAR_COUNT & """ /></p></td></tr>"
  291. End If
  293. Dim strZC_USE_NAVIGATE_ARTICLE
  294. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_USE_NAVIGATE_ARTICLE",strZC_USE_NAVIGATE_ARTICLE) Then
  295. strZC_USE_NAVIGATE_ARTICLE=TransferHTML(strZC_USE_NAVIGATE_ARTICLE,"[html-format]")
  296. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG209) & "</td><td style=""width:68%""><p><input id=""edtZC_USE_NAVIGATE_ARTICLE"" name=""edtZC_USE_NAVIGATE_ARTICLE"" style="""" type=""checkbox"" "&IIf(CBool(strZC_USE_NAVIGATE_ARTICLE),"checked","")&" value=""" & strZC_USE_NAVIGATE_ARTICLE & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  297. End If
  299. Dim strZC_MUTUALITY_COUNT
  300. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_MUTUALITY_COUNT",strZC_MUTUALITY_COUNT) Then
  301. strZC_MUTUALITY_COUNT=TransferHTML(strZC_MUTUALITY_COUNT,"[html-format]")
  302. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG230) & "</td><td style=""width:68%""><p><input id=""edtZC_MUTUALITY_COUNT"" name=""edtZC_MUTUALITY_COUNT"" style=""width:95%"" type=""text"" value=""" & strZC_MUTUALITY_COUNT & """ /></p></td></tr>"
  303. End If
  305. Dim strZC_COMMENT_REVERSE_ORDER_EXPORT
  306. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_COMMENT_REVERSE_ORDER_EXPORT",strZC_COMMENT_REVERSE_ORDER_EXPORT) Then
  307. strZC_COMMENT_REVERSE_ORDER_EXPORT=TransferHTML(strZC_COMMENT_REVERSE_ORDER_EXPORT,"[html-format]")
  308. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG271) & "</td><td style=""width:68%""><p><input id=""edtZC_COMMENT_REVERSE_ORDER_EXPORT"" name=""edtZC_COMMENT_REVERSE_ORDER_EXPORT"" style="""" type=""checkbox"" "&IIf(CBool(strZC_COMMENT_REVERSE_ORDER_EXPORT),"checked","")&" value=""" & strZC_COMMENT_REVERSE_ORDER_EXPORT & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  309. End If
  311. Dim strZC_COMMENT_VERIFY_ENABLE
  312. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_COMMENT_VERIFY_ENABLE",strZC_COMMENT_VERIFY_ENABLE) Then
  313. strZC_COMMENT_VERIFY_ENABLE=TransferHTML(strZC_COMMENT_VERIFY_ENABLE,"[html-format]")
  314. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG185) & "</td><td style=""width:68%""><p><input id=""edtZC_COMMENT_VERIFY_ENABLE"" name=""edtZC_COMMENT_VERIFY_ENABLE"" style="""" type=""checkbox"" "&IIf(CBool(strZC_COMMENT_VERIFY_ENABLE),"checked","")&" value=""" & strZC_COMMENT_VERIFY_ENABLE & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  315. End If
  317. Dim strZC_VERIFYCODE_STRING
  318. If LoadValueForSetting(tmpSng,True,"String","ZC_VERIFYCODE_STRING",strZC_VERIFYCODE_STRING) Then
  319. strZC_VERIFYCODE_STRING=TransferHTML(strZC_VERIFYCODE_STRING,"[html-format]")
  320. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG300) & "</td><td style=""width:68%""><p><input id=""edtZC_VERIFYCODE_STRING"" name=""edtZC_VERIFYCODE_STRING"" style=""width:95%"" type=""text"" value=""" & strZC_VERIFYCODE_STRING & """ /></p></td></tr>"
  321. End If
  323. Dim strZC_VERIFYCODE_WIDTH
  324. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_VERIFYCODE_WIDTH",strZC_VERIFYCODE_WIDTH) Then
  325. strZC_VERIFYCODE_WIDTH=TransferHTML(strZC_VERIFYCODE_WIDTH,"[html-format]")
  326. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG301) & "</td><td style=""width:68%""><p><input id=""edtZC_VERIFYCODE_WIDTH"" name=""edtZC_VERIFYCODE_WIDTH"" style=""width:95%"" type=""text"" value=""" & strZC_VERIFYCODE_WIDTH & """/></p></td></tr>"
  327. End If
  329. Dim strZC_VERIFYCODE_HEIGHT
  330. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_VERIFYCODE_HEIGHT",strZC_VERIFYCODE_HEIGHT) Then
  331. strZC_VERIFYCODE_HEIGHT=TransferHTML(strZC_VERIFYCODE_HEIGHT,"[html-format]")
  332. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG302) & "</td><td style=""width:68%""><p><input id=""edtZC_VERIFYCODE_HEIGHT"" name=""edtZC_VERIFYCODE_HEIGHT"" style=""width:95%"" type=""text"" value=""" & strZC_VERIFYCODE_HEIGHT & """/></p></td></tr>"
  333. End If
  335. Dim strZC_IMAGE_WIDTH
  336. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_IMAGE_WIDTH",strZC_IMAGE_WIDTH) Then
  337. strZC_IMAGE_WIDTH=TransferHTML(strZC_IMAGE_WIDTH,"[html-format]")
  338. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG171) & "</td><td style=""width:68%""><p><input id=""edtZC_IMAGE_WIDTH"" name=""edtZC_IMAGE_WIDTH"" style=""width:95%"" type=""text"" value=""" & strZC_IMAGE_WIDTH & """/></p></td></tr>"
  339. End If
  341. Dim strZC_RECENT_COMMENT_WORD_MAX
  342. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_RECENT_COMMENT_WORD_MAX",strZC_RECENT_COMMENT_WORD_MAX) Then
  343. strZC_RECENT_COMMENT_WORD_MAX=TransferHTML(strZC_RECENT_COMMENT_WORD_MAX,"[html-format]")
  344. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG206) & "</td><td style=""width:68%""><p><input id=""edtZC_RECENT_COMMENT_WORD_MAX"" name=""edtZC_RECENT_COMMENT_WORD_MAX"" style=""width:95%"" type=""text"" value=""" & strZC_RECENT_COMMENT_WORD_MAX & """/></p></td></tr>"
  345. End If
  347. Dim strZC_TAGS_DISPLAY_COUNT
  348. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_TAGS_DISPLAY_COUNT",strZC_TAGS_DISPLAY_COUNT) Then
  349. strZC_TAGS_DISPLAY_COUNT=TransferHTML(strZC_TAGS_DISPLAY_COUNT,"[html-format]")
  350. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(GetSettingFormNameWithDefault("ZC_MSG319","Tags Count in SliderBar")) & "</td><td style=""width:68%""><p><input id=""edtZC_TAGS_DISPLAY_COUNT"" name=""edtZC_TAGS_DISPLAY_COUNT"" style=""width:95%"" type=""text"" value=""" & strZC_TAGS_DISPLAY_COUNT & """/></p></td></tr>"
  351. End If
  353. Response.Write "</table>"
  354. Response.Write "</div>"
  355. Response.Write "<div class=""tabs-div"" style='border:none;padding:0px;margin:0;' id=""fragment-4"">"
  356. Response.Write "<table width='100%' style='padding:0px;margin:1px;' cellspacing='0' cellpadding='0'>"
  358. Dim strZC_STATIC_TYPE
  359. If LoadValueForSetting(tmpSng,True,"String","ZC_STATIC_TYPE",strZC_STATIC_TYPE) Then
  360. strZC_STATIC_TYPE=TransferHTML(strZC_STATIC_TYPE,"[html-format]")
  361. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG177) & "</td><td style=""width:68%""><p><input id=""edtZC_STATIC_TYPE"" name=""edtZC_STATIC_TYPE"" style=""width:95%"" type=""text"" value=""" & strZC_STATIC_TYPE & """ /></p></td></tr>"
  362. End If
  364. Dim strZC_STATIC_DIRECTORY
  365. If LoadValueForSetting(tmpSng,True,"String","ZC_STATIC_DIRECTORY",strZC_STATIC_DIRECTORY) Then
  366. strZC_STATIC_DIRECTORY=TransferHTML(strZC_STATIC_DIRECTORY,"[html-format]")
  367. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG178) & "</td><td style=""width:68%""><p><input id=""edtZC_STATIC_DIRECTORY"" name=""edtZC_STATIC_DIRECTORY"" style=""width:95%"" type=""text"" value=""" & strZC_STATIC_DIRECTORY & """ /></p></td></tr>"
  368. End If
  370. Dim strZC_CUSTOM_DIRECTORY_ENABLE
  371. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_CUSTOM_DIRECTORY_ENABLE",strZC_CUSTOM_DIRECTORY_ENABLE) Then
  372. strZC_CUSTOM_DIRECTORY_ENABLE=TransferHTML(strZC_CUSTOM_DIRECTORY_ENABLE,"[html-format]")
  373. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG278) & "<p><a href='http://wiki.rainbowsoft.org/doku.php?id=wiki:config:url' target='_blank'><font color='green'>Z-Wiki:配置Z-Blog的静态URL</font></a></p></td><td style=""width:68%""><p><input id=""edtZC_CUSTOM_DIRECTORY_ENABLE"" name=""edtZC_CUSTOM_DIRECTORY_ENABLE"" style="""" type=""checkbox"" "&IIf(CBool(strZC_CUSTOM_DIRECTORY_ENABLE),"checked","")&" value=""" & strZC_CUSTOM_DIRECTORY_ENABLE & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  374. End If
  376. Dim strZC_CUSTOM_DIRECTORY_REGEX
  377. If LoadValueForSetting(tmpSng,True,"String","ZC_CUSTOM_DIRECTORY_REGEX",strZC_CUSTOM_DIRECTORY_REGEX) Then
  378. strZC_CUSTOM_DIRECTORY_REGEX=TransferHTML(strZC_CUSTOM_DIRECTORY_REGEX,"[html-format]")
  379. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG279) & "</td><td style=""width:68%""><p><input id=""edtZC_CUSTOM_DIRECTORY_REGEX"" name=""edtZC_CUSTOM_DIRECTORY_REGEX"" style=""width:95%"" type=""text"" value=""" & strZC_CUSTOM_DIRECTORY_REGEX & """ /></p></td></tr>"
  380. End If
  382. Dim strZC_CUSTOM_DIRECTORY_ANONYMOUS
  383. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_CUSTOM_DIRECTORY_ANONYMOUS",strZC_CUSTOM_DIRECTORY_ANONYMOUS) Then
  384. strZC_CUSTOM_DIRECTORY_ANONYMOUS=TransferHTML(strZC_CUSTOM_DIRECTORY_ANONYMOUS,"[html-format]")
  385. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG280) & "</td><td style=""width:68%""><p><input id=""edtZC_CUSTOM_DIRECTORY_ANONYMOUS"" name=""edtZC_CUSTOM_DIRECTORY_ANONYMOUS"" style="""" type=""checkbox"" "&IIf(CBool(strZC_CUSTOM_DIRECTORY_ANONYMOUS),"checked","")&" value=""" & strZC_CUSTOM_DIRECTORY_ANONYMOUS & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  386. End If
  388. Dim strZC_MOONSOFT_PLUGIN_ENABLE
  389. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_MOONSOFT_PLUGIN_ENABLE",strZC_MOONSOFT_PLUGIN_ENABLE) Then
  390. strZC_MOONSOFT_PLUGIN_ENABLE=TransferHTML(strZC_MOONSOFT_PLUGIN_ENABLE,"[html-format]")
  391. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG270) & "</td><td style=""width:68%""><p><input id=""edtZC_MOONSOFT_PLUGIN_ENABLE"" name=""edtZC_MOONSOFT_PLUGIN_ENABLE"" style="""" type=""checkbox"" "&IIf(CBool(strZC_MOONSOFT_PLUGIN_ENABLE),"checked","")&" value=""" & strZC_MOONSOFT_PLUGIN_ENABLE & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  392. End If
  394. Dim strZC_MOONSOFT_PLUGIN_REGEX
  395. If LoadValueForSetting(tmpSng,True,"String","ZC_MOONSOFT_PLUGIN_REGEX",strZC_MOONSOFT_PLUGIN_REGEX) Then
  396. strZC_MOONSOFT_PLUGIN_REGEX=TransferHTML(strZC_MOONSOFT_PLUGIN_REGEX,"[html-format]")
  397. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG317) & "</td><td style=""width:68%""><p><input id=""edtZC_MOONSOFT_PLUGIN_REGEX"" name=""edtZC_MOONSOFT_PLUGIN_REGEX"" style=""width:95%"" type=""text"" value=""" & strZC_MOONSOFT_PLUGIN_REGEX & """ /></p></td></tr>"
  398. End If
  400. Dim strZC_MOONSOFT_PLUGIN_ANONYMOUS
  401. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_MOONSOFT_PLUGIN_ANONYMOUS",strZC_MOONSOFT_PLUGIN_ANONYMOUS) Then
  402. strZC_MOONSOFT_PLUGIN_ANONYMOUS=TransferHTML(strZC_MOONSOFT_PLUGIN_ANONYMOUS,"[html-format]")
  403. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG318) & "</td><td style=""width:68%""><p><input id=""edtZC_MOONSOFT_PLUGIN_ANONYMOUS"" name=""edtZC_MOONSOFT_PLUGIN_ANONYMOUS"" style="""" type=""checkbox"" "&IIf(CBool(strZC_MOONSOFT_PLUGIN_ANONYMOUS),"checked","")&" value=""" & strZC_MOONSOFT_PLUGIN_ANONYMOUS & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  404. End If
  407. Dim strZC_REBUILD_FILE_COUNT
  408. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_REBUILD_FILE_COUNT",strZC_REBUILD_FILE_COUNT) Then
  409. strZC_REBUILD_FILE_COUNT=TransferHTML(strZC_REBUILD_FILE_COUNT,"[html-format]")
  410. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG181) & "</td><td style=""width:68%""><p><input id=""edtZC_REBUILD_FILE_COUNT"" name=""edtZC_REBUILD_FILE_COUNT"" style=""width:95%"" type=""text"" value=""" & strZC_REBUILD_FILE_COUNT & """ /></p></td></tr>"
  411. End If
  413. Dim strZC_REBUILD_FILE_INTERVAL
  414. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_REBUILD_FILE_INTERVAL",strZC_REBUILD_FILE_INTERVAL) Then
  415. strZC_REBUILD_FILE_INTERVAL=TransferHTML(strZC_REBUILD_FILE_INTERVAL,"[html-format]")
  416. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG182) & "</td><td style=""width:68%""><p><input id=""edtZC_REBUILD_FILE_INTERVAL"" name=""edtZC_REBUILD_FILE_INTERVAL"" style=""width:95%"" type=""text"" value=""" & strZC_REBUILD_FILE_INTERVAL & """ /></p></td></tr>"
  417. End If
  420. Response.Write "</table>"
  421. Response.Write "</div>"
  422. Response.Write "<div class=""tabs-div"" style='border:none;padding:0px;margin:0;' id=""fragment-5"">"
  423. Response.Write "<table width='100%' style='padding:0px;margin:1px;' cellspacing='0' cellpadding='0'>"
  425. Dim strZC_UBB_LINK_ENABLE
  426. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UBB_LINK_ENABLE",strZC_UBB_LINK_ENABLE) Then
  427. strZC_UBB_LINK_ENABLE=TransferHTML(strZC_UBB_LINK_ENABLE,"[html-format]")
  428. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG196) & "</td><td style=""width:68%""><p><input id=""edtZC_UBB_LINK_ENABLE"" name=""edtZC_UBB_LINK_ENABLE"" style="""" type=""checkbox"" "&IIf(CBool(strZC_UBB_LINK_ENABLE),"checked","")&" value=""" & strZC_UBB_LINK_ENABLE & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  429. End If
  431. Dim strZC_UBB_FONT_ENABLE
  432. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UBB_FONT_ENABLE",strZC_UBB_FONT_ENABLE) Then
  433. strZC_UBB_FONT_ENABLE=TransferHTML(strZC_UBB_FONT_ENABLE,"[html-format]")
  434. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG197) & "</td><td style=""width:68%""><p><input id=""edtZC_UBB_FONT_ENABLE"" name=""edtZC_UBB_FONT_ENABLE"" style="""" type=""checkbox"" "&IIf(CBool(strZC_UBB_FONT_ENABLE),"checked","")&" value=""" & strZC_UBB_FONT_ENABLE & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  435. End If
  437. Dim strZC_UBB_CODE_ENABLE
  438. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UBB_CODE_ENABLE",strZC_UBB_CODE_ENABLE) Then
  439. strZC_UBB_CODE_ENABLE=TransferHTML(strZC_UBB_CODE_ENABLE,"[html-format]")
  440. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG198) & "</td><td style=""width:68%""><p><input id=""edtZC_UBB_CODE_ENABLE"" name=""edtZC_UBB_CODE_ENABLE"" style="""" type=""checkbox"" "&IIf(CBool(strZC_UBB_CODE_ENABLE),"checked","")&" value=""" & strZC_UBB_CODE_ENABLE & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  441. End If
  443. Dim strZC_UBB_FACE_ENABLE
  444. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UBB_FACE_ENABLE",strZC_UBB_FACE_ENABLE) Then
  445. strZC_UBB_FACE_ENABLE=TransferHTML(strZC_UBB_FACE_ENABLE,"[html-format]")
  446. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG199) & "</td><td style=""width:68%""><p><input id=""edtZC_UBB_FACE_ENABLE"" name=""edtZC_UBB_FACE_ENABLE"" style="""" type=""checkbox"" "&IIf(CBool(strZC_UBB_FACE_ENABLE),"checked","")&" value=""" & strZC_UBB_FACE_ENABLE & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  447. End If
  449. Dim strZC_UBB_IMAGE_ENABLE
  450. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UBB_IMAGE_ENABLE",strZC_UBB_IMAGE_ENABLE) Then
  451. strZC_UBB_IMAGE_ENABLE=TransferHTML(strZC_UBB_IMAGE_ENABLE,"[html-format]")
  452. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG200) & "</td><td style=""width:68%""><p><input id=""edtZC_UBB_IMAGE_ENABLE"" name=""edtZC_UBB_IMAGE_ENABLE"" style="""" type=""checkbox"" "&IIf(CBool(strZC_UBB_IMAGE_ENABLE),"checked","")&" value=""" & strZC_UBB_IMAGE_ENABLE & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  453. End If
  455. Dim strZC_UBB_MEDIA_ENABLE
  456. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UBB_MEDIA_ENABLE",strZC_UBB_MEDIA_ENABLE) Then
  457. strZC_UBB_MEDIA_ENABLE=TransferHTML(strZC_UBB_MEDIA_ENABLE,"[html-format]")
  458. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG201) & "</td><td style=""width:68%""><p><input id=""edtZC_UBB_MEDIA_ENABLE"" name=""edtZC_UBB_MEDIA_ENABLE"" style="""" type=""checkbox"" "&IIf(CBool(strZC_UBB_MEDIA_ENABLE),"checked","")&" value=""" & strZC_UBB_MEDIA_ENABLE & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  459. End If
  461. Dim strZC_UBB_FLASH_ENABLE
  462. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UBB_FLASH_ENABLE",strZC_UBB_FLASH_ENABLE) Then
  463. strZC_UBB_FLASH_ENABLE=TransferHTML(strZC_UBB_FLASH_ENABLE,"[html-format]")
  464. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG202) & "</td><td style=""width:68%""><p><input id=""edtZC_UBB_FLASH_ENABLE"" name=""edtZC_UBB_FLASH_ENABLE"" style="""" type=""checkbox"" "&IIf(CBool(strZC_UBB_FLASH_ENABLE),"checked","")&" value=""" & strZC_UBB_FLASH_ENABLE & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  465. End If
  467. Dim strZC_UBB_TYPESET_ENABLE
  468. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UBB_TYPESET_ENABLE",strZC_UBB_TYPESET_ENABLE) Then
  469. strZC_UBB_TYPESET_ENABLE=TransferHTML(strZC_UBB_TYPESET_ENABLE,"[html-format]")
  470. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG203) & "</td><td style=""width:68%""><p><input id=""edtZC_UBB_TYPESET_ENABLE"" name=""edtZC_UBB_TYPESET_ENABLE"" style="""" type=""checkbox"" "&IIf(CBool(strZC_UBB_TYPESET_ENABLE),"checked","")&" value=""" & strZC_UBB_TYPESET_ENABLE & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  471. End If
  473. Dim strZC_UBB_AUTOLINK_ENABLE
  474. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UBB_AUTOLINK_ENABLE",strZC_UBB_AUTOLINK_ENABLE) Then
  475. strZC_UBB_AUTOLINK_ENABLE=TransferHTML(strZC_UBB_AUTOLINK_ENABLE,"[html-format]")
  476. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG204) & "</td><td style=""width:68%""><p><input id=""edtZC_UBB_AUTOLINK_ENABLE"" name=""edtZC_UBB_AUTOLINK_ENABLE"" style="""" type=""checkbox"" "&IIf(CBool(strZC_UBB_AUTOLINK_ENABLE),"checked","")&" value=""" & strZC_UBB_AUTOLINK_ENABLE & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  477. End If
  479. 'Dim strZC_UBB_AUTOKEY_ENABLE
  480. 'If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UBB_AUTOKEY_ENABLE",strZC_UBB_AUTOKEY_ENABLE) Then
  481. ' strZC_UBB_AUTOKEY_ENABLE=TransferHTML(strZC_UBB_AUTOKEY_ENABLE,"[html-format]")
  482. ' Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG205) & "</td><td style=""width:68%""><p><input id=""edtZC_UBB_AUTOKEY_ENABLE"" name=""edtZC_UBB_AUTOKEY_ENABLE"" style="""" type=""checkbox"" "&IIf(CBool(strZC_UBB_AUTOKEY_ENABLE),"checked","")&" value=""" & strZC_UBB_AUTOKEY_ENABLE & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  483. 'End If
  485. Dim strZC_COMMENT_NOFOLLOW_ENABLE
  486. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_COMMENT_NOFOLLOW_ENABLE",strZC_COMMENT_NOFOLLOW_ENABLE) Then
  487. strZC_COMMENT_NOFOLLOW_ENABLE=TransferHTML(strZC_COMMENT_NOFOLLOW_ENABLE,"[html-format]")
  488. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG207) & "</td><td style=""width:68%""><p><input id=""edtZC_COMMENT_NOFOLLOW_ENABLE"" name=""edtZC_COMMENT_NOFOLLOW_ENABLE"" style="""" type=""checkbox"" "&IIf(CBool(strZC_COMMENT_NOFOLLOW_ENABLE),"checked","")&" value=""" & strZC_COMMENT_NOFOLLOW_ENABLE & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  489. End If
  491. Dim strZC_JAPAN_TO_HTML
  492. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_JAPAN_TO_HTML",strZC_JAPAN_TO_HTML) Then
  493. strZC_JAPAN_TO_HTML=TransferHTML(strZC_JAPAN_TO_HTML,"[html-format]")
  494. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG208) & "</td><td style=""width:68%""><p><input id=""edtZC_JAPAN_TO_HTML"" name=""edtZC_JAPAN_TO_HTML"" style="""" type=""checkbox"" "&IIf(CBool(strZC_JAPAN_TO_HTML),"checked","")&" value=""" & strZC_JAPAN_TO_HTML & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  495. End If
  497. Dim strZC_EMOTICONS_FILENAME
  498. If LoadValueForSetting(tmpSng,True,"String","ZC_EMOTICONS_FILENAME",strZC_EMOTICONS_FILENAME) Then
  499. strZC_EMOTICONS_FILENAME=TransferHTML(strZC_EMOTICONS_FILENAME,"[html-format]")
  500. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG235) & "</td><td style=""width:68%""><p><input id=""edtZC_EMOTICONS_FILENAME"" name=""edtZC_EMOTICONS_FILENAME"" style=""width:95%"" type=""text"" value=""" & strZC_EMOTICONS_FILENAME & """/></p></td></tr>"
  501. End If
  503. Dim strZC_EMOTICONS_FILESIZE
  504. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_EMOTICONS_FILESIZE",strZC_EMOTICONS_FILESIZE) Then
  505. strZC_EMOTICONS_FILESIZE=TransferHTML(strZC_EMOTICONS_FILESIZE,"[html-format]")
  506. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG234) & "</td><td style=""width:68%""><p><input id=""edtZC_EMOTICONS_FILESIZE"" name=""edtZC_EMOTICONS_FILESIZE"" style=""width:95%"" type=""text"" value=""" & strZC_EMOTICONS_FILESIZE & """ /></p></td></tr>"
  507. End If
  509. Response.Write "</table>"
  510. Response.Write "</div>"
  511. Response.Write "<div class=""tabs-div"" style='border:none;padding:0px;margin:0;' id=""fragment-6"">"
  512. Response.Write "<table width='100%' style='padding:0px;margin:1px;' cellspacing='0' cellpadding='0'>"
  514. 'Dim strZC_IE_DISPLAY_WAP
  515. 'If LoadValueForSetting(tmpSng,True,"Boolean","ZC_IE_DISPLAY_WAP",strZC_IE_DISPLAY_WAP) Then
  516. ' strZC_IE_DISPLAY_WAP=TransferHTML(strZC_IE_DISPLAY_WAP,"[html-format]")
  517. ' Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG216) & "</td><td style=""width:68%""><p><input id=""edtZC_IE_DISPLAY_WAP"" name=""edtZC_IE_DISPLAY_WAP"" style="""" type=""checkbox"" "&IIf(CBool(strZC_IE_DISPLAY_WAP),"checked","")&" value=""" & strZC_IE_DISPLAY_WAP & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  518. 'End If
  520. Dim strZC_DISPLAY_COUNT_WAP
  521. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_DISPLAY_COUNT_WAP",strZC_DISPLAY_COUNT_WAP) Then
  522. strZC_DISPLAY_COUNT_WAP=TransferHTML(strZC_DISPLAY_COUNT_WAP,"[html-format]")
  523. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG217) & "</td><td style=""width:68%""><p><input id=""edtZC_DISPLAY_COUNT_WAP"" name=""edtZC_DISPLAY_COUNT_WAP"" style=""width:95%"" type=""text"" value=""" & strZC_DISPLAY_COUNT_WAP & """ /></p></td></tr>"
  524. End If
  526. Dim strZC_COMMENT_COUNT_WAP
  527. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_COMMENT_COUNT_WAP",strZC_COMMENT_COUNT_WAP) Then
  528. strZC_COMMENT_COUNT_WAP=TransferHTML(strZC_COMMENT_COUNT_WAP,"[html-format]")
  529. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG218) & "</td><td style=""width:68%""><p><input id=""edtZC_COMMENT_COUNT_WAP"" name=""edtZC_COMMENT_COUNT_WAP"" style=""width:95%"" type=""text"" value=""" & strZC_COMMENT_COUNT_WAP & """ /></p></td></tr>"
  530. End If
  532. Dim strZC_PAGEBAR_COUNT_WAP
  533. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_PAGEBAR_COUNT_WAP",strZC_PAGEBAR_COUNT_WAP) Then
  534. strZC_PAGEBAR_COUNT_WAP=TransferHTML(strZC_PAGEBAR_COUNT_WAP,"[html-format]")
  535. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG219) & "</td><td style=""width:68%""><p><input id=""edtZC_PAGEBAR_COUNT_WAP"" name=""edtZC_PAGEBAR_COUNT_WAP"" style=""width:95%"" type=""text"" value=""" & strZC_PAGEBAR_COUNT_WAP & """ /></p></td></tr>"
  536. End If
  538. Dim strZC_SINGLE_SIZE_WAP
  539. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_SINGLE_SIZE_WAP",strZC_SINGLE_SIZE_WAP) Then
  540. strZC_SINGLE_SIZE_WAP=TransferHTML(strZC_SINGLE_SIZE_WAP,"[html-format]")
  541. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG220) & "</td><td style=""width:68%""><p><input id=""edtZC_SINGLE_SIZE_WAP"" name=""edtZC_SINGLE_SIZE_WAP"" style=""width:95%"" type=""text"" value=""" & strZC_SINGLE_SIZE_WAP & """ /></p></td></tr>"
  542. End If
  544. Dim strZC_SINGLE_PAGEBAR_COUNT_WAP
  545. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_SINGLE_PAGEBAR_COUNT_WAP",strZC_SINGLE_PAGEBAR_COUNT_WAP) Then
  546. strZC_SINGLE_PAGEBAR_COUNT_WAP=TransferHTML(strZC_SINGLE_PAGEBAR_COUNT_WAP,"[html-format]")
  547. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG221) & "</td><td style=""width:68%""><p><input id=""edtZC_SINGLE_PAGEBAR_COUNT_WAP"" name=""edtZC_SINGLE_PAGEBAR_COUNT_WAP"" style=""width:95%"" type=""text"" value=""" & strZC_SINGLE_PAGEBAR_COUNT_WAP & """ /></p></td></tr>"
  548. End If
  550. Dim strZC_COMMENT_PAGEBAR_COUNT_WAP
  551. If LoadValueForSetting(tmpSng,True,"Numeric","ZC_COMMENT_PAGEBAR_COUNT_WAP",strZC_COMMENT_PAGEBAR_COUNT_WAP) Then
  552. strZC_COMMENT_PAGEBAR_COUNT_WAP=TransferHTML(strZC_COMMENT_PAGEBAR_COUNT_WAP,"[html-format]")
  553. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG222) & "</td><td style=""width:68%""><p><input id=""edtZC_COMMENT_PAGEBAR_COUNT_WAP"" name=""edtZC_COMMENT_PAGEBAR_COUNT_WAP"" style=""width:95%"" type=""text"" value=""" & strZC_COMMENT_PAGEBAR_COUNT_WAP & """ /></p></td></tr>"
  554. End If
  556. Dim strZC_FILENAME_WAP
  557. If LoadValueForSetting(tmpSng,True,"String","ZC_FILENAME_WAP",strZC_FILENAME_WAP) Then
  558. strZC_FILENAME_WAP=TransferHTML(strZC_FILENAME_WAP,"[html-format]")
  559. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG223) & "</td><td style=""width:68%""><p><input id=""edtZC_FILENAME_WAP"" name=""edtZC_FILENAME_WAP"" style=""width:95%"" type=""text"" value=""" & strZC_FILENAME_WAP & """/></p></td></tr>"
  560. End If
  562. Dim strZC_WAPCOMMENT_ENABLE
  563. If LoadValueForSetting(tmpSng,True,"Boolean","ZC_WAPCOMMENT_ENABLE",strZC_WAPCOMMENT_ENABLE) Then
  564. strZC_WAPCOMMENT_ENABLE=TransferHTML(strZC_WAPCOMMENT_ENABLE,"[html-format]")
  565. Response.Write "<tr><td style='width:32%'>" & SplitNameAndNote(ZC_MSG304) & "</td><td style=""width:68%""><p><input id=""edtZC_WAPCOMMENT_ENABLE"" name=""edtZC_WAPCOMMENT_ENABLE"" style="""" type=""checkbox"" "&IIf(CBool(strZC_WAPCOMMENT_ENABLE),"checked","")&" value=""" & strZC_WAPCOMMENT_ENABLE & """ ONCLICK=""ChangeValue(this);""/></p></td></tr>"
  566. End If 
  568. Response.Write "</table>"
  569. Response.Write "</div>"
  571. Dim strZC_BLOG_VERSION
  572. If LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_VERSION",strZC_BLOG_VERSION) Then
  573. strZC_BLOG_VERSION=TransferHTML(strZC_BLOG_VERSION,"[html-format]")
  574. Response.Write "<p style='display:none;'>·"&ZC_MSG179&" :</p><p style='display:none;'><input id=""edtZC_BLOG_VERSION"" name=""edtZC_BLOG_VERSION"" style=""width:95%"" type=""text"" value=""" & strZC_BLOG_VERSION & """ readonly/></p>"
  575. End If
  577. Response.Write "<p><br/><input type=""submit"" class=""button"" value="""& ZC_MSG087 &""" id=""btnPost"" onclick='' /></p>"
  579. %>
  582. </div></form></div>
  583. <script language="javascript">
  586. $(document).ready(function(){
  587. $("#divMain2").tabs({ fxFade: true, fxSpeed: 'fast' });
  588. $("input[@type=text],textarea").width($("body").width()*0.55);
  590. //斑马线
  591. var tables=document.getElementsByTagName("table");
  592. var b=false;
  593. for (var j = 0; j < tables.length; j++){
  595. var cells = tables[j].getElementsByTagName("tr");
  597. //cells[0].className="color3";
  598. b=false;
  599. for (var i = 0; i < cells.length; i++){
  600. if(b){
  601. cells[i].className="color2";
  602. b=false;
  603. }
  604. else{
  605. cells[i].className="color3";
  606. b=true;
  607. };
  608. };
  609. }
  611. });
  615. function ChangeValue(obj){
  617. if (obj.value=="True")
  618. {
  619. obj.value="False";
  620. return true;
  621. }
  623. if (obj.value=="False")
  624. {
  625. obj.value="True";
  626. return true;
  627. }
  628. }
  629. </script>
  631. </body>
  632. </html>
  633. <% 
  634. Call System_Terminate()
  636. If Err.Number<>0 then
  637. Call ShowError(0)
  638. End If
  639. %>