⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_updatedata.asp

📁 浪人文章系统
💻 ASP
字号:
🔍 
<%OPTION EXPLICIT%>
<!--#include file="Include/Config.asp"-->
<!--#include file="Include/SQLAdmin.asp"-->
<!--#include file="Include/Conn.asp"-->
<!--#include file="Include/IPLockAdmin.asp"-->
<%dim Admin_Purview:Admin_Purview="1"%>

<html>
<head>
<title>更新网站数据</title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<meta http-equiv="Content-Language" Content="zh-CN">
<meta name="Keywords" Content="">
<meta name="Description" Content="">
<link type="text/css" rel="stylesheet" href="Include/Style.css">
<Script Language="JavaScript" src="Include/PopText.js"></Script>

</head>

<body leftMargin=10 topmargin="10" bgcolor="#FFFFFF">

<!--#include file="Include/Session.asp"-->

<%
	dim GuSystemError,GuSystemCode,GuSystemMessage,GuSystemURL
 
	if Trim(Request.QueryString("GuComm"))="All" then
		call UpdateDataAll()
	else
		Response.Redirect "Admin_List.asp"
		Response.end
	end if


Sub UpdateDataAll()

	dim AllDayUpdate,AllNum,AllReadNum

	dim rsUD0
	set rsUD0=Server.CreateObject("Adodb.RecordSet")

	'今日更新总数
	GuSQL="Select count(Ar_ID) from "&GuTablePrefix&"_Article where Ar_Show='1' and Ar_UserPublish='0' and Ar_DateTime=Date()"
	rsUD0.open GuSQL,GuConn,1,1
	AllDayUpdate=rsUD0(0)
	if isnull(AllDayUpdate) then AllDayUpdate=0
	rsUD0.close

	'文章总数
	GuSQL="Select count(Ar_ID) from "&GuTablePrefix&"_Article where Ar_Show='1' and Ar_UserPublish='0'"
	rsUD0.open GuSQL,GuConn,1,1
	AllNum=rsUD0(0)
	if isnull(AllNum) then AllNum=0
	rsUD0.close

	'全部文章阅读次数
	GuSQL="Select sum(Ar_AllHits) from "&GuTablePrefix&"_Article where Ar_Show='1' and Ar_UserPublish='0'"
	rsUD0.open GuSQL,GuConn,1,1
	AllReadNum=rsUD0(0)
	if isnull(AllReadNum) then AllReadNum=0
	rsUD0.close

	GuConn.execute("update "&GuTablePrefix&"_ConfigIC set CIC_Number="&AllDayUpdate&" where CIC_ID=1")
	GuConn.execute("update "&GuTablePrefix&"_ConfigIC set CIC_Number="&AllNum&" where CIC_ID=2")
	GuConn.execute("update "&GuTablePrefix&"_ConfigIC set CIC_Number="&AllReadNum&" where CIC_ID=6")

	set rsUD0=Nothing


	dim rsUD1,rsUD2,So_Number
	set rsUD1=Server.CreateObject("Adodb.RecordSet")
	set rsUD2=Server.CreateObject("Adodb.RecordSet")

	rsUD1.open "select * from "&GuTablePrefix&"_Sort order by So_ID asc",GuConn,1,1
	if err.number<>0 then
		Response.write "数据库查询出错"
	else
		if rsUD1.bof and rsUD1.eof then
			Response.write ""  'No Sort
		else
			do while not rsUD1.eof
			rsUD2.open "select Count(Ar_ID) as SortNumber from "&GuTablePrefix&"_Article where Ar_Show='1' and Ar_UserPublish='0' and Ar_SortID="&rsUD1("So_ID"),GuConn,1,1
			So_Number=rsUD2("SortNumber")
			rsUD2.close
			GuSQL="update "&GuTablePrefix&"_Sort set So_Number="&So_Number&" where So_ID="&rsUD1("So_ID")
			GuConn.execute GuSQL
			GuSQL="update "&GuTablePrefix&"_ConfigIC set CIC_Number="&So_Number&" where CIC_Type='Sort' and CIC_OldIDA="&rsUD1("So_ID")
			GuConn.execute GuSQL
			rsUD1.movenext
			loop
		end if
	end if
	rsUD1.close

	set rsUD2=Nothing
	set rsUD1=Nothing


	dim rsUD3,rsUD4,AS_Number
	set rsUD3=Server.CreateObject("Adodb.RecordSet")
	set rsUD4=Server.CreateObject("Adodb.RecordSet")

	rsUD3.open "select * from "&GuTablePrefix&"_AsSort order by AS_ID asc",GuConn,1,1
	if err.number<>0 then
		Response.write "数据库查询出错"
	else
		if rsUD3.bof and rsUD3.eof then
			Response.write ""  'No AsSort
		else
			do while not rsUD3.eof
			rsUD4.open "select Count(Ar_ID) as AsSortNumber from "&GuTablePrefix&"_Article where Ar_Show='1' and Ar_UserPublish='0' and Ar_AsSortID="&rsUD3("AS_ID")&"",GuConn,1,1
			AS_Number=rsUD4("AsSortNumber")
			rsUD4.close
			GuSQL="update "&GuTablePrefix&"_AsSort set AS_Number="&AS_Number&" where AS_ID="&rsUD3("AS_ID")
			GuConn.execute GuSQL
			GuSQL="update "&GuTablePrefix&"_ConfigIC set CIC_Number="&AS_Number&" where CIC_Type='AsSort' and CIC_OldIDB="&rsUD3("AS_ID")
			GuConn.execute GuSQL
			rsUD3.movenext
			loop
		end if
	end if
	rsUD3.close

	set rsUD4=Nothing
	set rsUD3=Nothing


	GuSystemCode=00
	GuSystemMessage="网站资源统计信息已更新完成"
	GuSystemURL="<a href=""Admin_List.asp""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"

	call GuMessage()

end sub
%>

<!--#include file="Include/Message.asp"-->

</body>
</html>

<%CloseDatabase%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -