<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>