<tr> <td width="437" colspan="2" height="8"> <table border="0" width="540" id="AutoNumber2"> <% if rs.eof or rs.bof then %> <tr> <td width="100%"><% response.write"目前没有你的消息" %></td> </tr> <% else %> <tr> <td width="100%"><% show rs,page%></td> </tr> <tr> <td width="100%"> <% Sub Show( rs, Page ) rs.AbsolutePage = Page %>
<table border="0" cellspacing="0" width="534" cellpadding="0"> <% For iPage = 1 To rs.PageSize %> <tr > <td colspan="2"><font color=red><%=rs("fromname")%></font>于<%=rs("adddate")%>传呼于你</td> </tr> <tr > <td colspan="2"> <% word=replace(rs("word"),vbcrlf,"<br>") response.write word %> </td> </tr> <tr> <td width="82">回复对象</td> <td width="452"> <input type="text" name="userid" size="15" value=<%=rs("fromname")%> readonly> </td> </tr> <tr> <td width="82" valign="top">回复信息</td> <td width="452"> <textarea name=word cols=40 rows="5"></textarea> </td> </tr> <tr> <td width="82"> </td> <td width="452">输入的汉字不要超过<font color="#FF0000">200</font>个汉字</td> </tr> <% sql="update talks set isread=-1 where id="&rs("id") conn.execute(sql) rs.movenext If rs.EOF Then Exit For Next %>
</table> </td> </tr> <tr> <td width="100%"> <% If Page <> rs.PageCount Then %> <a href= showmessage.asp?Page=<%=(Page+1)%>>下一条</a> <% End If %> </td> </tr> </table> <% end sub %> </td> </tr>
