<%scriptcalled = request.ServerVariables("SCRIPT_NAME")%>
<%
if mdcuclass = "47" then
sqloption = ""
sqloption2 = ""
else
sqloption = " where ID <> '3446288'"
sqloption2=" and ID <> '3446288'"
end if
'Count members
sqlm = "select count(name) as mc from information"&sqloption
set rsm = conn.execute(sqlm)
membercount=rsm("mc")
'Count members that post at least once
sqlp = "select count(name) as tmp from information where postcount > 0"&sqloption2
set rsp = conn.execute(sqlp)
totmp = rsp("tmp")
'Count total posts by members
sqltp = "select sum(postcount) as totalpost from information"&sqloption
set rstp = conn.execute(sqltp)
totalpost=rstp("totalpost")
'Count total login times
sqllc = "select sum(logincount) as totallogin from information"&sqloption
set rslc = conn.execute(sqllc)
totallogin=rslc("totallogin")
'Count members that registered
sqlrc = "select count(name) as tmr from information where registerstatus=yes"&sqloption2
set rsrc = conn.execute(sqlrc)
regd = rsrc("tmr")
startdate = cdate(start)
webage = date - startdate
%>
| อายุของเว็บนีุ้ นับตั้งแต่ <%=formatdatetime(startdate,1)%> |
<%=webage%> วัน |
| จากทั้งหมด <%=membercount%> คน มีสมาชิกลงทะเบียนแล้ว |
<%=regd%> คน |
| ในจำนวนนี้มีผู้โพสข้อความลงในเว็บบอร์ดแล้วอย่างน้อย 1 ครั้งจำนวน |
<%=totmp%> คน |
| มีเพื่อน login ทั้งหมด |
<%=totallogin %> ครั้ง |
| จำนวนโพสทั้งหมดโดยสมาชิก (ไม่รวมบางอันที่ถูกลบทิ้ง) |
<%=totalpost%> โพส |
| จำนวนโพสโดยสมาชิกต่อวัน |
<%if webage > 0 then response.Write(add00(round((totalpost/webage),2)))%> |
| จำนวนโพสเฉลี่ยโดยสมาชิกต่อสมาชิก 1 คน |
<%if membercount > 0 then response.Write(add00(round((totalpost/membercount),2)))%> |
| จำนวนโพสเฉลี่ยโดยสมาชิกต่อสมาชิก 1 คนที่โพสอย่างน้อย 1 ครั้ง |
<%if totmp > 0 then response.Write(add00(round((totalpost/totmp),2)))%> |
| จำนวนโพสเฉลี่ยต่อการล็อกอิน 1 ครั้ง |
<%if totallogin > 0 then response.Write(add00(round((totalpost/totallogin),2)))%> |
<%
strsort = request.QueryString("sort")
if strsort <> "" then strsort = request.QueryString("sort")&" desc" else strsort = "logincount desc"
sqlall = "select * from information"&sqloption&" order by "&strsort&",ID"
set rsall = server.CreateObject("ADODB.RecordSet")
rsall.open sqlall,conn,1,3
rsall.movefirst
i = 1
do while not rsall.eof
%>
| <%=i%> |
<%=rsall("name")&" "&rsall("surname")%> |
<%=rsall("nickname")%> |
<%=rsall("logincount")%> |
<%=rsall("postcount")%> |
<%=rsall("lastlogintime")%> |
<%
rsall.movenext
i=i+1
loop
rsall.close
%>