<html>
<head>
<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 = เซสชัน ("ชื่อผู้ใช้")
ตั้งค่า conn = server.createObject ("adodb.connection"))
ผู้ให้บริการ = "ผู้ให้บริการ = microsoft.jet.oLedb.4.0;"
dbpath = "data source =" & server.mappath ("webuser.mdb"))
Conn.open Provider & DBPath
ตั้งค่า rs = server.createObject ("adodb.recordset"))
sql = "เลือก ID, fromName, toname, word, addDate, isRead จากการพูดคุยที่ toname = '" & ชื่อผู้ใช้ & "' AndisRead = 0 สั่งซื้อโดย addDate"
Rs.Open SQL, Conn, 3,3
Rs.Pagesize = 1
หน้า = CLNG (คำขอ ("หน้า"))
ถ้าหน้า <1 แล้วหน้า = 1
ถ้าหน้า> rs.pagecount แล้ว page = rs.pagecount
-
<form method = "post" name = form action = "submentMessage.asp">
<table cellspacing = "1" style = "การล่มสลายของชายแดน: ยุบ" 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>
< % อื่น %>
<tr>
<td> <% แสดง rs, page%> </td>
</tr>
<tr>
<td>
-
Sub Show (Rs, Page)
rs.absolutePage = หน้า
-
<table cellspacing = "0" width = "534" cellpadding = "0">
< %สำหรับ ipage = 1 ถึง rs.pagesize %>
<tr>
<td colspan = "2"> <font color = สีแดง> <%= rs ("fromName")%> </font> 于 <%= rs ("adddate")%> 传呼于你 </td>
</tr>
<tr>
<td colspan = "2">
-
word = แทนที่ (rs ("word"), vbcrlf, "<br>")
Response.write Word
-
</td>
</tr>
<tr>
<td> 回复对象 </td>
<td>
<input type = "text" name = "userId" size = "15" value = <%= rs ("fromName")%> อ่านอย่างใหม่>
</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 = "อัปเดตการพูดคุยชุด isread = -1 โดยที่ id =" & rs ("id")
conn.execute (SQL)
Rs.Movenext
ถ้า RS.EOF ออกจาก
ถัดไป %>
</table>
</td>
</tr>
<tr>
<td>
< % ถ้าหน้า <> rs.pagecount แล้ว %>
<a href = showmessage.asp? page = <%= (หน้า+1)%>> 下一条 </a>
< % end ถ้า %>
</td>
</tr>
</table>
< % end sub %>
</td>
</tr>
<tr>
<td align = "center" colspan = "2">
<input type = "subment" value = "传呼" name = "b1"> <อินพุต 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>