?? count.asp
字號:
<!--#INCLUDE FILE="../config.asp" -->
<html>
<head>
<!--#include file="../styles.css" -->
</head>
<body bgcolor="#FFFFFF" class="sft">
<br><br><br>
<%
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
strsql = "select SFAdmin_Name, SFAdmin_Password from SFAdmin"
set rs = my_conn.Execute (strSQL)
if (Session("SFAdmin_Name")=rs("SFAdmin_Name")) and (Session("SFAdmin_Password")=rs("SFAdmin_Password")) then
my_conn.Close
set my_Conn = nothing
set rs = nothing
%>
<%
if Request.QueryString("count")="yes" then
'定義腳本運行時限
server.ScriptTimeout = 6000
set my_conn= Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
set rs1 = Server.CreateObject("ADODB.Recordset")
my_Conn.Open ConnString
Select Case Request.QueryString("mode")
case "topic"
strSQL = "Select Topic_ID, T_Replies From Topics"
rs.Open strSQL, my_conn, 2, 2
i = 0
Response.Write "<br>*更新帖子數據!<br>"
do until rs.EOF
i = i + 1
strSQL = "Select count(Reply_ID) AS cnt from Reply where topic_ID = " &rs("Topic_ID")
rs1.Open StrSQL, my_Conn
if rs1.EOF or rs1.BOF then
rs("T_Replies") = 0
rs.Update
Else
rs("T_Replies") = rs1("cnt")
rs.Update
End if
rs1.Close
rs.MoveNext
Response.Write ">"
if i = 80 then
Response.Write "<br>"
i = 0
End if
loop
rs.Close
case "forum"
Response.Write "<br><br>*更新論壇數據<br>"
StrSQL = "Select Forum_ID, F_Count From Forum"
rs.Open strSQL, my_conn, 2, 2
do until rs.EOF
strSQL = "SELECT Sum(Topics.T_Replies) AS SumOfT_Replies, Count(Topics.T_Replies) AS cnt FROM Topics HAVING Topics.Forum_id = " & rs("Forum_ID")
rs1.Open StrSQL, my_Conn
if rs1.EOF or rs1.BOF then
rs("F_Count") = 0
rs.Update
Else
rs("F_Count") = rs1("cnt") + rs1("SumOfT_Replies")
rs.Update
End if
rs1.Close
rs.MoveNext
Response.Write ">"
if i = 80 then
Response.Write "<br>"
i = 0
End if
loop
rs.Close
case "total"
Response.Write "<br><br>*更新統計數據!<br>"
strSQL = "SELECT Sum(Forum.F_Count) AS SumOfF_Count FROM Forum"
rs.Open strSQL, my_Conn
strSQL = "Update totals set P_Count = " & rs("SumOfF_Count")
my_conn.Execute strSQL
rs.Close
StrSQL = "SELECT Count(Member_ID) AS CountOf FROM Members"
rs.Open strSQl, my_conn
Response.Write "論壇當前共有" & RS("Countof") & "個注冊用戶!<BR>"
strSQL = " Update totals set U_Count = " & cint(RS("Countof"))
my_conn.Execute strSQL
end select
Response.Write "<br><br>#數據更新完畢!<br>"
on error resume next
rs.Close
rs1.Close
my_conn.Close
set rs = nothing
set rs1 = nothing
set my_conn = nothing
set rs = nothing
set rs1 = nothing
else
%>
<br><br>
如果論壇數據出現不一致或其它問題,可以通過更新數據解決<br><br>
請選擇:
<br><br>1 <a href="count.asp?count=yes&mode=topic">更新帖子數據</a>:對論壇帖子的數據進行更新,如果帖子數量很多,更新過程會比較長
<br><br>2 <a href="count.asp?count=yes&mode=forum">更新論壇數據</a>:對論壇數據進行更新,如果論壇版塊帖子計數有誤,請運行本項
<br><br>3 <a href="count.asp?count=yes&mode=total">更新統計數據</a>:對論壇統計數據的更新
<%end if%>
<%
else
Response.Write "<P align=center>請正確輸入管理員名稱和密碼!<br><br>"
Response.Write "<a href=""main.asp"">退回</a></p>"
end if%>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -