checknote.asp

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

<%
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
%>