<html>
<adal>
<meta http-equiv = "content-type" content = "text / html; charset = gb2312">
<Title> 显示自己的信息 </TITAL>
<Script Language = JavaScript>
<! -
Fonction Checks (theform1) {
if (theform1.word.value == "")
{
alerte ("请随便说几句。");
theform1.word.focus ();
retourne false;
}
Retour Vrai; }
// ->
</cript>
</ head>
<body>
<br> <br>
<%
nom d'utilisateur = session ("nom d'utilisateur")
Définir Conn = Server.CreateObject ("Adodb.Connection")
Provider = "provider = Microsoft. Jet.oledb.4.0;"
Dbpath = "data source =" & server.mappath ("webuser.mdb")
Conn.open fournisseur et DBPATH
set rs = server.createObject ("adodb.recordSet")
SQL = "SELECT ID, FromName, Toname, Word, Adddate, Isread From Talks Where Toname = '" & Username & "' andisread = 0 Order by Adddate"
Rs.Open SQL, Conn, 3,3
Rs.PageSize = 1
Page = clng (demande ("page"))
Si page <1 alors page = 1
Si page> Rs.PageCount alors page = Rs.PageCount
%>
<formulaire méthode = "post" name = formulaire form = "soumisesage.asp">
<Table CellSpacing = "1" style = "Border-Collapse: effondrement" 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">
<% si Rs.Eof ou Rs.Bof puis%>
<tr>
<TD> <% Response.Write "目前没有你的消息"%> </td>
</tr>
<% else%>
<tr>
<TD> <% Afficher RS, Page%> </td>
</tr>
<tr>
<TD>
<%
Sous-show (RS, page)
Rs.Absolutepage = Page
%>
<table cellSpacing = "0" width = "534" CellPadding = "0">
<% Pour iPage = 1 à Rs.PageSize%>
<tr>
<td Colspan = "2"> <font color = red> <% = rs ("FromName")%> </font> 于 <% = rs ("adddate")%> 传呼于你 </td>
</tr>
<tr>
<td colspan = "2">
<%
word = remplacer (rs ("word"), vbcrlf, "<br>")
réponse. Écriture mot
%>
</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 = "Update Talks Set isRead = -1 où id =" & rs ("id")
Conn.execute (SQL)
Rs.MovEnext
Si Rs.Eof, sortez pour
Next%>
</ table>
</td>
</tr>
<tr>
<TD>
<% Si page <> Rs.PageCount alors%>
<a href = showMessage.asp? Page = <% = (page + 1)% >> 下一条 </a>
<% Fin si%>
</td>
</tr>
</ table>
<% end sous%>
</td>
</tr>
<tr>
<td align = "Center" Colspan = "2">
<input type = "soumi" value = "传呼" name = "b1"> <input type = "reset" value = "重写" name = "b2">
<input type = "Button" value = "关闭窗口" onclick = javascript: window.close () name = "b3">
</td>
</tr>
</ table>
</ form>
<%
terminer si
Rs.Close
Définir RS = rien
Conn.Close
Définir Conn = Rien
%>
</docy>
</html>