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