<html>
<kopf>
<meta http-äquiv = "content-type" content = "text/html; charset = gb2312">
<title> 显示自己的信息 </title>
<script Language = JavaScript>
<!-
Funktionsprüfungen (theForm1) {
if (theform1.Word.Value == "")
{
alarm ("请随便说几句。");
theform1.word.focus ();
false zurückgeben;
}
zurückkehren; }
//->
</script>
</head>
<body>
<br> <br>
<%
Benutzername = Sitzung ("Benutzername")
Setzen Sie conn = server.createObject ("adodb.Connection").
Provider = "provider = microsoft.jet.oledb.4.0;"
Dbpath = "data source =" & server.mappath ("webuser.mdb"))
Conn.open Provider & DBPath
Setzen Sie rs = server.createObject ("adodb.recordset")
SQL = "ID, Fromname, Toname, Wort, AddDate, isRead aus Gesprächen, wobei Toname = '" & userername & "' andisread = 0 order by adddate"
Rs.open SQL, Conn, 3,3
Rs.PageSize = 1
Page = clng (Request ("Seite"))
Wenn Seite <1 dann Seite = 1
Wenn Seite> Rs.PageCount dann Seite = Rs.PageCount
%>
<form method = "post" name = form action = "subleMessage.asp">
<Table 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">
< %wenn Rs.eof oder Rs.Bof dann %>
<tr>
<td> < % response.write "目前没有你的消息" %> </td>
</tr>
< % sonst %>
<tr>
<td> <% zeigen RS, Page%> </td>
</tr>
<tr>
<td>
<%
Sub show (rs, Seite)
Rs.absolutepage = Seite
%>
<table Cellspacing = "0" width = "534" cellpadding = "0">
< %Für ipage = 1 bis rs.PageSize %>
<tr>
<td colspan = "2"> <font color = rot> <%= rs ("fromname")%> </font> 于 <%= rs ("AddDate")%> 传呼于你 </td>
</tr>
<tr>
<td colspan = "2">
<%
Word = Ersatz (RS ("Word"), VBCRLF, "<br>")
Antwort. Schreiben Sie Wort
%>
</td>
</tr>
<tr>
<td> 回复对象 </td>
<td>
<Eingabe 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-Gespräche setzen isRead = -1 wobei id =" & rs ("id").
Conn.Execute (SQL)
Rs.Movenext
Wenn rs.eof dann beenden für
Nächstes %>
</table>
</td>
</tr>
<tr>
<td>
< % Wenn Seite <> rs.pagecount dann %>
<a href = showMessage.asp? Seite = <%= (Seite+1)%>> 下一条 </a>
< % Ende wenn %>
</td>
</tr>
</table>
< % Ende Sub %>
</td>
</tr>
<tr>
<td align = "center" colspan = "2">
<Eingabe type = "sureichen" value = "传呼" name = "b1"> <Eingabe type = "reset" value = "重写" name = "b2">
<Eingabe type = "button" value = "关闭窗口" onclick = javaScript: window.close () name = "b3">
</td>
</tr>
</table>
</form>
<%
Ende wenn
rs.close
Setzen Sie Rs = nichts
conn.close
Setzen Sie Conn = nichts
%>
</body>
</html>