<html>
<head>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312">>
<title> ข้อความประวัติศาสตร์ </title>
<ภาษาสคริปต์ = "JavaScript">
-
ฟังก์ชั่นตรวจสอบ (แบบฟอร์ม) {
สำหรับ (var i = 0; i <document.checkboxform1.length; i ++) {
var e = document.checkboxform1 [i];
if (e.name! = 'chkall') e.checked = form.chkall.Checked;
-
-
// ตรวจสอบว่ามีการเลือกบันทึกหรือไม่
ฟังก์ชั่น CHECKBOX1 (แบบฟอร์ม)
-
var thelength;
var i, j;
thelength = form.id.length;
i = 0;
j = 0;
ในขณะที่ (i <ความยาว) {
if (form.id [i]. ตรวจสอบ)
J ++;
i ++;
-
if (j == 0 &&! form.id.checked) {
การแจ้งเตือน ("โปรดเลือกลบบันทึกก่อน");
กลับเท็จ;
-
กลับมาจริง;
-
// ทริกเกอร์เมื่อคลิกปุ่ม "ลบ"
ฟังก์ชั่น del (ฟอร์ม)
-
if (! checkbox1 (แบบฟอร์ม)) {
กลับเท็จ;
-
อื่น
ถ้า (ยืนยัน ('คุณแน่ใจว่าต้องการลบบันทึกเหล่านี้')) {
window.location.href = "deletEmessage.asp? page = <%= clng (หน้า)%>"}
-
-
</script>
</head>
<body>
<br> <br> <%
ตั้งค่า conn = server.createObject ("adodb.connection"))
ผู้ให้บริการ = "ผู้ให้บริการ = microsoft.jet.oLedb.4.0;"
dbpath = "แหล่งข้อมูล =" & server.mappath ("webuuser.mdb"))
Conn.open Provider & DBPath
username = เซสชัน ("ชื่อผู้ใช้")
ถ้าชื่อผู้ใช้ <> "" แล้ว
sql = "select * จากการพูดคุยที่ fromname = '" & username & "' หรือ toname = '" & ชื่อผู้ใช้ & "' คำสั่งซื้อโดย adddate desc"
ตั้งค่า rs = server.createObject ("adodb.recordset"))
Rs.Open SQL, Conn, 3,3
Rs.Pagesize = 15
หน้า = CLNG (คำขอ ("หน้า"))
ถ้าหน้า <1 แล้วหน้า = 1
ถ้าหน้า> rs.pagecount แล้ว page = rs.pagecount
-
<table cellpacing = "0" width = 590cellpadding = "0" Align = center>
<tr>
<td> <font size = "2"> ดูข้อความประวัติศาสตร์ของฉัน (<b> <font color = "#ff0000"> ประวัติการแชทจะถูกบันทึกไว้เป็นเวลาหนึ่งสัปดาห์โปรดสำรองข้อมูลของคุณเอง </font> </b> ) </font> </b>) ตัวอักษร> </td>
</tr>
< % ถ้า RS.EOF หรือ Rs.bof แล้ว %>
<tr>
<td> <font color = "#ff0000"> หากไม่มีบันทึกทางประวัติศาสตร์ของคุณโปรดสื่อสารกับคุณอย่างรวดเร็ว </font>! - - </td>
</tr>
< % อื่น %>
<tr>
<td align = "center">
<form action = history.asp name = f1>
< % ถ้าหน้า <> 1 แล้ว %>
<a href = history.asp? page = 1> หน้า 1 </a>
<a href = history.asp? page = <%= (หน้า 1)%>> หน้าก่อนหน้า </a>
<% สิ้นสุดถ้า
ถ้าหน้า <> rs.pagecount แล้ว%>
<a href = history.asp? page = <%= (หน้า+1)%>> หน้าถัดไป </a>
<a href = history.asp? page = <%= rs.pagecount%>> หน้าสุดท้าย </a>
< % end ถ้า %>
หน้า: <font color = "red"> <%= page%>/<%= rs.pagecount%> </font>
<ประเภทอินพุต = ขนาดข้อความ = 4 maxLength = 4 name = page>
</form>
</td>
</tr>
<tr>
<td> < % แสดง rs, page %> </td>
</tr>
< % end ถ้า %>
<tr>
<td>
-
Sub Show (Rs, Page)
rs.absolutePage = หน้า
count = rs.pagesize
-
<form name = "checkboxform1" method = post action = "deletEmessage.asp? page = <%= clng (หน้า)%>">>
<table cellpacing = "0" width = "590" cellpadding = "0" align = center>
-
ทำในขณะที่ไม่ใช่ rs.eof และ count> 0
-
<tr bgcolor = "#d8d3cd">
<td> <อินพุต type = "ช่องทำเครื่องหมาย" name = "id" value = "<%= rs (" id ")%>"> <b> <%= rs ("fromName")%> </b> </b> %= rs ("adddate")%> paging <b> <%= rs ("toname")%> </b> </td> </tr>
<tr>
<td ความสูง = 22> <%
word = แทนที่ (rs ("word"), vbcrlf, "<br>")
Response.Write Word %>
</td>
</tr>
-
count = count-1
Rs.Movenext
วง
-
<tr>
<td>
<อินพุต type = "ช่องทำเครื่องหมาย" id = "check1" name = "chkall" value = "on"> <label for = "check1"> คลิกที่กล่องกาเครื่องหมายหรืออักขระภาษาจีนเพื่อเลือก qing ทั้งหมด </lable>
<อินพุต type = "subment" value = "ลบข้อมูลที่เลือก" name = "shanchu"> </td>
</tr>
</table>
</form>
<% end sub%>
</td>
</tr>
</table>
-
sql = "เลือก adddate, id จากการพูดคุย"
ตั้งค่า obj = conn.execute (SQL)
ถ้าไม่ obj.eof แล้ว
ทำในขณะที่ไม่ obj.eof
sql = "ลบจากการเจรจาที่ (วัน (ตอนนี้) -day (adddate)> 8)"
conn.execute (SQL)
obj.movenext
วง
สิ้นสุดถ้า
obj.close
ตั้งค่า obj = ไม่มีอะไร
สิ้นสุดถ้า
Rs.close
ตั้งค่า rs = ไม่มีอะไร
conn.close
ตั้งค่า conn = ไม่มีอะไร
-
</body>
</html>