<!--#include file="conn/conn.asp"-->
<script language="javascript">
tsmsn="no"
</script>
<%
if session("user")<>"" then
if session("wwwline1")="" or datediff("s",session("wwwline1"),now())>300 then
session("wwwline1")=now()
%>
<!--#include file="line.asp"-->
<%
end if
if session("wwwdate1")="" then
session("wwwdate1")=now()
end if
if datediff("s",session("wwwdate1"),now())>15 then
session("wwwdate1")=now()
session("user")=session("user")
Set msn= Server.CreateObject("ADODB.Recordset") 
msn.open"select id,sendcid from snsn_getprice where (mycid="&session("id")&" and sendflag<>1) or mycid=0 order by id desc",conn,1,1
if not msn.eof then
Set msn1= Server.CreateObject("ADODB.Recordset") 
msn1.open"select name from snsn_user where id="&msn("sendcid"),conn,1,1
if  session("tsmsn")<>msn("id") then
session("tsmsn")=msn("id")
%>
<script language="javascript">
parent.dhsmsn('<%=msn1("name")%>','dhs007','00:00')
parent.getMsg("eMeng")
tsmsn="ok"
</script>
<%
end if
end if
Set yq= Server.CreateObject("ADODB.Recordset") 
yq.open"select top 1 * from snsn_msn where yquser='"&session("user")&"'",conn,1,3
if not yq.eof  then
if session("tsyq")<>yq("id") then
session("tsyq")=yq("id")
%>
<script language="javascript">
if(tsmsn=="no"){
parent.dhsmsn('1','<%=yq("user")%>','<%=right((yq("yqdate")),8)%>')
parent.getMsg("eMeng1")}
</script>
<%
yq.delete()
end if
end if
end if%>
<script language="javascript">
function shuaxing(){location.reload()}
setTimeout("shuaxing()",20000)
</script>
<%end if%>
