mymessage.asp

来自「设计考虑校园电子商务模式」· ASP 代码 · 共 25 行

<%
'****************************************************
' 多多校园                      Power by ddtaobao.com
' Email:[e-mail]               OICQ:136465584 
' Web: http://www.ddtaobao.com              作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
%>
<!--#include file="Conn.asp"-->
<%
Dim StrSql,Rs
Set Rs=Server.CreateObject("adodb.recordset")
StrSql="Select Count(*) as num From [dd_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
%>