<html>
<голова>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312">
<title> 显示自己的信息 </title>
<сценарий языка = javascript>
<!-
Функция проверяет (TheForm1) {
if (theform1.word.value == "")
{
оповещение ("请随便说几句。");
theform1.word.focus ();
вернуть ложь;
}
вернуть истину; }
//->
</script>
</head>
<тело>
<br> <br>
<%
username = session ("имя пользователя")
Установить conn = server.createObject ("adodb.connection")
Provider = "Provider = microsoft.jet.oledb.4.0;"
Dbpath = "source =" & server.mappath ("webuser.mdb")
Conn.Open Provider & DBPath
Установить rs = server.createObject ("adodb.recordset")
SQL = "SELECT ID, FromName, TONAME, WORD, ADDDATE, ISREAD из разговоров, где TONAME = '" & username & "andisRead = 0 порядок AddDate"
Rs.open SQL, Conn, 3,3
rs.pearsize = 1
Page = clng (запрос ("страница"))
Если страница <1, то Page = 1
Если страница> rs.pagecount, то page = rs.pagecount
%>
<form method = "post" name = form action = "oppermessage.asp">
<Таблица CellSpacing = "1" style = "Border-Collapse: Collapsse" 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> < % response.write "目前没有你的消息" %> </td>
</tr>
< % else %>
<tr>
<TD> <% Покажите RS, Page%> </TD>
</tr>
<tr>
<Td>
<%
Sub Show (RS, Page)
rs.absolutepage = page
%>
<таблица cell -spacing = "0" width = "534" cellpadding = "0">
< %Для ipage = 1 до rs. -pagesize %>
<tr>
<td colspan = "2"> <font color = red> <%= rs ("fromName")%> </font> 于 <%= rs ("AddDate")%> 传呼于你 </td>
</tr>
<tr>
<td colspan = "2">
<%
word = reply (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 = "Обновление разговоров set isread = -1, где id =" & rs ("id")
conn.execute (sql)
Rs.movenext
Если ref, то выйдите для
Следующее %>
</table>
</td>
</tr>
<tr>
<Td>
< %, Если страница <> rs.pagecount, то %>
<a href = showmessage.asp? Page = <%= (Page+1)%>> 下一条 </a>
< % End, если %>
</td>
</tr>
</table>
< % end sub %>
</td>
</tr>
<tr>
<td align = "center" colspan = "2">
<input type = "prope" value = "传呼" name = "b1"> <input type = "reset" value = "重写" name = "b2">
<input type = "button" value = "关闭窗口" onclick = javascript: window.close () name = "b3">
</td>
</tr>
</table>
</form>
<%
конец, если
Rs.close
Установить RS = ничего
Conn.close
установить conn = ничего
%>
</body>
</html>