<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<!--#include file="../include/conn.asp"-->
<!--#include file="../include/config.asp"-->
<%'禁止网页缓存及涮新
Response.Buffer = True 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = -1440 
Response.CacheControl = "no-cache"
dx=0
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 or rs(0)<>1 then
Response.Cookies(Rikee)("huiyuan")=""
Response.Cookies(Rikee)("hypwd")=""
else
dx=conn.execute("select count(id) from duanxin where name1='"&Request.Cookies(Rikee)("huiyuan")&"' and zt=0")(0)
end if

end if
conn.close:set conn=nothing
if dx>0 And request.Cookies(rikee)("zhanneixin")="" then 
Response.Write "document.write(""<bgsound src='/zhanneixin/image/sy.wav' border=0 ><script>showModelessDialog('/zhanneixin/dx.asp','jst','center:no;dialogLeft:60px;dialogTop:600px;scroll:0;status:70;help:70;resizable:70;dialogWidth:450px;dialogHeight:300px')</script>"");"
end if
If request("abc")<>"k" Then
Response.Write "document.write(""&nbsp;<a href='/user/duanxin.asp' target=_blank>站内信"&dx&"</a>"");"
end if%>
