📄 count.asp

📁 这个论坛也不错．适合做毕业设计的
💻 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 + -