<html>
<头>
<meta http-equiv =“ content-type” content =“ text/html; charset = gb2312”>
<title>显示自己的信息</title>
<脚本语言= JavaScript>
<! -
功能检查(theform1){
if(theform1.word.value ==“”)
{
警报(“请随便说几句。”);
theform1.word.focus();
返回false;
}
返回true; }
// - >
</script>
</head>
<身体>
<br> <br>
<%
用户名= session(“用户名”)
设置conn = server.createobject(“ adodb.connection”)
提供者=“提供者= Microsoft.jet.oledb.4.0;”
dbpath =“ data source =”&server.mappath(“ webuser.mdb”)
Conn.open提供商和DBPath
设置rs = server.createobject(“ adodb.recordset”)
sql =“选择ID,FromName,Toname,Word,AddDate,来自Talks中的ISRead,其中Toname ='&username&”'andisRead = 0 by AddDate'
Rs.open SQL,康涅狄格州,3,3
rs.pagesize = 1
page = clng(请求(“ page”))
如果页<1,则页= 1
如果页> rs.pagecount,则页面= rs.pagecount
%>
<form method =“ post” name = form action =“ survistmessage.asp”>
<table cellspacing =“ 1”样式=“ border-collapse:collapse” bordercolor =“#111111” id =“ autonumber1” align =“ center”>
<tr>
<td colspan =“ 2”> <b> <font size =“ 3”> </font> </b> </td>
</tr>
<tr>
<td colspan =“ 2”>
<tablewidth =“ 540” id =“ autonumber2”>
<%如果rs.eof或rs.bof,则%>
<tr>
<td> <%响应。write“目前没有你的消息”%> </td>
</tr>
<%else%>
<tr>
<TD> <%显示RS,Page%> </td>
</tr>
<tr>
<td>
<%
子显示(RS,页面)
rs.absolutepage = page
%>
<table cellspacing =“ 0” width =“ 534” cellpadding =“ 0”>
<%ipage = 1至Rs.pageize%>
<tr>
<td colspan =“ 2”> <font color = red> <%= rs(“ fromName”)%> </font> <%= rs(“ adddate”)%>传呼于你</td>
</tr>
<tr>
<td colspan =“ 2”>
<%
word =替换(rs(“ word”),vbcrlf,“ <br>”)
响应。写字
%>
</td>
</tr>
<tr>
<td> </td>
<td>
<input type =“ text” name =“ userId” size =“ 15” value = <%= rs(“ fromName”)%> readonly>
</td>
</tr>
<tr>
<td valign =“ top”>回复信息</td>
<td>
<textarea name = word cols = 40行=“ 5”> </textarea>
</td>
</tr>
<tr>
<td> </td>
<td>输入的汉字不要超过<font color =“#ff0000”> 200 </font>个汉字</td>
</tr>
<%
sql =“更新谈话集set isread = -1其中id =”&rs(“ id”)
conn.execute(SQL)
Rs.Movenext
如果rs.eof然后退出
下一个%>
</table>
</td>
</tr>
<tr>
<td>
<%如果页<> rs.pagecount,则%>
<a href = showmessage.asp?page = <%=(page+1)%>> </a>
<%结束如果%>
</td>
</tr>
</table>
<%end sub%>
</td>
</tr>
<tr>
<td align =“中心” colspan =“ 2”>
<input type =“ sumbr” value =“传呼” name =“ b1”> <input type =“ reset” value =“重写” name =“ b2”>
<input type =“ button” value =“关闭窗口”
</td>
</tr>
</table>
</form>
<%
如果结束
Rs.Close
设置Rs =没有
conn.close
设置conn =没有
%>
</body>
</html>