messagecount.asp

这是一个校友录管理系统

<%
Function MessageCount(Active)
IF Active="all" Then
SQL="Select * From message Where incept='"& Session("User") &"'"
ElseIF Active="new" Then
SQL="Select * From message Where incept='"& Session("User") &"' And state='δ'"
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 news Where author ='"& 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 bless Where username ='"& 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 forum Where username ='"& 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 [user] Where username='"& Session("User") &"'"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
Response.Write RS("Lastdeng")
End Function
%>