<Html>
<head>
<meta http-equiv = "konten tipe" content = "text/html; charset = gb2312">
<title> 显示自己的信息 </iteme>
<bahasa skrip = javascript>
<!-
function checks (theForm1) {
if (theForm1.word.value == "")
{
peringatan ("请随便说几句。");
theForm1.word.focus ();
mengembalikan false;
}
Kembali Benar; }
//->
</script>
</head>
<body>
<br> <br>
<%
nama pengguna = sesi ("nama pengguna")
Set Conn = Server.CreateObject ("AdodB.Connection")
Provider = "Provider = microsoft.jet.oledb.4.0;"
Dbpath = "Sumber data =" & server.mappath ("WebUser.mdb")
Penyedia Conn.Open & DBPath
Set RS = Server.CreateObject ("ADODB.Recordset")
sql = "Pilih id, dari nama, toname, word, addDate, isread dari pembicaraan di mana toname = '" & username & "andisread = 0 pesanan dengan addDate"
Rs.open SQL, Conn, 3,3
rs.pagesize = 1
Halaman = clng (permintaan ("halaman"))
Jika halaman <1 maka halaman = 1
Jika halaman> rs.pagecount maka halaman = rs.pagecount
%>
<Form Method = "Post" Name = Form Action = "SubmitMessage.asp">
<tabel cellspacing = "1" style = "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">
< %jika rs.eof atau rs.bof maka %>
<tr>
<td> < % response.write "目前没有你的消息" %> </td>
</tr>
< % else %>
<tr>
<td> <% show rs, halaman%> </td>
</tr>
<tr>
<td>
<%
Sub show (rs, halaman)
rs.Absolutepage = halaman
%>
<tabel cellspacing = "0" width = "534" cellpadding = "0">
< %Untuk ipage = 1 hingga rs.pageSize %>
<tr>
<td colspan = "2"> <font color = red> <%= rs ("fromname")%> </font> 于 <%= rs ("addDate")%> 传呼于你 </td>
</tr>
<tr>
<td colspan = "2">
<%
word = ganti (rs ("word"), vbcrlf, "<br>")
response.write word
%>
</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 ROWS = "5"> </texTarea>
</td>
</tr>
<tr>
<td> </td>
<td> 输入的汉字不要超过 <font color = "#ff0000"> 200 </font> 个汉字 </td>
</tr>
<%
sql = "Perbarui pembicaraan set isread = -1 di mana id =" & rs ("id")
Conn.execute (SQL)
rs.movenext
Jika rs.eof maka keluar untuk
%Berikutnya>
</boable>
</td>
</tr>
<tr>
<td>
< % Jika halaman <> rs.pagecount maka %>
<a href = showmessage.asp? page = <%= (halaman+1)%>> 下一条 </a>
< % Berakhir jika %>
</td>
</tr>
</boable>
< % end sub %>
</td>
</tr>
<tr>
<td align = "center" colspan = "2">
<input type = "kirim" value = "传呼" name = "b1"> <input type = "reset" value = "重写" name = "b2">
<input type = "tombol" value = "关闭窗口" ontClick = javaScript: window.close () name = "b3">
</td>
</tr>
</boable>
</form>
<%
akhiri jika
rs.close
Setel RS = tidak ada
Conn.Close
atur conn = tidak ada
%>
</body>
</html>