<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%call head()
call Fortxtmsg
Call saycarda("查看消息")
dim id,ffid,js,touser
id=request("id")
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select id,fnr,fid,sid from guest where book=0 and fdel=0 and id="&id&" and fid="&myid,conn,1,1
if rs.eof then
response.write"没有本信息<br/>"
else
js=rs("fnr")
ffid=rs("sid")
rs.close
set rs=nothing
set rs=Server.CreateObject("ADODB.Recordset")
 rs.open"select id,name from Users where id="&ffid,conn,1,1
if rs.eof then
touser="nouser"
Else
touser=rs("name")
rs.close
set rs=nothing
end if
conn.close
set conn=nothing
response.write""&ubb2(js)&"<br/>"
if zuoze<>"nouser" then
response.write"写给："
response.write"<a href=""uinfo.asp?id="&ffid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"&ubb(touser)&"</a>"
end if
if zuoze="nouser" then
response.write"系统消息<br/>"
end if
end if%>
<br/><a href="mymsg.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">我的信箱</a>
<!--#include file="fanhui.asp"-->
<%call head1()%>