mymessage.asp

本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Conn.asp"-->
<%
Dim StrSql,Rs
Set Rs=Server.CreateObject("adodb.recordset")
StrSql="Select Count(*) as num From [message] where jsr='"&session("user_name")&"' and ok='1'"
Rs.open StrSql,conn,1,1
IF Cstr(Rs("num"))="0" Then
  Response.Write "document.write ('<img src=images/msg_no_new_bar.gif>（<a href=usercenter.asp>您有短消息0新</a>）');"
Else
  Response.Write "document.write ('<img src=images/msg_new_bar.gif>您有短消息（<a href=usercenter.asp?gn=message>"&Rs("num")&"新</a>）<bgsound src=images/mail.wav border=0>');"
End IF
Rs.Close
Set Rs=Nothing
conn.Close
Set conn=Nothing
%>