<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%
call head()
call Fortxtmsg
Call saycardc("我的信箱")
'检查有几条新留言
dim newguest
newguest = 0
IF myid > 0 THEN
  newguest = ForNewGuest(myid)
END IF
if newguest > 0 then
Response.write "<a href='msgview.asp?sid="&sid&"&amp;saytk="&saytk&"'>您有"&newguest&"条新消息</a><br/>"& chr(13)
end if

 '删除n天前消息,收藏信息不删除
 'conn.Execute"delete from Guest Where book<>1 and Ftm <= '"&date()-guestdaydel&"'"
conn.close
set conn=nothing
response.write"====我的消息盒子====<br/>"

'response.write"<a href=""msgaddall.asp?sid="&sid&"&amp;saytk="&saytk&""">群发信息</a><br/>"
response.write"<a href=""msgadd.asp?sid="&sid&"&amp;saytk="&saytk&""">编写新信息</a><br/>"
response.write"<a href=""msgin.asp?sid="&sid&"&amp;saytk="&saytk&""">收件箱</a><br/>"
response.write"<a href=""msgout.asp?sid="&sid&"&amp;saytk="&saytk&""">发件箱</a><br/>"

response.write"<a href=""msgaddall.asp?sid="&sid&"&amp;saytk="&saytk&""">群发信息</a><br/>"
response.write"<a href=""msgfv.asp?sid="&sid&"&amp;saytk="&saytk&""">我的书签</a><br/>"

response.write"<a href=""msgalldel.asp?sid="&sid&"&amp;saytk="&saytk&""">清空信箱</a><br/>"
response.write"===================="
response.write"<br/><a href='show.asp?sid="&sid&"&amp;saytk="&saytk&"'>我的小屋</a>"

%>
<!--#include file="fanhui.asp"-->
<%call head1()%>