bbsfun.asp

来自「自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑」· ASP 代码 · 共 127 行

<%
Function BBSNotic(BoardID)
	Dim rs
	set rs=conn.execute ("select bbsnotic from boards where BoardID="&BoardID)
	Response.Write(rs(0))
	rs.close
	set rs=nothing
	Response.Flush()
End Function


sub getBoardName
	dim rs
	set rs=conn.execute ("select BoardName from boards where boardid="&boardid)
	if rs.eof then
		BoardName="不存在这样的论坛版面！"
		boardexist=false
	else
		BoardName=rs("BoardName")
		boardexist=true
	end if
	rs.close
	set rs=nothing
End Sub

Rem 论坛斑竹
Function getbbsmaster(BoardID)
	Dim rs,masterlist
	set rs=conn.execute ("select masterlist	from boards where boardid="&BoardID)
	masterlist=rs(0)
	rs.close
	set rs=nothing
	If Instr(masterlist,",")>0 Then
		masterlist=Split(masterlist,",")
	Else
		masterlist=masterlist
	End If
	getbbsmaster=masterlist
End Function


Rem 显示论坛斑竹
Function showbbsmaster(BoardID)
	Dim rs,masterlist,i,tmpstr
	masterlist=""
	tmpstr=""
	set rs=conn.execute ("select masterlist	from boards where boardid="&BoardID)
	tmpstr=rs(0)
	rs.close
	set rs=nothing
	If tmpstr="" or isnull(tmpstr) Then
		masterlist="暂无版主"
	elseif Instr(tmpstr,",")>0 then
		tmpstr=Split(tmpstr,",")
		for i=0 to ubound(tmpstr)
			masterlist=masterlist&"<a href='"&const_txl_HomeUrl&"user/showuserinfo.asp?username="&tmpstr(i)&"'>"&getmasterusername(tmpstr(i))&"</a> "
		next
	else
		masterlist="<a href='"&const_txl_HomeUrl&"user/showuserinfo.asp?username="&tmpstr&"'>"&getmasterusername(tmpstr)&"</a>"
	End If
	Response.write masterlist
End Function


Rem	统计论坛新帖
Function Stat__announce_num(boardid)
	dim ann_num,ann_time
	ann_num="walkman_ann_num_"&boardid
	ann_time="walkman_ann_time_"&boardid
	Application.Lock()
	IF Isempty(Application(ann_num)) then
		Application(ann_num)=1
	Else
		Application(ann_num)=Application(ann_num)+1
	End IF
	Application(ann_time)=now()
	Application.UnLock()
End Function

Sub changeboard
	Dim rs,tmpstr
	tmpstr=""
	tmpstr=tmpstr&"<select name='jump' onChange=javascript:window.location.href=this.options[this.selectedIndex].value>"&Vbcrlf
	tmpstr=tmpstr&"<option value='index.asp' selected>===切换论坛至===</option>"&Vbcrlf
	tmpstr=tmpstr&"<option value='index.asp'>返回论坛首页</option>"&Vbcrlf
	set rs=conn.execute ("select boardid,boardname,orderid from boards order by orderid asc")
	while not rs.eof
		tmpstr=tmpstr&"<option value='BoardList.asp?BoardID="&rs("boardid")&"'>"&rs("boardname")&"</option>"&Vbcrlf
		rs.movenext
	wend
	rs.close
	set rs=nothing
	tmpstr=tmpstr&"</select>"
	Response.write tmpstr
End Sub

sub bbs_user_info(username)
	dim rst
	set rst=conn.execute ("select * from ec where studentid='"&username&"'")
%>
<table width="99%"  border="0" cellpadding="0" cellspacing="8" style="text-align:center;line-height:1.5;">
              <tr> 
                <td align="left"><font color="#0000FF"><%=rst("sname")%></font></td>
              </tr>
			  <tr> 
                <td height="45" align="left"> 
                  <a href='<%=const_txl_HomeUrl&"user/showuserinfo.asp?username="&username%>'><%=showuserpic(rst("pic"),rst("picwidth"),rst("picheight"))%></a>
                </td>
              </tr>
              <tr> 
                <td align="left"> <strong><%=rst("studentid")%></strong></td>
              </tr>
              <tr> 
                <td align="left">留言数：<%=rst("forumtimes")%></td>
              </tr>
              <tr> 
                <td align="left">登录数：<%=rst("logintimes")%></td>
              </tr>
              <tr> 
                <td align="left">上次登录：<span style="font-size:10px;"><%=datevalue(rst("lastedtime"))%></span></td>
              </tr>
</table>
<%
rst.close
set rst=nothing
End Sub
%>