<%@ CODEPAGE=65001 %> <% '/////////////////////////////////////////////////////////////////////////////// '// Z-Blog 彩虹网志个人版 '// 作 者: 朱煊(zx.asd) '// 版权所有: RainbowSoft Studio '// 技术支持: rainbowsoft@163.com '// 程序名称: '// 程序版本: '// 单元名称: edit_setting.asp '// 开始时间: 2005.03.16 '// 最后修改: '// 备 注: 编辑设置页 '/////////////////////////////////////////////////////////////////////////////// %> <% Option Explicit %> <% On Error Resume Next %> <% Response.Charset="UTF-8" %> <% Response.Buffer=True %> <% Call System_Initialize() 'plugin node For Each sAction_Plugin_Edit_Setting_Begin in Action_Plugin_Edit_Setting_Begin If Not IsEmpty(sAction_Plugin_Edit_Setting_Begin) Then Call Execute(sAction_Plugin_Edit_Setting_Begin) Next '检查非法链接 Call CheckReference("") '检查权限 If Not CheckRights("SettingMng") Then Call ShowError(6) Dim EditArticle BlogTitle=ZC_BLOG_TITLE & ZC_MSG044 & ZC_MSG247 %> <%=BlogTitle%>
<%=ZC_MSG247%>
<% Response.Write "
" & Response_Plugin_SettingMng_SubMenu & "
" %>
<% Call GetBlogHint() %> <% Function SplitNameAndNote(s) Dim i,j i=InStr(s,"(") j=InStr(s,")") If i>0 And j>0 Then SplitNameAndNote="

·" & Left(s,i-1) & "" SplitNameAndNote=SplitNameAndNote & "

" & Mid(s,i+1,Len(s)-i+1-2) & "

" Else SplitNameAndNote="

·" & s & "

" End If End Function Dim i,j Dim tmpSng tmpSng=LoadFromFile(BlogPath & "/c_custom.asp","utf-8") Dim strZC_BLOG_HOST Dim strZC_BLOG_TITLE Dim strZC_BLOG_SUBTITLE Dim strZC_BLOG_NAME Dim strZC_BLOG_SUB_NAME Dim strZC_BLOG_CSS Dim strZC_BLOG_COPYRIGHT Dim strZC_BLOG_MASTER Dim strZC_BLOG_THEME Call LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_HOST",strZC_BLOG_HOST) Call LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_TITLE",strZC_BLOG_TITLE) Call LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_SUBTITLE",strZC_BLOG_SUBTITLE) Call LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_NAME",strZC_BLOG_NAME) Call LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_SUB_NAME",strZC_BLOG_SUB_NAME) Call LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_CSS",strZC_BLOG_CSS) Call LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_COPYRIGHT",strZC_BLOG_COPYRIGHT) Call LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_MASTER",strZC_BLOG_MASTER) Call LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_THEME",strZC_BLOG_THEME) strZC_BLOG_HOST=TransferHTML(strZC_BLOG_HOST,"[html-format]") strZC_BLOG_TITLE=TransferHTML(strZC_BLOG_TITLE,"[html-format]") strZC_BLOG_SUBTITLE=TransferHTML(strZC_BLOG_SUBTITLE,"[html-format]") strZC_BLOG_NAME=TransferHTML(strZC_BLOG_NAME,"[html-format]") strZC_BLOG_SUB_NAME=TransferHTML(strZC_BLOG_SUB_NAME,"[html-format]") strZC_BLOG_CSS=TransferHTML(strZC_BLOG_CSS,"[html-format]") strZC_BLOG_COPYRIGHT=TransferHTML(strZC_BLOG_COPYRIGHT,"[html-format]") strZC_BLOG_MASTER=TransferHTML(strZC_BLOG_MASTER,"[html-format]") strZC_BLOG_THEME=TransferHTML(strZC_BLOG_THEME,"[html-format]") Response.Write "
" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" & SplitNameAndNote(ZC_MSG104) & "

" & SplitNameAndNote(ZC_MSG091) & "

" & SplitNameAndNote(ZC_MSG092) & "

" & SplitNameAndNote(ZC_MSG093) & "

" & SplitNameAndNote(ZC_MSG094) & "

" & SplitNameAndNote(ZC_MSG293) & "

" & SplitNameAndNote(ZC_MSG095) & "

" & SplitNameAndNote(ZC_MSG096) & "

" & SplitNameAndNote(ZC_MSG097) & "

" Response.Write "
" Response.Write "
" Response.Write "" tmpSng=LoadFromFile(BlogPath & "/c_option.asp","utf-8") Dim strZC_BLOG_CLSID If LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_CLSID",strZC_BLOG_CLSID) Then strZC_BLOG_CLSID=TransferHTML(strZC_BLOG_CLSID,"[html-format]") Response.Write "" End If Dim strZC_TIME_ZONE If LoadValueForSetting(tmpSng,True,"String","ZC_TIME_ZONE",strZC_TIME_ZONE) Then strZC_TIME_ZONE=TransferHTML(strZC_TIME_ZONE,"[html-format]") Response.Write "" End If Dim strZC_HOST_TIME_ZONE If LoadValueForSetting(tmpSng,True,"String","ZC_HOST_TIME_ZONE",strZC_HOST_TIME_ZONE) Then strZC_HOST_TIME_ZONE=TransferHTML(strZC_HOST_TIME_ZONE,"[html-format]") Response.Write "" End If Dim strZC_BLOG_LANGUAGE If LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_LANGUAGE",strZC_BLOG_LANGUAGE) Then strZC_BLOG_LANGUAGE=TransferHTML(strZC_BLOG_LANGUAGE,"[html-format]") Response.Write "" End If Dim strZC_UPDATE_INFO_URL If LoadValueForSetting(tmpSng,True,"String","ZC_UPDATE_INFO_URL",strZC_UPDATE_INFO_URL) Then strZC_UPDATE_INFO_URL=TransferHTML(strZC_UPDATE_INFO_URL,"[html-format]") Response.Write "" End If Dim strZC_BLOG_WEBEDIT If LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_WEBEDIT",strZC_BLOG_WEBEDIT) Then strZC_BLOG_WEBEDIT=TransferHTML(strZC_BLOG_WEBEDIT,"[html-format]") Response.Write "" End If Dim strZC_UPLOAD_FILETYPE If LoadValueForSetting(tmpSng,True,"String","ZC_UPLOAD_FILETYPE",strZC_UPLOAD_FILETYPE) Then strZC_UPLOAD_FILETYPE=TransferHTML(strZC_UPLOAD_FILETYPE,"[html-format]") Response.Write "" End If Dim strZC_UPLOAD_FILESIZE If LoadValueForSetting(tmpSng,True,"Numeric","ZC_UPLOAD_FILESIZE",strZC_UPLOAD_FILESIZE) Then strZC_UPLOAD_FILESIZE=TransferHTML(strZC_UPLOAD_FILESIZE,"[html-format]") Response.Write "" End If Dim strZC_UPLOAD_DIRBYMONTH If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UPLOAD_DIRBYMONTH",strZC_UPLOAD_DIRBYMONTH) Then strZC_UPLOAD_DIRBYMONTH=TransferHTML(strZC_UPLOAD_DIRBYMONTH,"[html-format]") Response.Write "" End If Dim strZC_RSS_EXPORT_WHOLE If LoadValueForSetting(tmpSng,True,"Boolean","ZC_RSS_EXPORT_WHOLE",strZC_RSS_EXPORT_WHOLE) Then strZC_RSS_EXPORT_WHOLE=TransferHTML(strZC_RSS_EXPORT_WHOLE,"[html-format]") Response.Write "" End If Dim strZC_GUEST_REVERT_COMMENT_ENABLE If LoadValueForSetting(tmpSng,True,"Boolean","ZC_GUEST_REVERT_COMMENT_ENABLE",strZC_GUEST_REVERT_COMMENT_ENABLE) Then strZC_GUEST_REVERT_COMMENT_ENABLE=TransferHTML(strZC_GUEST_REVERT_COMMENT_ENABLE,"[html-format]") Response.Write "" End If Dim strZC_COMMENT_TURNOFF If LoadValueForSetting(tmpSng,True,"Boolean","ZC_COMMENT_TURNOFF",strZC_COMMENT_TURNOFF) Then strZC_COMMENT_TURNOFF=TransferHTML(strZC_COMMENT_TURNOFF,"[html-format]") Response.Write "" End If Dim strZC_TRACKBACK_TURNOFF If LoadValueForSetting(tmpSng,True,"Boolean","ZC_TRACKBACK_TURNOFF",strZC_TRACKBACK_TURNOFF) Then strZC_TRACKBACK_TURNOFF=TransferHTML(strZC_TRACKBACK_TURNOFF,"[html-format]") Response.Write "" End If Dim strZC_GUESTBOOK_CONTENT If LoadValueForSetting(tmpSng,True,"String","ZC_GUESTBOOK_CONTENT",strZC_GUESTBOOK_CONTENT) Then strZC_GUESTBOOK_CONTENT=TransferHTML(strZC_GUESTBOOK_CONTENT,"[html-format]") Response.Write "" End If Response.Write "
" & SplitNameAndNote(ZC_MSG174) & "

" & SplitNameAndNote(ZC_MSG175) & "

" & SplitNameAndNote(ZC_MSG303) & "

" & SplitNameAndNote(ZC_MSG176) & "

" & SplitNameAndNote(ZC_MSG290) & "

" & SplitNameAndNote(ZC_MSG180) & "

" & SplitNameAndNote(ZC_MSG183) & "

" & SplitNameAndNote(ZC_MSG184) & "

" & SplitNameAndNote(ZC_MSG292) & "

" & SplitNameAndNote(ZC_MSG226) & "

" & SplitNameAndNote(ZC_MSG283) & "

" & SplitNameAndNote(ZC_MSG262) & "

" & SplitNameAndNote(ZC_MSG263) & "

" & SplitNameAndNote(ZC_MSG276) & "

" Response.Write "
" Response.Write "
" Response.Write "" Dim strZC_MSG_COUNT If LoadValueForSetting(tmpSng,True,"Numeric","ZC_MSG_COUNT",strZC_MSG_COUNT) Then strZC_MSG_COUNT=TransferHTML(strZC_MSG_COUNT,"[html-format]") Response.Write "" End If Dim strZC_ARCHIVE_COUNT If LoadValueForSetting(tmpSng,True,"Numeric","ZC_ARCHIVE_COUNT",strZC_ARCHIVE_COUNT) Then strZC_ARCHIVE_COUNT=TransferHTML(strZC_ARCHIVE_COUNT,"[html-format]") Response.Write "" End If Dim strZC_PREVIOUS_COUNT If LoadValueForSetting(tmpSng,True,"Numeric","ZC_PREVIOUS_COUNT",strZC_PREVIOUS_COUNT) Then strZC_PREVIOUS_COUNT=TransferHTML(strZC_PREVIOUS_COUNT,"[html-format]") Response.Write "" End If Dim strZC_DISPLAY_COUNT If LoadValueForSetting(tmpSng,True,"Numeric","ZC_DISPLAY_COUNT",strZC_DISPLAY_COUNT) Then strZC_DISPLAY_COUNT=TransferHTML(strZC_DISPLAY_COUNT,"[html-format]") Response.Write "" End If Dim strZC_MANAGE_COUNT If LoadValueForSetting(tmpSng,True,"Numeric","ZC_MANAGE_COUNT",strZC_MANAGE_COUNT) Then strZC_MANAGE_COUNT=TransferHTML(strZC_MANAGE_COUNT,"[html-format]") Response.Write "" End If Dim strZC_RSS2_COUNT If LoadValueForSetting(tmpSng,True,"Numeric","ZC_RSS2_COUNT",strZC_RSS2_COUNT) Then strZC_RSS2_COUNT=TransferHTML(strZC_RSS2_COUNT,"[html-format]") Response.Write "" End If Dim strZC_SEARCH_COUNT If LoadValueForSetting(tmpSng,True,"Numeric","ZC_SEARCH_COUNT",strZC_SEARCH_COUNT) Then strZC_SEARCH_COUNT=TransferHTML(strZC_SEARCH_COUNT,"[html-format]") Response.Write "" End If Dim strZC_PAGEBAR_COUNT If LoadValueForSetting(tmpSng,True,"Numeric","ZC_PAGEBAR_COUNT",strZC_PAGEBAR_COUNT) Then strZC_PAGEBAR_COUNT=TransferHTML(strZC_PAGEBAR_COUNT,"[html-format]") Response.Write "" End If Dim strZC_USE_NAVIGATE_ARTICLE If LoadValueForSetting(tmpSng,True,"Boolean","ZC_USE_NAVIGATE_ARTICLE",strZC_USE_NAVIGATE_ARTICLE) Then strZC_USE_NAVIGATE_ARTICLE=TransferHTML(strZC_USE_NAVIGATE_ARTICLE,"[html-format]") Response.Write "" End If Dim strZC_MUTUALITY_COUNT If LoadValueForSetting(tmpSng,True,"Numeric","ZC_MUTUALITY_COUNT",strZC_MUTUALITY_COUNT) Then strZC_MUTUALITY_COUNT=TransferHTML(strZC_MUTUALITY_COUNT,"[html-format]") Response.Write "" End If Dim strZC_COMMENT_REVERSE_ORDER_EXPORT If LoadValueForSetting(tmpSng,True,"Boolean","ZC_COMMENT_REVERSE_ORDER_EXPORT",strZC_COMMENT_REVERSE_ORDER_EXPORT) Then strZC_COMMENT_REVERSE_ORDER_EXPORT=TransferHTML(strZC_COMMENT_REVERSE_ORDER_EXPORT,"[html-format]") Response.Write "" End If Dim strZC_COMMENT_VERIFY_ENABLE If LoadValueForSetting(tmpSng,True,"Boolean","ZC_COMMENT_VERIFY_ENABLE",strZC_COMMENT_VERIFY_ENABLE) Then strZC_COMMENT_VERIFY_ENABLE=TransferHTML(strZC_COMMENT_VERIFY_ENABLE,"[html-format]") Response.Write "" End If Dim strZC_VERIFYCODE_STRING If LoadValueForSetting(tmpSng,True,"String","ZC_VERIFYCODE_STRING",strZC_VERIFYCODE_STRING) Then strZC_VERIFYCODE_STRING=TransferHTML(strZC_VERIFYCODE_STRING,"[html-format]") Response.Write "" End If Dim strZC_VERIFYCODE_WIDTH If LoadValueForSetting(tmpSng,True,"Numeric","ZC_VERIFYCODE_WIDTH",strZC_VERIFYCODE_WIDTH) Then strZC_VERIFYCODE_WIDTH=TransferHTML(strZC_VERIFYCODE_WIDTH,"[html-format]") Response.Write "" End If Dim strZC_VERIFYCODE_HEIGHT If LoadValueForSetting(tmpSng,True,"Numeric","ZC_VERIFYCODE_HEIGHT",strZC_VERIFYCODE_HEIGHT) Then strZC_VERIFYCODE_HEIGHT=TransferHTML(strZC_VERIFYCODE_HEIGHT,"[html-format]") Response.Write "" End If Dim strZC_IMAGE_WIDTH If LoadValueForSetting(tmpSng,True,"Numeric","ZC_IMAGE_WIDTH",strZC_IMAGE_WIDTH) Then strZC_IMAGE_WIDTH=TransferHTML(strZC_IMAGE_WIDTH,"[html-format]") Response.Write "" End If Dim strZC_RECENT_COMMENT_WORD_MAX If LoadValueForSetting(tmpSng,True,"Numeric","ZC_RECENT_COMMENT_WORD_MAX",strZC_RECENT_COMMENT_WORD_MAX) Then strZC_RECENT_COMMENT_WORD_MAX=TransferHTML(strZC_RECENT_COMMENT_WORD_MAX,"[html-format]") Response.Write "" End If Dim strZC_TAGS_DISPLAY_COUNT If LoadValueForSetting(tmpSng,True,"Numeric","ZC_TAGS_DISPLAY_COUNT",strZC_TAGS_DISPLAY_COUNT) Then strZC_TAGS_DISPLAY_COUNT=TransferHTML(strZC_TAGS_DISPLAY_COUNT,"[html-format]") Response.Write "" End If Response.Write "
" & SplitNameAndNote(ZC_MSG187) & "

" & SplitNameAndNote(ZC_MSG188) & "

" & SplitNameAndNote(ZC_MSG189) & "

" & SplitNameAndNote(ZC_MSG190) & "

" & SplitNameAndNote(ZC_MSG191) & "

" & SplitNameAndNote(ZC_MSG192) & "

" & SplitNameAndNote(ZC_MSG193) & "

" & SplitNameAndNote(ZC_MSG194) & "

" & SplitNameAndNote(ZC_MSG209) & "

" & SplitNameAndNote(ZC_MSG230) & "

" & SplitNameAndNote(ZC_MSG271) & "

" & SplitNameAndNote(ZC_MSG185) & "

" & SplitNameAndNote(ZC_MSG300) & "

" & SplitNameAndNote(ZC_MSG301) & "

" & SplitNameAndNote(ZC_MSG302) & "

" & SplitNameAndNote(ZC_MSG171) & "

" & SplitNameAndNote(ZC_MSG206) & "

" & SplitNameAndNote(GetSettingFormNameWithDefault("ZC_MSG319","Tags Count in SliderBar")) & "

" Response.Write "
" Response.Write "
" Response.Write "" Dim strZC_STATIC_TYPE If LoadValueForSetting(tmpSng,True,"String","ZC_STATIC_TYPE",strZC_STATIC_TYPE) Then strZC_STATIC_TYPE=TransferHTML(strZC_STATIC_TYPE,"[html-format]") Response.Write "" End If Dim strZC_STATIC_DIRECTORY If LoadValueForSetting(tmpSng,True,"String","ZC_STATIC_DIRECTORY",strZC_STATIC_DIRECTORY) Then strZC_STATIC_DIRECTORY=TransferHTML(strZC_STATIC_DIRECTORY,"[html-format]") Response.Write "" End If Dim strZC_CUSTOM_DIRECTORY_ENABLE If LoadValueForSetting(tmpSng,True,"Boolean","ZC_CUSTOM_DIRECTORY_ENABLE",strZC_CUSTOM_DIRECTORY_ENABLE) Then strZC_CUSTOM_DIRECTORY_ENABLE=TransferHTML(strZC_CUSTOM_DIRECTORY_ENABLE,"[html-format]") Response.Write "" End If Dim strZC_CUSTOM_DIRECTORY_REGEX If LoadValueForSetting(tmpSng,True,"String","ZC_CUSTOM_DIRECTORY_REGEX",strZC_CUSTOM_DIRECTORY_REGEX) Then strZC_CUSTOM_DIRECTORY_REGEX=TransferHTML(strZC_CUSTOM_DIRECTORY_REGEX,"[html-format]") Response.Write "" End If Dim strZC_CUSTOM_DIRECTORY_ANONYMOUS If LoadValueForSetting(tmpSng,True,"Boolean","ZC_CUSTOM_DIRECTORY_ANONYMOUS",strZC_CUSTOM_DIRECTORY_ANONYMOUS) Then strZC_CUSTOM_DIRECTORY_ANONYMOUS=TransferHTML(strZC_CUSTOM_DIRECTORY_ANONYMOUS,"[html-format]") Response.Write "" End If Dim strZC_MOONSOFT_PLUGIN_ENABLE If LoadValueForSetting(tmpSng,True,"Boolean","ZC_MOONSOFT_PLUGIN_ENABLE",strZC_MOONSOFT_PLUGIN_ENABLE) Then strZC_MOONSOFT_PLUGIN_ENABLE=TransferHTML(strZC_MOONSOFT_PLUGIN_ENABLE,"[html-format]") Response.Write "" End If Dim strZC_MOONSOFT_PLUGIN_REGEX If LoadValueForSetting(tmpSng,True,"String","ZC_MOONSOFT_PLUGIN_REGEX",strZC_MOONSOFT_PLUGIN_REGEX) Then strZC_MOONSOFT_PLUGIN_REGEX=TransferHTML(strZC_MOONSOFT_PLUGIN_REGEX,"[html-format]") Response.Write "" End If Dim strZC_MOONSOFT_PLUGIN_ANONYMOUS If LoadValueForSetting(tmpSng,True,"Boolean","ZC_MOONSOFT_PLUGIN_ANONYMOUS",strZC_MOONSOFT_PLUGIN_ANONYMOUS) Then strZC_MOONSOFT_PLUGIN_ANONYMOUS=TransferHTML(strZC_MOONSOFT_PLUGIN_ANONYMOUS,"[html-format]") Response.Write "" End If Dim strZC_REBUILD_FILE_COUNT If LoadValueForSetting(tmpSng,True,"Numeric","ZC_REBUILD_FILE_COUNT",strZC_REBUILD_FILE_COUNT) Then strZC_REBUILD_FILE_COUNT=TransferHTML(strZC_REBUILD_FILE_COUNT,"[html-format]") Response.Write "" End If Dim strZC_REBUILD_FILE_INTERVAL If LoadValueForSetting(tmpSng,True,"Numeric","ZC_REBUILD_FILE_INTERVAL",strZC_REBUILD_FILE_INTERVAL) Then strZC_REBUILD_FILE_INTERVAL=TransferHTML(strZC_REBUILD_FILE_INTERVAL,"[html-format]") Response.Write "" End If Response.Write "
" & SplitNameAndNote(ZC_MSG177) & "

" & SplitNameAndNote(ZC_MSG178) & "

" & SplitNameAndNote(ZC_MSG278) & "

" & SplitNameAndNote(ZC_MSG279) & "

" & SplitNameAndNote(ZC_MSG280) & "

" & SplitNameAndNote(ZC_MSG270) & "

" & SplitNameAndNote(ZC_MSG317) & "

" & SplitNameAndNote(ZC_MSG318) & "

" & SplitNameAndNote(ZC_MSG181) & "

" & SplitNameAndNote(ZC_MSG182) & "

" Response.Write "
" Response.Write "
" Response.Write "" Dim strZC_UBB_LINK_ENABLE If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UBB_LINK_ENABLE",strZC_UBB_LINK_ENABLE) Then strZC_UBB_LINK_ENABLE=TransferHTML(strZC_UBB_LINK_ENABLE,"[html-format]") Response.Write "" End If Dim strZC_UBB_FONT_ENABLE If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UBB_FONT_ENABLE",strZC_UBB_FONT_ENABLE) Then strZC_UBB_FONT_ENABLE=TransferHTML(strZC_UBB_FONT_ENABLE,"[html-format]") Response.Write "" End If Dim strZC_UBB_CODE_ENABLE If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UBB_CODE_ENABLE",strZC_UBB_CODE_ENABLE) Then strZC_UBB_CODE_ENABLE=TransferHTML(strZC_UBB_CODE_ENABLE,"[html-format]") Response.Write "" End If Dim strZC_UBB_FACE_ENABLE If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UBB_FACE_ENABLE",strZC_UBB_FACE_ENABLE) Then strZC_UBB_FACE_ENABLE=TransferHTML(strZC_UBB_FACE_ENABLE,"[html-format]") Response.Write "" End If Dim strZC_UBB_IMAGE_ENABLE If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UBB_IMAGE_ENABLE",strZC_UBB_IMAGE_ENABLE) Then strZC_UBB_IMAGE_ENABLE=TransferHTML(strZC_UBB_IMAGE_ENABLE,"[html-format]") Response.Write "" End If Dim strZC_UBB_MEDIA_ENABLE If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UBB_MEDIA_ENABLE",strZC_UBB_MEDIA_ENABLE) Then strZC_UBB_MEDIA_ENABLE=TransferHTML(strZC_UBB_MEDIA_ENABLE,"[html-format]") Response.Write "" End If Dim strZC_UBB_FLASH_ENABLE If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UBB_FLASH_ENABLE",strZC_UBB_FLASH_ENABLE) Then strZC_UBB_FLASH_ENABLE=TransferHTML(strZC_UBB_FLASH_ENABLE,"[html-format]") Response.Write "" End If Dim strZC_UBB_TYPESET_ENABLE If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UBB_TYPESET_ENABLE",strZC_UBB_TYPESET_ENABLE) Then strZC_UBB_TYPESET_ENABLE=TransferHTML(strZC_UBB_TYPESET_ENABLE,"[html-format]") Response.Write "" End If Dim strZC_UBB_AUTOLINK_ENABLE If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UBB_AUTOLINK_ENABLE",strZC_UBB_AUTOLINK_ENABLE) Then strZC_UBB_AUTOLINK_ENABLE=TransferHTML(strZC_UBB_AUTOLINK_ENABLE,"[html-format]") Response.Write "" End If 'Dim strZC_UBB_AUTOKEY_ENABLE 'If LoadValueForSetting(tmpSng,True,"Boolean","ZC_UBB_AUTOKEY_ENABLE",strZC_UBB_AUTOKEY_ENABLE) Then ' strZC_UBB_AUTOKEY_ENABLE=TransferHTML(strZC_UBB_AUTOKEY_ENABLE,"[html-format]") ' Response.Write "" 'End If Dim strZC_COMMENT_NOFOLLOW_ENABLE If LoadValueForSetting(tmpSng,True,"Boolean","ZC_COMMENT_NOFOLLOW_ENABLE",strZC_COMMENT_NOFOLLOW_ENABLE) Then strZC_COMMENT_NOFOLLOW_ENABLE=TransferHTML(strZC_COMMENT_NOFOLLOW_ENABLE,"[html-format]") Response.Write "" End If Dim strZC_JAPAN_TO_HTML If LoadValueForSetting(tmpSng,True,"Boolean","ZC_JAPAN_TO_HTML",strZC_JAPAN_TO_HTML) Then strZC_JAPAN_TO_HTML=TransferHTML(strZC_JAPAN_TO_HTML,"[html-format]") Response.Write "" End If Dim strZC_EMOTICONS_FILENAME If LoadValueForSetting(tmpSng,True,"String","ZC_EMOTICONS_FILENAME",strZC_EMOTICONS_FILENAME) Then strZC_EMOTICONS_FILENAME=TransferHTML(strZC_EMOTICONS_FILENAME,"[html-format]") Response.Write "" End If Dim strZC_EMOTICONS_FILESIZE If LoadValueForSetting(tmpSng,True,"Numeric","ZC_EMOTICONS_FILESIZE",strZC_EMOTICONS_FILESIZE) Then strZC_EMOTICONS_FILESIZE=TransferHTML(strZC_EMOTICONS_FILESIZE,"[html-format]") Response.Write "" End If Response.Write "
" & SplitNameAndNote(ZC_MSG196) & "

" & SplitNameAndNote(ZC_MSG197) & "

" & SplitNameAndNote(ZC_MSG198) & "

" & SplitNameAndNote(ZC_MSG199) & "

" & SplitNameAndNote(ZC_MSG200) & "

" & SplitNameAndNote(ZC_MSG201) & "

" & SplitNameAndNote(ZC_MSG202) & "

" & SplitNameAndNote(ZC_MSG203) & "

" & SplitNameAndNote(ZC_MSG204) & "

" & SplitNameAndNote(ZC_MSG205) & "

" & SplitNameAndNote(ZC_MSG207) & "

" & SplitNameAndNote(ZC_MSG208) & "

" & SplitNameAndNote(ZC_MSG235) & "

" & SplitNameAndNote(ZC_MSG234) & "

" Response.Write "
" Response.Write "
" Response.Write "" 'Dim strZC_IE_DISPLAY_WAP 'If LoadValueForSetting(tmpSng,True,"Boolean","ZC_IE_DISPLAY_WAP",strZC_IE_DISPLAY_WAP) Then ' strZC_IE_DISPLAY_WAP=TransferHTML(strZC_IE_DISPLAY_WAP,"[html-format]") ' Response.Write "" 'End If Dim strZC_DISPLAY_COUNT_WAP If LoadValueForSetting(tmpSng,True,"Numeric","ZC_DISPLAY_COUNT_WAP",strZC_DISPLAY_COUNT_WAP) Then strZC_DISPLAY_COUNT_WAP=TransferHTML(strZC_DISPLAY_COUNT_WAP,"[html-format]") Response.Write "" End If Dim strZC_COMMENT_COUNT_WAP If LoadValueForSetting(tmpSng,True,"Numeric","ZC_COMMENT_COUNT_WAP",strZC_COMMENT_COUNT_WAP) Then strZC_COMMENT_COUNT_WAP=TransferHTML(strZC_COMMENT_COUNT_WAP,"[html-format]") Response.Write "" End If Dim strZC_PAGEBAR_COUNT_WAP If LoadValueForSetting(tmpSng,True,"Numeric","ZC_PAGEBAR_COUNT_WAP",strZC_PAGEBAR_COUNT_WAP) Then strZC_PAGEBAR_COUNT_WAP=TransferHTML(strZC_PAGEBAR_COUNT_WAP,"[html-format]") Response.Write "" End If Dim strZC_SINGLE_SIZE_WAP If LoadValueForSetting(tmpSng,True,"Numeric","ZC_SINGLE_SIZE_WAP",strZC_SINGLE_SIZE_WAP) Then strZC_SINGLE_SIZE_WAP=TransferHTML(strZC_SINGLE_SIZE_WAP,"[html-format]") Response.Write "" End If Dim strZC_SINGLE_PAGEBAR_COUNT_WAP If LoadValueForSetting(tmpSng,True,"Numeric","ZC_SINGLE_PAGEBAR_COUNT_WAP",strZC_SINGLE_PAGEBAR_COUNT_WAP) Then strZC_SINGLE_PAGEBAR_COUNT_WAP=TransferHTML(strZC_SINGLE_PAGEBAR_COUNT_WAP,"[html-format]") Response.Write "" End If Dim strZC_COMMENT_PAGEBAR_COUNT_WAP If LoadValueForSetting(tmpSng,True,"Numeric","ZC_COMMENT_PAGEBAR_COUNT_WAP",strZC_COMMENT_PAGEBAR_COUNT_WAP) Then strZC_COMMENT_PAGEBAR_COUNT_WAP=TransferHTML(strZC_COMMENT_PAGEBAR_COUNT_WAP,"[html-format]") Response.Write "" End If Dim strZC_FILENAME_WAP If LoadValueForSetting(tmpSng,True,"String","ZC_FILENAME_WAP",strZC_FILENAME_WAP) Then strZC_FILENAME_WAP=TransferHTML(strZC_FILENAME_WAP,"[html-format]") Response.Write "" End If Dim strZC_WAPCOMMENT_ENABLE If LoadValueForSetting(tmpSng,True,"Boolean","ZC_WAPCOMMENT_ENABLE",strZC_WAPCOMMENT_ENABLE) Then strZC_WAPCOMMENT_ENABLE=TransferHTML(strZC_WAPCOMMENT_ENABLE,"[html-format]") Response.Write "" End If Response.Write "
" & SplitNameAndNote(ZC_MSG216) & "

" & SplitNameAndNote(ZC_MSG217) & "

" & SplitNameAndNote(ZC_MSG218) & "

" & SplitNameAndNote(ZC_MSG219) & "

" & SplitNameAndNote(ZC_MSG220) & "

" & SplitNameAndNote(ZC_MSG221) & "

" & SplitNameAndNote(ZC_MSG222) & "

" & SplitNameAndNote(ZC_MSG223) & "

" & SplitNameAndNote(ZC_MSG304) & "

" Response.Write "
" Dim strZC_BLOG_VERSION If LoadValueForSetting(tmpSng,True,"String","ZC_BLOG_VERSION",strZC_BLOG_VERSION) Then strZC_BLOG_VERSION=TransferHTML(strZC_BLOG_VERSION,"[html-format]") Response.Write "

·"&ZC_MSG179&" :

" End If Response.Write "


" %>
<% Call System_Terminate() If Err.Number<>0 then Call ShowError(0) End If %>