<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Include/Connect.asp"-->
<%
Username=Checkstr(request.querystring("Username"))
if Username="" then
response.end()
end if
%>
<html>
<head>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../CSS/Hompy/hompy.css" type=text/css rel=stylesheet>
<title></title>
</head>
<body  oncontextmenu="window.event.returnValue=false" onselectstart="return false">
<%
set rs = server.CreateObject("adodb.recordset")
sql="select * from Show5_ALLMessage where Username='"&username&"' Order By MessageID DESC"
rs.open sql,cn,1,1
if rs.eof or rs.bof then
response.write "ÔÝÎÞÁôÑÔ£¡"
else
do while not rs.eof
%>
<table width="460" height="25" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="22" valign="top" style="PADDING-TOP: 5px"><img src="../Images/Hompy/bbs_ic111.gif" width="16" height="16" align="absmiddle"></td>
    <td width="438" style="word-break:break-all"><a class=popmenu href="hompy.asp?username=<%=rs("MUser")%>" target="_blank"><%=rs("MUser")%></a><SPAN style="FONT: 9px verdana; COLOR: #7f7f7f; LETTER-SPACING: -1px">(<%=rs("Posttime")%>)</SPAN>:<%=rs("Content")%>
	<%
	if DateDiff("d",rs("Posttime"),now())<3 then
	response.write " <img src='../Images/Hompy/ico_new.gif' width='10' height='8' border='0' align='absmiddle'>"
	end if
	%></td>
  </tr>
</table>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</body>
</html>
