<%@ 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() '检查非法链接 Call CheckReference("") '检查权限 If Not CheckRights("SettingMng") Then Call ShowError(6) Dim EditArticle BlogTitle=ZC_BLOG_TITLE & ZC_MSG044 & ZC_MSG247 %> <%=BlogTitle%>
<%=ZC_MSG247%>
<% Call GetBlogHint() %>
<% 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 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) 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]") Response.Write "
 "&ZC_MSG105&"" Response.Write "
" Response.Write "

"& ZC_MSG104 &":

" Response.Write "

"& ZC_MSG091 &":

" Response.Write "

"& ZC_MSG092 &":

" Response.Write "

"& ZC_MSG093 &":

" Response.Write "

"& ZC_MSG094 &":

" Response.Write "

"& ZC_MSG095 &":

" Response.Write "

"& ZC_MSG096 &":

" Response.Write "

"& ZC_MSG097 &":

" Response.Write "

" Response.Write "
 "&ZC_MSG173&"" 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 "

※"&ZC_MSG174&" :

" 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 "

※"&ZC_MSG175&" :

" 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 "

※"&ZC_MSG176&" :

" 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 "

※"&ZC_MSG290&" :

" End If 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 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 "

※"&ZC_MSG180&" :

" 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 "

※"&ZC_MSG183&" :

" 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 "

※"&ZC_MSG184&" :

" 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 "

※"&ZC_MSG226&" :

" 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 "

※"&ZC_MSG283&" :

" 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 "

※"&ZC_MSG262&" :

" 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 "

※"&ZC_MSG263&" :

" 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 "

※"&ZC_MSG276&" :

" End If Response.Write "

" Response.Write "

 "&ZC_MSG186&"" 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 "

※"&ZC_MSG187&" :

" 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 "

※"&ZC_MSG188&" :

" 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 "

※"&ZC_MSG189&" :

" 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 "

※"&ZC_MSG190&" :

" 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 "

※"&ZC_MSG191&" :

" 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 "

※"&ZC_MSG192&" :

" 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 "

※"&ZC_MSG193&" :

" 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 "

※"&ZC_MSG194&" :

" 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 "

※"&ZC_MSG209&" :

" 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 "

※"&ZC_MSG230&" :

" 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 "

※"&ZC_MSG271&" :

" 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 "

※"&ZC_MSG185&" :

" 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 "

※"&ZC_MSG171&" :

" End If Response.Write "

" Response.Write "

 "&ZC_MSG281&"" 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 "

※"&ZC_MSG177&" :

" 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 "

※"&ZC_MSG178&" :

" 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 "

※"&ZC_MSG278&" :

" 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 "

※"&ZC_MSG279&" :

" 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 "

※"&ZC_MSG280&" :

" 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 "

※"&ZC_MSG181&" :

" 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 "

※"&ZC_MSG182&" :

" 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 "

※"&ZC_MSG270&" :

" End If Response.Write "

" Response.Write "

 "&ZC_MSG195&"" 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 "

※"&ZC_MSG196&" :

" 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 "

※"&ZC_MSG197&" :

" 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 "

※"&ZC_MSG198&" :

" 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 "

※"&ZC_MSG199&" :

" 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 "

※"&ZC_MSG200&" :

" 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 "

※"&ZC_MSG201&" :

" 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 "

※"&ZC_MSG202&" :

" 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 "

※"&ZC_MSG203&" :

" 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 "

※"&ZC_MSG204&" :

" 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 "

※"&ZC_MSG205&" :

" 'End If Dim strZC_AUTO_NEWLINE If LoadValueForSetting(tmpSng,True,"Boolean","ZC_AUTO_NEWLINE",strZC_AUTO_NEWLINE) Then strZC_AUTO_NEWLINE=TransferHTML(strZC_AUTO_NEWLINE,"[html-format]") Response.Write "

※"&ZC_MSG206&" :

" 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 "

※"&ZC_MSG207&" :

" 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 "

※"&ZC_MSG208&" :

" 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 "

※"&ZC_MSG235&" :

" 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 "

※"&ZC_MSG234&" :

" End If Response.Write "

" Response.Write "

 "&ZC_MSG215&"" 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 "

※"&ZC_MSG216&" :

" 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 "

※"&ZC_MSG217&" :

" 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 "

※"&ZC_MSG218&" :

" 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 "

※"&ZC_MSG219&" :

" 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 "

※"&ZC_MSG220&" :

" 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 "

※"&ZC_MSG221&" :

" 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 "

※"&ZC_MSG222&" :

" 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 "

※"&ZC_MSG223&" :

" End If Response.Write "

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