checknote.asp

自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑浏览又可以用手机访问的互动同学录单班级系统。这套系统同学录系统可以满足现在WAP普及的今天同学用手机上网交流的需求

<%
studentid=session("studentid")
name=session("name")
sub checknote
dim tips
tips=0
 set rs=server.createobject("adodb.recordset")
sql="select * from permsg where towho='"&studentid&"' and isread=0"
rs.open sql,conn,1,3
while (not rs.eof)
tips=tips+1
rs.movenext
wend
if tips>0 then
txt="<p><a href='readnote.asp?studentid="&studentid&"'>&#x65B0;&#x77ED;&#x6D88;&#x606F;"&tips&"&#x6761;</a></p>"
response.write txt
end if
rs.close
set rs=nothing 
end sub
%>