messagecount.asp

程序名称：酷虎网校友录 V1.0 （商业版）*(修改版） * 本软体为商业软件

<%
Function MessageCount(Active)
IF Active="all" Then
SQL="Select * From 短信 Where 收件人='"& Session("User") &"'"
ElseIF Active="new" Then
SQL="Select * From 短信 Where 收件人='"& Session("User") &"' And 状态='未'"
End IF
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
Response.Write RS.RecordCount
End Function
Function InfoCount()
SQL="Select * From 信息发布 Where 发布者 ='"& Session("User") &"'"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
Response.Write RS.RecordCount
End Function
Function WishCount()
SQL="Select * From 真情祝福 Where 姓名 ='"& Session("User") &"'"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
Response.Write RS.RecordCount
End Function
Function GbookCount()
SQL="Select * From 留言信息 Where 姓名 ='"& Session("User") &"'"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
Response.Write RS.RecordCount
End Function
Function LastLogonTime()
SQL="Select * From 注册信息 Where 姓名='"& Session("User") &"'"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
Response.Write RS("最后登录时间")
End Function
%>