forum.asp

WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼

<!--#include file=INC/skin.asp-->
<!--#include file=INC/forum_bbsfun.asp-->

<%
dim const_txl_HomeUrl,errstr,i
errstr=""
const_txl_HomeUrl=""
call OpenDatabase
call txl_SiteHead(const_txlname&"-影音论坛")
Response.Flush()
call online
Call main
Response.Flush()
call CloseDatabase
call web_end
Response.Flush()
Sub main
	If const_bbs_login_limit=1	Then	'论坛登录查看限制
		If session("username")="" Then
			errstr="<li>当前Wap影音状态已经设置为<font color=red>影音论坛只有登录之后才能看到</font>!</li>"
			errstr=errstr&"<li>你现在还没有登录或者会话超时,点<a href='user_login.asp'>这里登录</a>!</li>"
			errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
			Call printerror("查看影音论坛出错！",errstr,779)
			Exit Sub
		End If
	ElseIf const_bbs_login_limit=2 Then
		If session("username")="" Then
			errstr="<li>当前Wap影音状态已经设置为<font color=red>影音论坛只有影音成员和嘉宾有查看权限</font>!</li>"
			errstr=errstr&"<li>你现在还没有登录或者会话超时,点<a href='user_login.asp'>这里登录</a>!</li>"
			errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
			Call printerror("查看影音论坛出错！",errstr,779)
			Exit Sub
		End If
		If not (session("usertype")=3 or session("usertype")=4)  Then
			errstr="<li>当前Wap影音状态已经设置为<font color=red>影音论坛只有影音成员和嘉宾有查看权限</font>!</li>"
			errstr=errstr&"<li>你目前的身份没有该权限！</li>"
			errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
			Call printerror("查看影音论坛出错！",errstr,779)
			Exit Sub
		End If
	End	If
%>
<table width="779" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td background="" style="padding:2px;vertical-align:top; " align="center"> 
      <table width="100%"  border="0" align="center" cellpadding="0" cellspacing="8">
        <tr> 
          <td colspan="2" class="rig1"><B> 当前位置： <a href="<%=const_homepageurl%>">首页</a> 
            &gt;&gt; <a href="<%=const_txl_HomeUrl&const_txlurl%>"><%=const_txlname%></a> 
            &gt;&gt; <a href="forum.asp">影音论坛</a> </B></td>
          <td height="25" bgcolor="#FFFFFF" class="more"> 
            <marquee direction="left" loop="-1" scrollamount="2" width="200" onMouseOver="this.stop()" onmouseout="this.start()">
            <%Call BBSNotic%>
            </marquee></td>
        </tr>
      </table>
      <table width="100%"  border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#BFBFBF" bgcolor="#FFFFFF" class="liu">
        <tr> 
          <td colspan="5" class="blu">+ 影音论坛区</td>
        </tr>
		<%Call ShowBBSList%>
        </table><br>
      <table width="100%"  border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#BFBFBF" bgcolor="#FFFFFF" class="liu">
		<tr> 
          <td class="blu">+ 论坛信息</td>
        </tr>
        <tr> 
          <td class="content"><%Call displaybbsinfo%></td>
        </tr>
        </table><br>
      <table width="100%"  border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#BFBFBF" bgcolor="#FFFFFF" class="liu">
        <tr> 
          <td  class="blu">+ 在线用户 </td>
        </tr>
        <tr> 
          <td class="content"> 
            <%
			call showonlineinfo
	  		 %>
          </td>
        </tr>
      </table></td>
  </tr>
</table> 
<%End Sub%>
<%Sub ShowBBSList
	Dim rs
	set rs=conn.execute ("select * from boards order by orderid	 asc")
	while not rs.eof
	If Isempty(Application("Csk3000_ann_num_"&rs("BoardID"))) Then
		Application.Lock
			Application("Csk3000_ann_num_"&rs("BoardID"))=0
			Application("Csk3000_ann_time_"&rs("BoardID"))=now()
		Application.UnLock
	End If
	If datediff("d",Application("Csk3000_ann_time_"&rs("BoardID")),now())<>0 Then
		Application.Lock
			Application("Csk3000_ann_num_"&rs("BoardID"))=0
			Application("Csk3000_ann_time_"&rs("BoardID"))=now()
		Application.UnLock
	End IF
%>
<tr> 
          <td width="4%"><img src="images/open.gif" width="24" height="24"></td>
          <td width="44%" class="content">
		  <a href="Forum_BoardList.asp?BoardID=<%=rs("BoardID")%>" title="<%=rs("boardname")%>"><%=rs("boardname")%></a><br>
          <%=rs("boardintro")%>
			</td>
          <td width="10%" class="content" align="center">主题 <%=rs("topicnum")%><br>
            新帖 <%=Application("Csk3000_ann_num_"&rs("BoardID"))%> <br>
            总量 <%=rs("AnnounceNum")%></td><td class="content"><%Response.write  ShowBoardNewest(Rs("BoardID"))%></td><td class="content"><%=showbbsmaster(rs("BoardID"))%></td></tr><%
		Rs.movenext
		Response.Flush()
	Wend
	Rs.close
	set rs=nothing
end Sub
%><%Sub BBSNotic
	Dim rs
	set rs=conn.execute ("select bbsnotic from config where id=1")
	Response.Write(rs(0))
	rs.close
	set rs=nothing
	Response.Flush()
End Sub
SUB displaybbsinfo
	dim rs,str_displaybbsinfo
	str_displaybbsinfo=""
	set rs=conn.execute ("select count(*) from Announce")
	str_displaybbsinfo=str_displaybbsinfo&"总帖量：<b>"&rs(0)&"</b>帖"
	rs.close
	set rs=conn.execute ("select count(*) from Announce where datediff('d',ndatetime,now())=0 ")
	str_displaybbsinfo=str_displaybbsinfo&"&nbsp;&nbsp;今日新帖：<b>"&rs(0)&"</b>"
	rs.close
	set rs=conn.execute ("select count(*) from Announce where goodflag=1 ")
	str_displaybbsinfo=str_displaybbsinfo&"&nbsp;&nbsp;精华帖：<b>"&rs(0)&"</b>"
	rs.close
	set rs=conn.execute ("select count(*) from boards ")
	str_displaybbsinfo=str_displaybbsinfo&"&nbsp;&nbsp;版面：<b>"&rs(0)&"</b>个"
	rs.close
	set rs=conn.execute ("select count(*) from Announce where datediff('d',ndatetime,now())=1 ")
	str_displaybbsinfo=str_displaybbsinfo&"&nbsp;&nbsp;昨日帖：<b>"&rs(0)&"</b>"
	rs.close
	set rs=nothing
	Response.Write(str_displaybbsinfo)
End SUB




'''''''''''''''''''''''''''''''''''
'显示论坛版面最新帖
'''''''''''''''''''''''''''''''''''
Function ShowBoardNewest(BoardID)
	Dim Rs,ToID
	Set Rs=conn.Execute ("select top 1 ID,parentID,boardid,title,username,ndatetime from Announce where boardid="&BoardID&" order by ID Desc")
	If Rs.Eof Then
		ShowBoardNewest="无"
		Exit Function
	End If
	If Rs("parentID")=0 Then 
		ToID=Rs("ID")
	Else
		ToID=Rs("parentID")
	End If
	ShowBoardNewest="<a href='announce.asp?boardid="&BoardID&"&announceid="&ToID&"' title=""点击查看新帖："&Rs("Title")&""">"&walkgotTopic(Rs("Title"),30)&"</a><br>("&getmasterusername(Rs("username"))&","&Rs("ndatetime")&")"
	Rs.Close
	Set Rs=Nothing
	Response.Flush
End Function
%>