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