📄 admin_config.asp
字号:
else
Co_GuestbookPageSize=Trim(Request.Form("Co_GuestbookPageSize"))
end if
if Trim(Request.Form("Co_ArticleModifyUsernameReplace"))="1" then
Co_ArticleModifyUsernameReplace="1"
else
Co_ArticleModifyUsernameReplace="0"
end if
if Trim(Request.Form("Co_ArticleModifyIPReplace"))="1" then
Co_ArticleModifyIPReplace="1"
else
Co_ArticleModifyIPReplace="0"
end if
if Trim(Request.Form("Co_ArticleModifyDateTimeReplace"))="1" then
Co_ArticleModifyDateTimeReplace="1"
else
Co_ArticleModifyDateTimeReplace="0"
end if
if Trim(Request.Form("Co_ArticleModifyAllHitsReplace"))="1" then
Co_ArticleModifyAllHitsReplace="1"
else
Co_ArticleModifyAllHitsReplace="0"
end if
if Trim(Request.Form("Co_ArticleUploadShow"))="1" then
Co_ArticleUploadShow="1"
else
Co_ArticleUploadShow="0"
end if
if Trim(Request.Form("Co_AdsUploadShow"))="1" then
Co_AdsUploadShow="1"
else
Co_AdsUploadShow="0"
end if
if Trim(Request.Form("Co_WebLinkUploadShow"))="1" then
Co_WebLinkUploadShow="1"
else
Co_WebLinkUploadShow="0"
end if
Co_UploadPictureFolder0=Trim(Request.Form("Co_UploadPictureFolder0"))
Co_UploadFileFolder0=Trim(Request.Form("Co_UploadFileFolder0"))
if Trim(Request.Form("Co_UploadFileSizeDefault"))="" then
Co_UploadFileSizeDefault="0"
else
Co_UploadFileSizeDefault=Trim(Request.Form("Co_UploadFileSizeDefault"))
end if
Co_UploadFileExtDefault=Trim(Request.Form("Co_UploadFileExtDefault"))
if Trim(Request.Form("Co_UploadFileAutoName"))="1" then
Co_UploadFileAutoName="1"
else
Co_UploadFileAutoName="0"
end if
if Trim(Request.Form("Co_FileExplorerPageSize"))="" or Trim(Request.Form("Co_FileExplorerPageSize"))="0" then
Co_FileExplorerPageSize="1"
else
Co_FileExplorerPageSize=Trim(Request.Form("Co_FileExplorerPageSize"))
end if
Co_FileExplorerEditDefault=Trim(Request.Form("Co_FileExplorerEditDefault"))
if Trim(Request.Form("Co_FileExplorerUploadShow"))="1" then
Co_FileExplorerUploadShow="1"
else
Co_FileExplorerUploadShow="0"
end if
Co_GuestbookUserQQ=Trim(Request.Form("Co_GuestbookUserQQ"))
Co_GuestbookUserIP=Trim(Request.Form("Co_GuestbookUserIP"))
Co_Username=GuAdminUsername
Co_IP=GuUserIP
Co_DateTime=now()
Call ConfigSave()
end if
Sub ConfigSave()
dim rsCo2
set rsCo2=Server.CreateObject("Adodb.RecordSet")
GuSQL="select * from "&GuTablePrefix&"_Config where Co_ID=1"
rsCo2.open GuSQL,GuConn,1,3
rsCo2("Co_WebSiteName")=Co_WebSiteName
rsCo2("Co_WebSiteURL")=Co_WebSiteURL
rsCo2("Co_MKeywords")=Co_MKeywords
rsCo2("Co_MDescription")=Co_MDescription
rsCo2("Co_MIIbeianICP")=Co_MIIbeianICP
rsCo2("Co_GuTablePrefix")=Co_GuTablePrefix
rsCo2("Co_GuErrorSQLGDefault")=Co_GuErrorSQLGDefault
rsCo2("Co_GuErrorSQLFDefault")=Co_GuErrorSQLFDefault
rsCo2("Co_WebSiteStyleDefault")=Co_WebSiteStyleDefault
rsCo2("Co_IndexWebMessageText")=Co_IndexWebMessageText
rsCo2("Co_IndexWebLinkText")=Co_IndexWebLinkText
if Co_GuContentReplace0_M="1" then
rsCo2("Co_GuContentReplace0")=Co_GuContentReplace0
end if
rsCo2("Co_ArticleReadNoteText")=Co_ArticleReadNoteText
rsCo2("Co_GuestbookNoteText")=Co_GuestbookNoteText
rsCo2("Co_PublishNoteText")=Co_PublishNoteText
rsCo2("Co_SendmailBodyOther")=Co_SendmailBodyOther
rsCo2("Co_SendmailNoteText")=Co_SendmailNoteText
if Request.Form("Co_LogPassword_M")="1" then
rsCo2("Co_LogPassword")=Co_LogPassword_N
end if
rsCo2("Co_Username")=Co_Username
rsCo2("Co_IP")=Co_IP
rsCo2("Co_DateTime")=Co_DateTime
rsCo2.update
rsCo2.close
set rsCo2=Nothing
dim GuConfigContent
GuConfigContent="<"
GuConfigContent=GuConfigContent+"%" &vbCrLf
GuConfigContent=GuConfigContent+"dim WebSiteName,WebSiteURL" &vbCrLf
GuConfigContent=GuConfigContent+"dim WebSiteMKeywords,WebSiteMDescription,MIIbeianICP" &vbCrLf
GuConfigContent=GuConfigContent+"dim GuTablePrefix,GuErrorSQLGDefault,GuErrorSQLFDefault,GuLREcnArticleAdminUsername,GuLREcnArticleAdminPurview,GuAdminValidationCode,GuLREcnArticleAdminTimeout,GuAdminUsername,GuUserIP,WebSiteStyleDefault" &vbCrLf
GuConfigContent=GuConfigContent+"dim IndexMessageShow,IndexMessageTitle,IndexResourceStatisticsShow,IndexResourceStatisticsTitle,IndexWebLinkShow,IndexWebLinkTextNum,IndexWebLinkPictureNum" &vbCrLf
GuConfigContent=GuConfigContent+"dim IndexSearchShow,IndexSearchTitle,IndexBlueShow,IndexBlueTitle,IndexBlueNum,IndexHitsShow,IndexHitsTitle,IndexHitsNum,IndexAsSortNum,IndexAsSortArticleNum" &vbCrLf
GuConfigContent=GuConfigContent+"dim ListSearchShow,ListSearchTitle,ListAsSortTitle,ListHitsShow,ListHitsTitle,ListHitsNum,ListArticleTitle,ListPageSize" &vbCrLf
GuConfigContent=GuConfigContent+"dim ArticleSearchShow,ArticleSearchTitle,ArticleHitsWeekShow,ArticleHitsWeekTitle,ArticleHitsWeekNum,ArticleHitsMonthShow,ArticleHitsMonthTitle,ArticleHitsMonthNum,GuContentReplace0Read,ArticleReadNoteShow,ArticleLikeShow,ArticleLikeNum" &vbCrLf
GuConfigContent=GuConfigContent+"dim GuestbookSearchShow,GuestbookSearchTitle,GuestbookHitsShow,GuestbookHitsTitle,GuestbookHitsNum,GuestbookNoteShow,GuestbookNoteText,GuestbookAllow,GuestbookValidationCode,GuestbookContentKB" &vbCrLf
GuConfigContent=GuConfigContent+"dim PublishSearchShow,PublishSearchTitle,PublishHitsShow,PublishHitsTitle,PublishHitsNum,PublishNoteShow,PublishNoteText,PublishAllow,PublishValidationCode,PublishContentKB" &vbCrLf
GuConfigContent=GuConfigContent+"dim SendmailSearchShow,SendmailSearchTitle,SendmailHitsShow,SendmailHitsTitle,SendmailHitsNum,SendmailSubject,SendmailSubjectModify,SendmailAddressFrom,SendmailAddressFromModify,SendmailName,SendmailNameModify,GuSMTPServer,GuSMTPUsername,GuSMTPPassword,SendmailBodyOther,SendmailAllow,SendmailNoteShow,SendmailNoteText,SendmailValidationCode,SendmailBodyModify,SendmailContentKB" &vbCrLf
GuConfigContent=GuConfigContent+"dim GuNameColorDefault,UploadPictureFolder0,UploadFileFolder0,UploadFileSizeDefault,UploadFileExtDefault,UploadFileAutoName,FileExplorerPageSize,FileExplorerEditDefault,FileExplorerUploadShow" &vbCrLf
GuConfigContent=GuConfigContent+"dim GuKeywordDefault,ArticleAddAuthor0,ArticleAddAuthorEmail0,ArticleAddAuthorHomepage0,ArticleAddFrom0,ArticleAddFromURL0" &vbCrLf
GuConfigContent=GuConfigContent+"dim ArticleListPageSize,GuestbookPageSize,ArticleModifyUsernameReplace,ArticleModifyIPReplace,ArticleModifyDateTimeReplace,ArticleModifyAllHitsReplace,ArticleUploadShow,AdsUploadShow,WebLinkUploadShow,GuestbookUserQQ,GuestbookUserIP" &vbCrLf
GuConfigContent=GuConfigContent+"dim LastEditUsername,LastEditUserIP,LastEditDateTime" &vbCrLf
GuConfigContent=GuConfigContent+"dim GuSQL,GuFSO" &vbCrLf
GuConfigContent=GuConfigContent+"" &vbCrLf
GuConfigContent=GuConfigContent+"WebSiteName="""&Co_WebSiteName&"""" &vbCrLf
GuConfigContent=GuConfigContent+"WebSiteURL="""&Co_WebSiteURL&"""" &vbCrLf
GuConfigContent=GuConfigContent+"" &vbCrLf
GuConfigContent=GuConfigContent+"WebSiteMKeywords="""&Co_MKeywords&"""" &vbCrLf
GuConfigContent=GuConfigContent+"WebSiteMDescription="""&Co_MDescription&"""" &vbCrLf
GuConfigContent=GuConfigContent+"" &vbCrLf
GuConfigContent=GuConfigContent+"MIIbeianICP="""&Co_MIIbeianICP&"""" &vbCrLf
GuConfigContent=GuConfigContent+"" &vbCrLf
GuConfigContent=GuConfigContent+"GuTablePrefix="""&Co_GuTablePrefix&"""" &vbCrLf
GuConfigContent=GuConfigContent+"" &vbCrLf
GuConfigContent=GuConfigContent+"GuErrorSQLGDefault="""&Co_GuErrorSQLGDefault&"""" &vbCrLf
GuConfigContent=GuConfigContent+"GuErrorSQLFDefault="""&Co_GuErrorSQLFDefault&"""" &vbCrLf
GuConfigContent=GuConfigContent+"" &vbCrLf
GuConfigContent=GuConfigContent+"GuAdminValidationCode="""&Co_GuAdminValidationCode&"""" &vbCrLf
GuConfigContent=GuConfigContent+"GuLREcnArticleAdminTimeout="&Co_GuLREcnArticleAdminTimeout&"" &vbCrLf
GuConfigContent=GuConfigContent+"" &vbCrLf
GuConfigContent=GuConfigContent+"WebSiteStyleDefault="""&Co_WebSiteStyleDefault&"""" &vbCrLf
GuConfigContent=GuConfigContent+"" &vbCrLf
GuConfigContent=GuConfigContent+"IndexMessageShow="""&Co_IndexMessageShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"IndexMessageTitle="""&Co_IndexMessageTitle&"""" &vbCrLf
GuConfigContent=GuConfigContent+"IndexResourceStatisticsShow="""&Co_IndexResourceStatisticsShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"IndexResourceStatisticsTitle="""&Co_IndexResourceStatisticsTitle&"""" &vbCrLf
GuConfigContent=GuConfigContent+"IndexSearchShow="""&Co_IndexSearchShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"IndexSearchTitle="""&Co_IndexSearchTitle&"""" &vbCrLf
GuConfigContent=GuConfigContent+"IndexBlueShow="""&Co_IndexBlueShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"IndexBlueTitle="""&Co_IndexBlueTitle&"""" &vbCrLf
GuConfigContent=GuConfigContent+"IndexBlueNum="&Co_IndexBlueNum&"" &vbCrLf
GuConfigContent=GuConfigContent+"IndexHitsShow="""&Co_IndexHitsShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"IndexHitsTitle="""&Co_IndexHitsTitle&"""" &vbCrLf
GuConfigContent=GuConfigContent+"IndexHitsNum="&Co_IndexHitsNum&"" &vbCrLf
GuConfigContent=GuConfigContent+"IndexAsSortNum="&Co_IndexAsSortNum&"" &vbCrLf
GuConfigContent=GuConfigContent+"IndexAsSortArticleNum="&Co_IndexAsSortArticleNum&"" &vbCrLf
GuConfigContent=GuConfigContent+"IndexWebLinkShow="""&Co_IndexWebLinkShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"IndexWebLinkTextNum="&Co_IndexWebLinkTextNum&"" &vbCrLf
GuConfigContent=GuConfigContent+"IndexWebLinkPictureNum="&Co_IndexWebLinkPictureNum&"" &vbCrLf
GuConfigContent=GuConfigContent+"" &vbCrLf
GuConfigContent=GuConfigContent+"ListSearchShow="""&Co_ListSearchShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"ListSearchTitle="""&Co_ListSearchTitle&"""" &vbCrLf
GuConfigContent=GuConfigContent+"ListAsSortTitle="""&Co_ListAsSortTitle&"""" &vbCrLf
GuConfigContent=GuConfigContent+"ListHitsShow="""&Co_ListHitsShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"ListHitsTitle="""&Co_ListHitsTitle&"""" &vbCrLf
GuConfigContent=GuConfigContent+"ListHitsNum="&Co_ListHitsNum&"" &vbCrLf
GuConfigContent=GuConfigContent+"ListArticleTitle="""&Co_ListArticleTitle&"""" &vbCrLf
GuConfigContent=GuConfigContent+"ListPageSize="""&Co_ListPageSize&"""" &vbCrLf
GuConfigContent=GuConfigContent+"" &vbCrLf
GuConfigContent=GuConfigContent+"ArticleSearchShow="""&Co_ArticleSearchShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"ArticleSearchTitle="""&Co_ArticleSearchTitle&"""" &vbCrLf
GuConfigContent=GuConfigContent+"ArticleHitsWeekShow="""&Co_ArticleHitsWeekShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"ArticleHitsWeekTitle="""&Co_ArticleHitsWeekTitle&"""" &vbCrLf
GuConfigContent=GuConfigContent+"ArticleHitsWeekNum="&Co_ArticleHitsWeekNum&"" &vbCrLf
GuConfigContent=GuConfigContent+"ArticleHitsMonthShow="""&Co_ArticleHitsMonthShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"ArticleHitsMonthTitle="""&Co_ArticleHitsMonthTitle&"""" &vbCrLf
GuConfigContent=GuConfigContent+"ArticleHitsMonthNum="&Co_ArticleHitsMonthNum&"" &vbCrLf
GuConfigContent=GuConfigContent+"GuContentReplace0Read="""&Co_GuContentReplace0Read&"""" &vbCrLf
GuConfigContent=GuConfigContent+"ArticleReadNoteShow="""&Co_ArticleReadNoteShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"ArticleLikeShow="""&Co_ArticleLikeShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"ArticleLikeNum="&Co_ArticleLikeNum&"" &vbCrLf
GuConfigContent=GuConfigContent+"" &vbCrLf
GuConfigContent=GuConfigContent+"GuestbookSearchShow="""&Co_GuestbookSearchShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"GuestbookSearchTitle="""&Co_GuestbookSearchTitle&"""" &vbCrLf
GuConfigContent=GuConfigContent+"GuestbookHitsShow="""&Co_GuestbookHitsShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"GuestbookHitsTitle="""&Co_GuestbookHitsTitle&"""" &vbCrLf
GuConfigContent=GuConfigContent+"GuestbookHitsNum="&Co_GuestbookHitsNum&"" &vbCrLf
GuConfigContent=GuConfigContent+"GuestbookAllow="""&Co_GuestbookAllow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"GuestbookValidationCode="""&Co_GuestbookValidationCode&"""" &vbCrLf
GuConfigContent=GuConfigContent+"GuestbookContentKB="&Co_GuestbookContentKB&"" &vbCrLf
GuConfigContent=GuConfigContent+"GuestbookNoteShow="""&Co_GuestbookNoteShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"" &vbCrLf
GuConfigContent=GuConfigContent+"PublishSearchShow="""&Co_PublishSearchShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"PublishSearchTitle="""&Co_PublishSearchTitle&"""" &vbCrLf
GuConfigContent=GuConfigContent+"PublishHitsShow="""&Co_PublishHitsShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"PublishHitsTitle="""&Co_PublishHitsTitle&"""" &vbCrLf
GuConfigContent=GuConfigContent+"PublishHitsNum="&Co_PublishHitsNum&"" &vbCrLf
GuConfigContent=GuConfigContent+"PublishAllow="""&Co_PublishAllow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"PublishValidationCode="""&Co_PublishValidationCode&"""" &vbCrLf
GuConfigContent=GuConfigContent+"PublishContentKB="&Co_PublishContentKB&"" &vbCrLf
GuConfigContent=GuConfigContent+"PublishNoteShow="""&Co_PublishNoteShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"" &vbCrLf
GuConfigContent=GuConfigContent+"SendmailSearchShow="""&Co_SendmailSearchShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"SendmailSearchTitle="""&Co_SendmailSearchTitle&"""" &vbCrLf
GuConfigContent=GuConfigContent+"SendmailHitsShow="""&Co_SendmailHitsShow&"""" &vbCrLf
GuConfigContent=GuConfigContent+"SendmailHitsTitle="""&Co_SendmailHitsTitle&"""" &vbCrLf
GuConfigContent=GuConfigContent+"SendmailHitsNum="&Co_SendmailHitsNum&"" &vbCrLf
GuConfigContent=GuConfigContent+"SendmailSubject="""&Co_SendmailSubject&"""" &vbCrLf
GuConfigContent=GuConfigContent+"SendmailSubjectModify="""&Co_SendmailSubjectModify&"""" &vbCrLf
GuConfigContent=GuConfigContent+"SendmailAddressFrom="""&Co_SendmailAddressFrom&"""" &vbCrLf
GuConfigContent=GuConfigContent+"SendmailAddressFromModify="""&Co_SendmailAddressFromModify&"""" &vbCrLf
GuConfigContent=GuConfigContent+"SendmailName="""&Co_SendmailName&"""" &vbCrLf
GuConfigContent=GuConfigContent+"SendmailNameModify="""&Co_SendmailNameModify&"""" &vbCrLf
GuConfigContent=GuConfigContent+"GuSMTPServer="""&Co_GuSMTPServer&"""" &vbCrLf
GuConfigContent=GuConfigContent+"GuSMTPUsername="""&Co_GuSMTPUsername&"""" &vbCrLf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -