group.asp

秘密网源代码 传闻拉了 100W风投

</table>
<table width="80%" height="8"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
<!-- #include file="Utility/OnLine.asp" -->
<%
regOnline=Conn.execute("Select count(sessionid) from [Wo_UserOnline] where UserName<>''")(0)
if BestOnline < Onlinemany then
	Conn.execute("update [Wo_SiteSettings] set BestOnline="&Onlinemany&",BestOnlineTime="&SqlNowString&"")
end if
if SiteConfig("DisplayWhoIsOnline")=1 then
%>
<table cellspacing=1 cellpadding=0 width=100% id=CommonListArea>
	<tr id=CommonListTitle2>
		<td>&nbsp;&nbsp;窝友在线信息</td>
	</tr>
	<tr id=CommonListCell>
		<td>
		<img src="images/plus.gif" id="followImg" style="cursor:pointer;" onClick="loadThreadFollow(<%=ForumID%>)">
		<%Response.Write("目前群组总共 有 <b>"&Onlinemany&"</b> 人在线。其中注册窝友 <b>"&regOnline&"</b> 人，访客 <b>"&Onlinemany-regOnline&"</b> 人。最高在线 <font color='red'><b>"&BestOnline&"</b></font> 人，发生在 <b>"&BestOnlineTime&"</b>")%><br>
		<div style="display:none" id="follow">
			<hr width="98%" SIZE="1" align="center"><span id=followTd><img src=images/loading.gif>正在加载...</span>
		<SCRIPT>loadThreadFollow(0,0)</SCRIPT>
		</div>
		</td>
	</tr>
</table>
<table width="80%" height="8"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
<%
end if
if SiteConfig("DisplayStatistics")=1 then
%>
<table cellspacing=1 cellpadding=0 width=100% id=CommonListArea>
	<tr id=CommonListTitle2>
		<td>&nbsp;&nbsp;统计信息</td>
	</tr>
	<tr id=CommonListCell>		
		<td><%
			Rs.open "select top 1 * from [Wo_Statistics] order by DateCreated desc",conn,1,3
			if Rs.eof then response.redirect "Install.asp"
		%>
		总共 <b><%=Rs("TotalTopics")%></b> 个主题 / <b><%=Rs("TotalPosts")%></b> 篇主题 / <b><%=Rs("TotalUsers")%></b> 位窝友<br>
		<%=FormatDateTime(Rs("DateCreated"),1)%>新增 <b><%=Rs("DaysTopics")%></b> 个新主题 / <b><%=Rs("DaysPosts")%></b> 篇新主题 / <b><%=Rs("DaysUsers")%></b> 位新窝友<br>
		欢迎新窝友 <a href='Profile.asp?UserName=<%=Rs("NewestUserName")%>'><b><%=Rs("NewestUserName")%></b></a>

		<%Rs.close%>
		
		</td>
	</tr>
</table>
<table width="80%" height="8"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
<%
end if
if SiteConfig("DisplayBirthdays")=1 then
%>
<table cellspacing=1 cellpadding=0 width=100% id=CommonListArea>
	<tr id=CommonListTitle2>
		<td>&nbsp;&nbsp;今天过生日的窝友</td>
	</tr>
		<tr id=CommonListCell><td>
<%
Set Rs=conn.Execute("Select UserName,Birthday From [Wo_Users] where Month(Birthday)="&Month(now())&" and day(Birthday)="&day(now())&"")
if Rs.eof then Response.Write "今天没有过生日的窝友" 
do while not Rs.eof
%><a href="Profile.asp?UserName=<%=RS("UserName")%>"><%=RS("UserName")%></a>　<%
Rs.Movenext
loop
Rs.close
%></td></tr>
</table><br>
<%
end if
%>
</td>
    </tr>
  </table>  
  <%
sub groupshow(pagenum)
if GroupID>0 then
	sql="Select * From [Wo_Groups] where SortOrder>0 and GroupID="&GroupID&" order by SortOrder"
else
	sql="Select * From [Wo_Groups] where SortOrder>0 order by SortOrder"
end if
Set Rs=Conn.Execute(sql)
do while not Rs.eof
	if RequestCookies("ForumGroupDisplay"&Rs("GroupID")&"")="none" then
		ForumGroupDisplay="style='display:none;'"
		ForumGroupDisplayImg="group_expand.gif"
	else
		ForumGroupDisplay=""
		ForumGroupDisplayImg="group_collapse.gif"
	end if
	
%>
<table cellspacing=1 cellpadding=0 width=99% id=CommonListArea border="0">
	<tr id=CommonListTitle>
		<td colspan="4">
			<table width="100%" cellspacing="0" cellpadding="0">
				<tr>
					<td width="45%">&nbsp;&nbsp;<a href="group.asp?GroupID=<%=Rs("GroupID")%>" title="<%=Rs("GroupDescription")%>"><%=Rs("GroupName")%></a></td>
					<td width="55%" align="right"><img style="CURSOR: pointer" onMouseDown="ForumGroupToggleCollapsed('<%=Rs("GroupID")%>')" src="images/<%=ForumGroupDisplayImg%>" id="ForumGroupImg<%=Rs("GroupID")%>" ></td>
				</tr>
			</table>
		</td>
	</tr>
	<tbody id="ForumGroup<%=Rs("GroupID")%>" <%=ForumGroupDisplay%>>
<%
	sql="Select * From [Wo_Forums] where GroupID="&Rs("GroupID")&" and ParentID=0 and SortOrder>0 and IsActive=1 order by SortOrder"
	Set Rs1=Server.CreateObject("adodb.recordset") 
	sql2="Select count(*) as i2 From [Wo_Forums] where GroupID="&Rs("GroupID")&" and ParentID=0 and SortOrder>0 and IsActive=1"
	Rs1.open sql2,conn,1,1
	i2=Rs1("i2")
	Rs1.close
	Rs1.open sql,conn,1,1
	response.Write("<tr id=CommonListCell>")
	i=0
	do while not Rs1.eof
	i=i+1	
if Rs1("TodayPosts")>0 then TodayPostsHtml="<font color='red'>("&Rs1("TodayPosts")&")</font>"
%>
<%if i=i2 and i mod pagenum <>0 then%>	
<td colspan="<%=pagenum%>">
<%else%>
<td align="center">
<%end if%>
          <table width="301" height="133"  border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td background="Images/group_indexbg.gif"><table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td class="postfontindex"><a href="ShowForum.asp?ForumID=<%=Rs1("forumid")%>"><%=Rs1("ForumName")%></a></td>
                    <td width="51" height="25" align="center" background="Images/digbg2.gif"><span class="postfonthuo"><%=Rs1("TotalThreads")%></span>主题</td>
                  </tr>
                </table>
                  <table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="80"><a href="ShowForum.asp?ForumID=<%=Rs1("forumid")%>"><%if rs1("Forumlogo")<>"" then%><img src="<%=rs1("Forumlogo")%>" width="70" height="60" border="0">
					  <%else%><img src="Images/group_logo001.jpg" width="70" height="60" border="0"><%end if%></a></td>
                      <td><%=left(Rs1("ForumDescription"),60)%>...<a href="ShowForum.asp?ForumID=<%=Rs1("forumid")%>">(进入)</a></td>
                    </tr>
                  </table>
                  <table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      <td><IMG alt=文章 src="images/Quote.gif"> 文章：<%=Rs1("TotalPosts")%> <IMG alt=行政官 src="images/visitor.gif"> 圈主：
					  <%if rs1("Moderated")<>"" then
ModeratedList=" "
filtrate=split(rs1("Moderated"),"|")
for j = 0 to ubound(filtrate)
ModeratedList=ModeratedList&"<a href=Profile.asp?UserName="&filtrate(j)&">"&filtrate(j)&"</a> "
next
else
ModeratedList="<a href=javascript:Wo_Modal.Open('MyMessage.asp?menu=Post&RecipientUserName=netwolf&subject=申请&gt;&gt;"&Rs1("ForumName")&"&lt;&lt;圈主&Body=【申请说明】',600,350);>申请圈主</a>"
end if
					  %> <%=ModeratedList%> </td>
                    </tr>
                </table></td>
            </tr>
          </table></td>
<%if i mod pagenum=0 then
response.Write("</tr><tr id=CommonListCell>")
end if
%>
		<%
		Rs1.Movenext
	loop
	Set Rs1 = Nothing
	response.write "</tr></tbody></table>"
	Rs.Movenext
loop
Rs.close
ForumName=SiteConfig("SiteName")
ForumID=0
end sub
%>

<%
end if
HtmlBottom
%>