user_message.asp

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='User_Message_list.asp?studentid="&studentid&"'>&#x65B0;&#x77ED;&#x6D88;&#x606F;"&tips&"&#x6761;</a></p>"
response.write txt
end if
rs.close
set rs=nothing 
end sub
%>