index.asp

电子商务网络购物系统

						strSQL = strSQL & "FROM timesuser, timespost  "
						strSQL = strSQL & "WHERE timesuser.userid = timespost.userid AND timespost.topicid IN "
						strSQL = strSQL & "	(SELECT TOP 1 timestopic.topicid "
						strSQL = strSQL & "	FROM timestopic "
						strSQL = strSQL & "	WHERE timestopic.bbsid = " & intForumID & " "
						strSQL = strSQL & "	ORDER BY timestopic.lastdtm DESC) "
						strSQL = strSQL & "ORDER BY timespost.msgdtm DESC;"
					rsConn.Open strSQL, adoCon
					If NOT rsConn.EOF Then
						lngLastEntryMeassgeID = CLng(rsConn("postid"))
						lngLastEntryTopicID = CLng(rsConn("topicid"))
						dtmLastEntryDate = CDate(rsConn("msgdtm"))
						strLastEntryUser = rsConn("Username")
						lngLastEntryUserID = CLng(rsConn("userid"))
					End If
					rsConn.Close
					If dtmLastEntryDateAllForums < dtmLastEntryDate Then
						dtmLastEntryDateAllForums = dtmLastEntryDate
						strLastEntryUserAllForums = strLastEntryUser
						lngLastEntryUserIDAllForums = lngLastEntryUserID
					End If
					%>
  <tr  bgcolor="#ffffff" class="text" align="center"> 
    <td> <%
				If blnRead = False AND blnModerator = False AND blnAdmin = False Then
				%> <img src="images/noaccess.gif" alt="无权访问"> 
      <%
				ElseIf strForumPassword <> "" Then
				%> <img src="images/password.gif" alt="这个论坛需要你输入密码才可以进入"> 
      <%
				ElseIf CDate(Session("dtmLastVisit")) < dtmLastEntryDate AND (blnForumLocked = True) AND blnAdmin = False AND blnModerator = False Then
				%> <img src="images/lockednew.gif" alt="只读论坛(有新回复)"> 
      <%
				ElseIf blnForumLocked Then
				%> <img src="images/closedtopic.gif" alt="只读论坛"> 
      <%
				ElseIf CDate(Session("dtmLastVisit")) < dtmLastEntryDate Then
				%> <img src="images/newpost.gif" alt="开放论坛(有新回复)"> 
      <%
				Else
				%> <img src="images/nonew.gif" alt="开放论坛"> 
      <%
				End If
				%></td>
    <td align="left"> <% If blnAdmin Then %> <a href="javascript:openWin('puforumadmin.asp?fid=<%= intForumID %>','admin','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=400,height=425')"><img src="images/smadmin.gif" align="absmiddle" border="0"" alt="管理"></a> 
      <% end if %>
      『<a href="topic.asp?fid=<%= intForumID %>" target="_self" class="a"> 
      <%= strForumName %> </a>』<br /> <img src="images/discrip.gif" align="absmiddle" border="0" alt="论坛描述"><%= rsBBS("bbsdescrip") %></td>
    <td><%= strModeratorsList %></td>
    <td><%= CLng(rsBBS("topicnum")) %></td>
    <td><%= lngNumberOfPosts %></td>
    <td align="right"  nowrap="nowrap">By <a href="JavaScript:openWin('puprofile.asp?pf=<%= lngLastEntryUserID %>','profile','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=500,height=595')" class="smLink"><%= strLastEntryUser %></a>&nbsp;<br/>&nbsp;<%= dtmLastEntryDate %>&nbsp;</td>
    <td>&nbsp;<a href="post.asp?tid=<%= lngLastEntryTopicID %>&get=last#<%= lngLastEntryMeassgeID %>" ><img src="images/rightarrow.gif" align="absmiddle" border="0" alt="查看最后发表的帖子"></a>&nbsp;</td>
  </tr>
  <%
					End If
				intNumberofForums = intNumberofForums + 1
				rsBBS.MoveNext
			Loop
		End If
		rsBBS.Close
		rsTimes.MoveNext
	Loop
End If
%>
</table>
<br/>
<%
strSQL = "SELECT Count(timesuser.userid) AS CountUser FROM timesuser;"
rsConn.Open strSQL, adoCon
If NOT rsConn.EOF Then lngMember = CLng(rsConn("CountUser"))
rsConn.Close

strSQL = "SELECT Count(timesmess.messid) AS CountPm FROM timesmess;"
rsConn.Open strSQL, adoCon
If NOT rsConn.EOF Then lngPm = CLng(rsConn("CountPm"))
rsConn.Close


strSQL = "SELECT Count(timespoll.pollid) AS CountPoll FROM timespoll;"
rsConn.Open strSQL, adoCon
If NOT rsConn.EOF Then lngPoll = CLng(rsConn("CountPoll"))
rsConn.Close

strSQL = "SELECT TOP 1 timestopic.startdtm FROM timestopic ORDER BY timestopic.startdtm DESC;"
rsConn.Open strSQL, adoCon
If NOT rsConn.EOF Then dtmTopic = CDate(rsConn("startdtm"))
rsConn.Close

strSQL = "SELECT TOP 1 timespost.msgdtm FROM timespost ORDER BY timespost.msgdtm DESC;"
rsConn.Open strSQL, adoCon
If NOT rsConn.EOF Then dtmPost = CDate(rsConn("msgdtm"))
rsConn.Close

strSQL = "SELECT TOP 1 timesuser.joindtm FROM timesuser ORDER BY timesuser.joindtm DESC;"
rsConn.Open strSQL, adoCon
If NOT rsConn.EOF Then dtmMember = CDate(rsConn("joindtm"))
rsConn.Close

strSQL = "SELECT Count(timesonline.userid) AS ActiveUser From timesonline;"
rsConn.Open strSQL, adoCon
intActiveUsers = CInt(rsConn("ActiveUser"))
rsConn.Close
	
strSQL = "SELECT Count(timesonline.userid) AS ActiveUser From timesonline WHERE timesonline.userid=2;"
rsConn.Open strSQL, adoCon
intActiveGuests = CInt(rsConn("ActiveUser"))
intActiveMembers = intActiveUsers - intActiveGuests
rsConn.Close
%>
<table width="96%" align="center" border="0" cellspacing="1" cellpadding="0" bgcolor="<%= strTableBgcolour %>">
<tr><td height="25" colspan="4" class="tHeading" background="<% = strTableTitleBgImage %>">>>>论坛统计</td></tr>
<tr><td bgcolor="#FFFFFF" height="55">
<table width="96%" align="center" border="0" cellspacing="1" cellpadding="1">
		<tr class="smtext">
       <td width="100">在线: <b><% = intActiveUsers %></b> 人</td>
       <td width="120">会员数: <b> <% = lngMember %></b></td>
	   <td width="120">论坛数:<b> <% = intNumberofForums %></b></td>
       <td width="250">新会员加入时间:<% = FormatDateTime(dtmMember, vbLongDate) & " " &  FormatDateTime(dtmMember, vbShortTime) %></td>
	    </tr>
        <tr  class="smtext">
		<td width="100">用户:<b> <% = intActiveMembers %></b> 人</td>
         <td width="120">主题数:<b> <% = lngTotalNumberOfTopics %></b></td>
          <td  width="120">短信数: <b><% = lngPm %></b></td>
		  <td width="250">新主题发表时间:<% = FormatDateTime(dtmTopic, vbLongDate) & " " &  FormatDateTime(dtmTopic, vbShortTime) %></td>
        </tr>
		 <tr  class="smtext">
		 <td width="100">访客:<b> <% = intActiveGuests %></b> 人</td>
          <td width="120">回复数:<b> <% = lngPostNum %></b></td>
          <td width="120">投票数: <b><% = lngPoll %></b></td>
		  <td width="250">新回复发表时间:<% = FormatDateTime(dtmPost, vbLongDate) & " " &  FormatDateTime(dtmPost, vbShortTime) %></td>
        </tr>
		</table></td></tr>
      </table><br/>
	  
<table cellSpacing="1" cellPadding="0" align="center" width=96% bgcolor="<% = strTableBgColour %>">
<tr>
<td height="25" colspan="3" class="tHeading" background="<% = strTableTitleBgImage %>">>>>友情链接</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="38" align="center">
<img src="images/linkforum.gif"></td>
<td width="88"><a href="www.1000bibles.com"><img src="http://www.1000bibles.com/images/logo1000.gif" border="0" alt="专业的IT认证网站" width=88 height=31></a></td>
<td>
<%
set rslink=server.createobject("adodb.recordset")
strSQL="select id,name,intro,url,logo from timeslink"
rslink.Open strSQL, adoCon
do while not rslink.eof
response.write "<a title='"&rslink("name")&""&chr(10)&""&rslink("intro")&"' href="&rslink("url")&"  target=top><img src="&rslink("logo")&" border=0 width=88 height=31></a>"
rslink.movenext
loop
rslink.close
set rslink = Nothing
%></td></tr></table>
<%
rsTimes.Close
Set rsTimes = Nothing
Set rsBBS = Nothing
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>

<br/>
<br />
    <table width="600" border="0" cellspacing="0" cellpadding="2" align="center">
     <tr class="smText">
      <td width="170"><img src="images/nonew.gif" alt="开放论坛(无新回复)"> 开放论坛(无新回复)</td>
      <td width="170"><img src="images/closedtopic.gif" alt="只读论坛(无新回复)"> 只读论坛(无新回复)</td>
      <td width="110"><img src="images/password.gif" alt="加密论坛"> 加密论坛</td>
	  <td width="150"><a href="leave.asp?menu=postasread" target="_self" class="smLink">标记所有主题为已读</a></td>
     </tr>
     <tr class="smText">
      <td width="170"><img src="images/newpost.gif" alt="开放论坛(有新回复)"> 开放论坛(有新回复)</td>
      <td width="170"><img src="images/lockednew.gif" alt="只读论坛(有新回复)"> 只读论坛(有新回复)</td>
      <td width="110"><img src="images/noaccess.gif" alt="认证论坛"> 认证论坛</td>
     <td width="150"><a href="leave.asp?menu=delcookie" target="_self" class="smLink">删除论坛cookies</a></td>
	 </tr>
    </table>
    <br /><br/>

<!-- #include file="includes/footer.asp" -->