<html>
<헤드>
<meta http-equiv = "content-type"content = "text/html; charset = gb2312">
<title> </title>
<스크립트 언어 = javaScript>
<!-
함수 확인 (Theform1) {
if (theform1.word.value == "")
{
경고 ( "请随便说几句。");
Theform1.word.focus ();
거짓을 반환합니다.
}
진실을 반환하십시오. }
//->
</script>
</head>
<body>
<br> <br>
<%
username = session ( "사용자 이름")
set conn = server.createobject ( "adodb.connection")
제공자 = "제공자 = microsoft.jet.oledb.4.0;"
dbpath = "data source ="& server.mappath ( "webuser.mdb")
Conn.open 제공 업체 및 DBPath
set rs = server.createobject ( "adodb.recordset")
sql = "select id, fromname, toname, word, adddate, isread where toname = '& username &"'andisread = 0 addDate "
Rs. Open SQL, Conn, 3,3
Rs.Pagesize = 1
page = clng (요청 ( "page"))
Page <1 인 경우 페이지 = 1입니다
page> rs.pagecount 인 경우 page = rs.pagecount
%>
<form method = "post"name = form action = "downsmessage.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">
rs.eof 또는 rs.bof 인 경우 %> 인 경우 < %>
<tr>
<td> < % response.write "目前没有你的消息" %> </td>
</tr>
< % else %>
<tr>
<td> <% show rs, page%> </td>
</tr>
<tr>
<td>
<%
하위 쇼 (Rs, Page)
rs.AbsolutePage = 페이지
%>
<table cellspacing = "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 = replace (rs ( "Word"), vbcrlf, "<br>")
응답. Word를 작성하십시오
%>
</td>
</tr>
<tr>
<td> </td>
<td>
<입력 유형 = "텍스트"이름 = "userId"size = "15"value = <%= rs ( "fromName")%> readOnly>
</td>
</tr>
<tr>
<td valign = "top"> 回复信息 </td>
<td>
<textArea name = Word cols = 40 줄 = "5"> </textRea>
</td>
</tr>
<tr>
<td> </td>
<td> <font color = "#ff0000"> 200 </font> </td>
</tr>
<%
SQL = "업데이트 대화 세트 세트 ISREAD = -1 여기서 id ="& rs ( "id")
Conn.Execute (SQL)
rs.movenext
rs.eof라면 종료하십시오
다음 %>
</테이블>
</td>
</tr>
<tr>
<td>
< % page <> rs.pagecount이면 %>
<a href = showmessage.asp? page = <%= (페이지+1)%>> 下一条 </a>
< % 종료 if %>
</td>
</tr>
</테이블>
< % end sub %>
</td>
</tr>
<tr>
<td align = "center"colspan = "2">
<입력 유형 = "제출"값 = "传呼 传呼"이름 = "b1"> <입력 유형 = "Reset"value = "重写"name = "b2">
<입력 유형 = "버튼"value = "关闭窗口"onclick = javaScript : window.close () name = "b3">
</td>
</tr>
</테이블>
</form>
<%
끝 If
Rs.Close
RS = 아무것도 설정하지 않습니다
conn.close
Conn = 아무것도 설정하지 않습니다
%>
</body>
</html>