bbs.asp

应用于高等院校党团思想教育

<!-- #include file = "conn_bbs.asp" -->
<%
Function GetOrder(Owner, TheID)

dim tmprs

  tmprs=Conn_BBS.execute("select [Order] from bbs Where Owner='" & owner & "' And ID=" & theid) 
  GetOrder=tmprs("Order") 
  set tmprs=nothing

Conn_BBS.Close
set Conn_BSS = nothing

End Function

Function GetGoodTipNum(Owner)
dim tmprs
    tmprs=Conn_BBS.execute("Select Count(ID) As Num from bbs Where isbest=1 and Owner='" & Owner & "'")
    getgoodtipnum=tmprs("Num")
	set tmprs=nothing
	if isnull(getgoodtipnum) then getgoodtipnum=0
End Function

Function GetMaxID(Owner)
dim tmprs
    tmprs=Conn_BBS.Execute("select max(ID) as maxid from bbs Where Owner='" & owner & "'")
    getmaxid=tmprs("maxid")
	set tmprs=nothing
	if isnull(getmaxid) then getmaxid=0
End Function
%>