group.asp

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

<!-- #include file="Setup.asp" -->
<!--#include file="WoLib/Cls_Class.asp"-->
<!--#include file="WoLib/Function.asp"-->
<%
Dim Default
set Default = New Cls_Default
GroupID=RequestInt("GroupID")
HtmlTop
if GroupID>0 then
groupshow(3)
%>

<%else
%>

  <table width="900"  border="0" align="center" cellpadding="0" cellspacing="0">
    <tr><td width="640" valign="top"><table width="99%"  border="0" cellpadding="0" cellspacing="1" bgcolor="#D3D3D3">
          <tr>
            <td height="50" bgcolor="#FFFFFF"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
              <tr>
                <td><div id="CommonBreadCrumbArea">
                    <%ClubTree%></div></td>
                <td align=right><a href=ShowBBS.asp?menu=MyTopic&amp;UserName=<%=CookieUserName%>>我的主题</a> | <a href=showbbs.asp>查看新主题</a> | <a href=ShowBBS.asp?menu=GoodTopic>精华主题</a> | <a href=ShowBBS.asp?menu=HotReplies>热门主题</a> | 新会员:<b><%=conn.execute("select username from [Wo_Users] order by UserID desc")(0)%></b></td>
              </tr>
              <tr>
                <td><%
      response.write show111
      if  CookieUserName=empty then
      response.write "窝友等级:游客 请 [<a href=login.asp><font color=800000>登录</font></a>] 或 [<a href=CreateUser.asp><font color=800000>注册</font></a>] 后进行操作"
      else
      if conn.execute("select UserRoleID from [Wo_Users] where UserName='"&CookieUserName&"'")(0)=1 then
      show111="管理员"
      elseif conn.execute("select UserRoleID from [Wo_Users] where UserName='"&CookieUserName&"'")(0)=1 then
      show111="超级版主"
      else
      show111="注册会员"
      end if
      response.write "窝友等级:"&show111&" 金钱:"&conn.execute("select UserMoney from [Wo_Users] where UserName='"&CookieUserName&"'")(0)&" 经验:"&conn.execute("select Experience from [Wo_Users] where UserName='"&CookieUserName&"'")(0)&" 发贴:"&conn.execute("select count(*) from [Wo_Posts] where PostAuthor='"&CookieUserName&"'")(0)
      end if       
      %>
    　                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         </td>
                <td align=right><%
	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("DaysPosts")%></b> 篇主题 | <b><%=Rs("TotalUsers")%></b> 位会员</td>
              </tr>
            </table></td>
          </tr>
        </table>
		<br/>
<table cellspacing=1 cellpadding=0 width=99% id=CommonListArea>
	<tr id=CommonListTitle>
		<td>&nbsp;&nbsp;最新发表的主题...</td>
	</tr>
		<tr id=CommonListCell>
		<td>
		<%
		rs.close
	sql="select top 10 * from [Wo_Threads] where IsApproved=1 and IsDel=0 order by ThreadID Desc"
	set Rs1= Server.CreateObject("adodb.recordset")
	Rs.Open sql,Conn,1
	if Rs.Eof then
	Response.Write("还没有人发表话题哦__|")
	else
	do while not rs.eof
		if Rs("ThreadTop")=2 then
		IconImage="topic-announce.gif alt='公告主题'"
	elseif Rs("ThreadTop")=1 then
		IconImage="topic-pinned.gif alt='置顶主题'"
	elseif Rs("IsGood")=1 then
		IconImage="topic-popular.gif alt='精华主题'"
	elseif Rs("IsLocked")=1 then
		IconImage="topic-locked.gif alt='主题锁定'"
	elseif Rs("IsVote")=1 then
		IconImage="topic-poll.gif alt='投票主题'"
	elseif DateDiff("d",Rs("PostTime"),Now()) <= SiteConfig("PopularPostThresholdDays")   and  (  Rs("TotalReplies")=>SiteConfig("PopularPostThresholdPosts") or  Rs("TotalViews")=>SiteConfig("PopularPostThresholdViews") ) then
		IconImage="topic-hot.gif alt='热门主题'"
	else
		IconImage="topic.gif alt='普通主题'"
	end if
	
	if Rs("TotalReplies")=0 then
		replies="-"
	else
		replies=Rs("TotalReplies")
	end if
	
	if Rs("Category")<>"" then
		CategoryHtml="[<a href=ShowForum.asp?ForumID="&Rs("ForumID")&"&Category="&Rs("Category")&">"&Rs("Category")&"</a>] "
	else
		CategoryHtml=""
	end if
	if Rs("ThreadEmoticonID")>0 then
		ThreadEmoticonID="<img src=images/Emotions/emotion-"&Rs("ThreadEmoticonID")&".gif> "
	else
		ThreadEmoticonID=""
	end if
	digcount=Rs("DIgCount")
	sql3="select * from Wo_Forums where ForumID="&Rs("ForumID")
	Rs1.open sql3,conn,1,3
	if Rs1.eof then
	response.Write("暂无任何主题!")
	else
	forumname=Rs1("ForumName")
	forumid=Rs1("ForumID")
	%>
	<tr id=CommonListCell onMouseOver =this.style.backgroundColor='#F4FBFF' onMouseOut =this.style.backgroundColor='#FFFFFF' height="30">
		<td>

				<table width="98%" align="center" cellspacing="0" cellpadding="0">
					<tr>
						<td background="images/digbg2.gif" class="bg" width="52" height="25" align="center"><%=digcount%>℃</td>
						<td width="35" align="center"><a target="wh" href="ShowPost.asp?ThreadID=<%=Rs("ThreadID")%>"><img src=images/<%=IconImage%> border=0 ></a></td>
						<td width="50%"><%=checkboxHtml%><%=ThreadEmoticonID%><%=CategoryHtml%><a href="ShowPost.asp?ThreadID=<%=Rs("ThreadID")%>" title="<%=Rs("Topic")%>"><%=left(Rs("Topic"),25)%></a><%=ShowPostPage%><%=NewHtml%></td>						
						<td align="left">作者:<a href="Profile.asp?UserName=<%=Rs("PostAuthor")%>"><%=Rs("PostAuthor")%></a>
						<%=replies%>/<%=Rs("TotalViews")%>
						 所属:<a href="ShowForum.asp?ForumID=<%=forumid%>"><%=forumname%></a></td>
					</tr>
				</table>

		</td>		
		
	</tr>
	<%
	end if
	Rs1.close
	rs.movenext
	loop
	end if
	rs.close
		%>
		</td>
		</tr>
</table>
<table width="80%" height="8"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
	  <%groupshow(2)%>
	  </td>
      <td valign="top">
	  <%
sql="[Wo_Threads] where IsApproved=1 and IsDel=0 and ThreadTop=2 order by ThreadID Desc"
Set Rs=Conn.Execute(sql)
if Not Rs.Eof Then 
%>
      <table width=100% border="0" cellpadding=0 cellspacing=1 id=CommonListArea>
	<tr id=CommonListTitle1>
		<td>&nbsp;&nbsp;群组公告...</td>
	</tr>
	<tr id=CommonListCell>
		<td>
		  <%
		Do While Not Rs.Eof
			Response.Write "&nbsp; <img src='Images/gonggao.gif'>&nbsp;<a href='ShowPost.asp?ThreadID="&Rs("ThreadID")&"' title='"&Rs("Topic")&"'>"&left(Rs("Topic"),25)&"</a> ("&FormatDateTime(Rs("PostTime"),2)&")<br>"
			Rs.MoveNext
		Loop
	%></td></tr>
</table>	
<%
End If
Rs.Close
%>
<table width="80%" height="8"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
	  <table width=100% border="0" cellpadding=0 cellspacing=1 id=CommonListArea>
  <tr id=CommonListTitle2>
    <td>&nbsp;&nbsp;还没有适合我的圈子？</td>
  </tr>
  <tr id=CommonListCell>
    <td><a href='NewForum.asp'>申请新群组</a></td>
  </tr>
</table>
<table width="80%" height="8"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
<table width=100% border="0" cellpadding=0 cellspacing=1 id=CommonListArea>
  <tr id=CommonListTitle2>
    <td>&nbsp;&nbsp;推荐窝友...</td>
  </tr>
  <tr id=CommonListCell>
    <td><%Call Default.Get_TopUser%></td>
  </tr>