mymessage.asp

来自「校园二手交易系统,具有完备的后台操作以及应用功能!」· ASP 代码 · 共 17 行

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