<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<HTML><HEAD>
<link href="../include/css.css" rel="stylesheet" type="text/css">

<title>站内信</title></HEAD>
<BODY leftMargin=0 topMargin=0>
<!--#include file="../include/conn.asp"-->
<!--#include file="inc.asp"-->
<!--#include file="../include/config.asp"-->
<!--#include file="ubb.asp"-->
<%'删除超过x天的站内信记录
conn.execute("Delete * from duanxin where datediff('d',sj,now())>"&chat_del_sj&" and (lx=1 or lx=2)")

'会员判断
if Request.Cookies(Rikee)("huiyuan")<>"" and Request.Cookies(Rikee)("hypwd")<>"" then
set rs = conn.execute("select zt from huiyuan where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"' and password='"&(Request.Cookies(Rikee)("hypwd"))&"'")
if rs.eof then
Response.Cookies(Rikee)("huiyuan")=""
Response.Cookies(Rikee)("hypwd")=""
Response.end
end if
rs.close:set rs=nothing
else
Response.Write "您不是会员或尚未登陆，会员登陆后才能接收查看站内信！"
Response.end
end if

if request("id")<>"" then
set rs = conn.execute("select bt,nr from duanxin where name1='"&Request.Cookies(Rikee)("huiyuan")&"' and id="&shopnet("id")&"")
if not rs.eof then
Response.Write "<table width=100% height=100% border=0 cellpadding=0 cellspacing=0><tr><td valign=top style='word-break: break-all'>"&rs(0)&"<br>"&UBB(Replace(Replace(rs(1), vbCrLf, "<br>"), chr(32), "&nbsp;"))&"</td></tr></table>" 
else
Response.Write ""
end if
rs.close
set rs=nothing
Response.end
end if
conn.close
set conn=nothing
%>
</BODY></HTML>
