admin_config.asp

浪人文章系统

		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="没有填写网站名称"
	end if
	
	if Trim(Request.Form("Co_WebSiteURL"))="" then
		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="没有填写网站网址"
	end if
	
	if Trim(Request.Form("Co_GuTablePrefix"))="" then
		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="没有填写数据库表名前缀"
	end if
	
	if Trim(Request.Form("Co_GuLREcnArticleAdminTimeout"))="" then
		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="没有填写 Session 的有效时间，单位:分钟"
	end if

	if Trim(Request.Form("Co_WebSiteStyleDefault"))="" then
		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="没有设定网站界面风格"
	end if

	if Trim(Request.Form("Co_GuNameColorDefault"))="" then
		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="没有填写默认可选择的文章标题颜色"
	end if

	if Request.Form("Co_LogPassword_M")="1" then
		dim rsCo1
		set rsCo1=Server.CreateObject("Adodb.RecordSet")
		GuSQL="select Co_LogPassword from "&GuTablePrefix&"_Config where Co_ID=1"
		rsCo1.open GuSQL,GuConn,1,1
			Co_LogPassword=rsCo1("Co_LogPassword")
		rsCo1.close
		set rsCo1=Nothing
		Co_LogPassword_1=Request.Form("Co_LogPassword_1")
		Co_LogPassword_2=Request.Form("Co_LogPassword_2")
		Co_LogPassword_3=MD5(MD5(Request.Form("Co_LogPassword_O")))

		if Co_LogPassword_3<>Co_LogPassword then
			GuSystemError=true
			GuSystemCode=3
			GuSystemMessage="删除用户登录日志的原密码错误"
		elseif Co_LogPassword_1<>Co_LogPassword_2 then
			GuSystemError=true
			GuSystemCode=3
			GuSystemMessage="两次输入的删除登录日志的新密码必须一样"
		else
			Co_LogPassword_N=MD5(MD5(Request.Form("Co_LogPassword_1")))
		end if
	end if

	if GuSystemError=false then

		Co_WebSiteName=Trim(Request.Form("Co_WebSiteName"))

		if Left(Trim(Request.Form("Co_WebSiteURL")),7)<>"http://" and Right(Trim(Request.Form("Co_WebSiteURL")),1)<>"/" then
			Co_WebSiteURL="http://"&Trim(Request.Form("Co_WebSiteURL"))&"/"
		elseif Left(Trim(Request.Form("Co_WebSiteURL")),7)<>"http://" then
			Co_WebSiteURL="http://"&Trim(Request.Form("Co_WebSiteURL"))
		elseif Right(Trim(Request.Form("Co_WebSiteURL")),1)<>"/" then
			Co_WebSiteURL=Trim(Request.Form("Co_WebSiteURL"))&"/"
		else
			Co_WebSiteURL=Trim(Request.Form("Co_WebSiteURL"))
		end if

		Co_MKeywords=Trim(Request.Form("Co_MKeywords"))
		Co_MDescription=Trim(Request.Form("Co_MDescription"))

		Co_MIIbeianICP=Trim(Request.Form("Co_MIIbeianICP"))

		Co_GuTablePrefix=Trim(Request.Form("Co_GuTablePrefix"))
		Co_GuErrorSQLGDefault=Trim(Request.Form("Co_GuErrorSQLGDefault"))
		Co_GuErrorSQLFDefault=Trim(Request.Form("Co_GuErrorSQLFDefault"))

		if Trim(Request.Form("Co_GuAdminValidationCode"))="1" then
			Co_GuAdminValidationCode="1"
		else
			Co_GuAdminValidationCode="0"
		end if

		Co_GuLREcnArticleAdminTimeout=Trim(Request.Form("Co_GuLREcnArticleAdminTimeout"))

		Co_WebSiteStyleDefault=Trim(Request.Form("Co_WebSiteStyleDefault"))

		if Trim(Request.Form("Co_IndexMessageShow"))="1" then
			Co_IndexMessageShow="1"
		else
			Co_IndexMessageShow="0"
		end if

		Co_IndexWebMessageText=Trim(Request.Form("Co_IndexWebMessageText"))
		Co_IndexMessageTitle=Trim(Request.Form("Co_IndexMessageTitle"))

		if Trim(Request.Form("Co_IndexResourceStatisticsShow"))="1" then
			Co_IndexResourceStatisticsShow="1"
		else
			Co_IndexResourceStatisticsShow="0"
		end if
		
		Co_IndexResourceStatisticsTitle=Trim(Request.Form("Co_IndexResourceStatisticsTitle"))


		if Trim(Request.Form("Co_IndexSearchShow"))="1" then
			Co_IndexSearchShow="1"
		else
			Co_IndexSearchShow="0"
		end if

		Co_IndexSearchTitle=Trim(Request.Form("Co_IndexSearchTitle"))

		if Trim(Request.Form("Co_IndexBlueShow"))="1" then
			Co_IndexBlueShow="1"
		else
			Co_IndexBlueShow="0"
		end if

		Co_IndexBlueTitle=Trim(Request.Form("Co_IndexBlueTitle"))

		if Trim(Request.Form("Co_IndexBlueNum"))="" then
			Co_IndexBlueNum="0"
		else
			Co_IndexBlueNum=Trim(Request.Form("Co_IndexBlueNum"))
		end if

		if Trim(Request.Form("Co_IndexHitsShow"))="1" then
			Co_IndexHitsShow="1"
		else
			Co_IndexHitsShow="0"
		end if

		Co_IndexHitsTitle=Trim(Request.Form("Co_IndexHitsTitle"))

		if Trim(Request.Form("Co_IndexHitsNum"))="" then
			Co_IndexHitsNum="0"
		else
			Co_IndexHitsNum=Trim(Request.Form("Co_IndexHitsNum"))
		end if

		if Trim(Request.Form("Co_IndexAsSortNum"))="" then
			Co_IndexAsSortNum="0"
		else
			Co_IndexAsSortNum=Trim(Request.Form("Co_IndexAsSortNum"))
		end if

		if Trim(Request.Form("Co_IndexAsSortArticleNum"))="" then
			Co_IndexAsSortArticleNum="0"
		else
			Co_IndexAsSortArticleNum=Trim(Request.Form("Co_IndexAsSortArticleNum"))
		end if

		if Trim(Request.Form("Co_IndexWebLinkShow"))="1" then
			Co_IndexWebLinkShow="1"
		else
			Co_IndexWebLinkShow="0"
		end if

		Co_IndexWebLinkText=Trim(Request.Form("Co_IndexWebLinkText"))

		if Trim(Request.Form("Co_IndexWebLinkTextNum"))="" then
			Co_IndexWebLinkTextNum="0"
		else
			Co_IndexWebLinkTextNum=Trim(Request.Form("Co_IndexWebLinkTextNum"))
		end if

		if Trim(Request.Form("Co_IndexWebLinkPictureNum"))="" then
			Co_IndexWebLinkPictureNum="0"
		else
			Co_IndexWebLinkPictureNum=Trim(Request.Form("Co_IndexWebLinkPictureNum"))
		end if

		if Trim(Request.Form("Co_ListSearchShow"))="1" then
			Co_ListSearchShow="1"
		else
			Co_ListSearchShow="0"
		end if

		Co_ListSearchTitle=Trim(Request.Form("Co_ListSearchTitle"))

		Co_ListAsSortTitle=Trim(Request.Form("Co_ListAsSortTitle"))

		if Trim(Request.Form("Co_ListHitsShow"))="1" then
			Co_ListHitsShow="1"
		else
			Co_ListHitsShow="0"
		end if

		Co_ListHitsTitle=Trim(Request.Form("Co_ListHitsTitle"))

		if Trim(Request.Form("Co_ListHitsNum"))="" then
			Co_ListHitsNum="0"
		else
			Co_ListHitsNum=Trim(Request.Form("Co_ListHitsNum"))
		end if

		if Trim(Request.Form("Co_ListPageSize"))="" or Trim(Request.Form("Co_ListPageSize"))="0" then
			Co_ListPageSize="1"
		else
			Co_ListPageSize=Trim(Request.Form("Co_ListPageSize"))
		end if

		Co_ListArticleTitle=Trim(Request.Form("Co_ListArticleTitle"))

		if Trim(Request.Form("Co_ArticleSearchShow"))="1" then
			Co_ArticleSearchShow="1"
		else
			Co_ArticleSearchShow="0"
		end if

		Co_ArticleSearchTitle=Trim(Request.Form("Co_ArticleSearchTitle"))

		if Trim(Request.Form("Co_ArticleHitsWeekShow"))="1" then
			Co_ArticleHitsWeekShow="1"
		else
			Co_ArticleHitsWeekShow="0"
		end if

		Co_ArticleHitsWeekTitle=Trim(Request.Form("Co_ArticleHitsWeekTitle"))

		if Trim(Request.Form("Co_ArticleHitsWeekNum"))="" then
			Co_ArticleHitsWeekNum="0"
		else
			Co_ArticleHitsWeekNum=Trim(Request.Form("Co_ArticleHitsWeekNum"))
		end if

		if Trim(Request.Form("Co_ArticleHitsMonthShow"))="1" then
			Co_ArticleHitsMonthShow="1"
		else
			Co_ArticleHitsMonthShow="0"
		end if