<html>
<head>
<meta http-equiv = "content-type" content = "text/html ؛ charset = gb2312">
<title> الرسالة التاريخية </title>
<script language = "javaScript">
<!-
وظيفة checkall (النموذج) {
لـ (var i = 0 ؛ i <document.checkboxform1.length ؛ i ++) {
var e = document.checkboxform1 [i] ؛
if (e.name! = 'chkall')
}
}
// تحقق مما إذا تم تحديد السجل
مربع اختيار الوظيفة 1 (النموذج)
{
فار ثيل الطول.
var i ، j ؛
theLength = form.id.length ؛
أنا = 0 ؛
J = 0 ؛
بينما (i <thelength) {
إذا (form.id [i].
J ++ ؛
i ++ ؛
}
if (j == 0 &&! form.id.checked) {
ALERT ("يرجى تحديد حذف السجل أولاً") ؛
العودة كاذبة
}
العودة صحيح.
}
// يتم تشغيله عند النقر فوق الزر "حذف"
وظيفة del (نموذج)
{
if (! checkbox1 (form)) {
العودة كاذبة
}
آخر
إذا (تأكيد (هل أنت متأكد من أنك تريد حذف هذه السجلات ")) {
window.location.href = "deletemessage.asp؟ page = <٪ = clng (page) ٪>"}
}
->
</script>
</head>
<body>
<br> <br> <٪
تعيين conn = server.createObject ("adodb.connection")
Provider = "Provider = microsoft.jet.oledb.4.0 ؛"
dbpath = "data source =" & server.mappath ("webuuser.mdb")
Conn.Open Provider & DBPath
اسم المستخدم = الجلسة ("اسم المستخدم")
إذا كان اسم المستخدم <> "" ثم
SQL = "SELECT * من المحادثات حيث fromName = '" & username & "' 'أو toname ='" & username & "'order by adddate desc"
SET RS = Server.createObject ("ADODB.RecordSet")
Rs.Open SQL ، Conn ، 3،3
rs.pagesize = 15
الصفحة = CLNG (طلب ("صفحة")))
إذا الصفحة <1 ثم الصفحة = 1
إذا كانت الصفحة> rs.pageCount ثم الصفحة = rs.pageCount
٪>
<table cellpacing = "0" width = 590cellpadding = "0" align = center>
<tr>
<td> <font size = "2"> عرض رسائلي التاريخية (<b> <font color = "#ff0000"> يتم حفظ سجل الدردشة لمدة أسبوع واحد فقط ، يرجى النسخ الاحتياطي الخاص بك </font> </b> ) </font> </b>) font> </td>
</r>
<٪ إذا كان rs.eof أو rs.bof ثم ٪>
<tr>
<td> <font color = "#ff0000"> بدون سجلك التاريخي ، يرجى التواصل معك بسرعة </font>! ! ! </td>
</r>
<٪ آخر ٪>
<tr>
<td align = "center">
<form action = history.asp name = f1>
<٪ إذا الصفحة <> 1 ثم ٪>
<a href = history.asp؟ page = 1> الصفحة 1 </a>
<a href = history.asp؟ page = <٪ = (page-1) ٪ >> الصفحة السابقة </a>
<٪ نهاية إذا
إذا كانت الصفحة <> rs.pageCount ثم ٪>
<a href = history.asp؟ page = <٪ = (page+1) ٪ >> الصفحة التالية </a>
<a href = history.asp؟ page = <٪ = rs.pageCount ٪ >> الصفحة الأخيرة </a>
<٪ نهاية إذا ٪>
الصفحات: <font color = "red"> <٪ = page ٪>/<٪ = rs.pageCount ٪> </font>
<نوع الإدخال = حجم النص = 4 maxLength = 4 name = page>
</form>
</td>
</r>
<tr>
<td> <٪ show rs ، page ٪> </td>
</r>
<٪ نهاية إذا ٪>
<tr>
<td>
<٪
عرض فرعي (RS ، صفحة)
rs.absolutepage = صفحة
العد = rs.pagesize
٪>
<name form = "checkboxform1" method = post action = "deletemessage.asp؟ page = <٪ = clng (page) ٪>">
<table cellpacing = "0" width = "590" cellpadding = "0" align = center>
<٪
افعل بينما لا rs.eof و count> 0
٪>
<tr bgcolor = "#d8d3cd">
<td> <input type = "checkbox" name = "id" value = "<٪ = rs (" id ") ٪>"> <b> <٪ = rs ("fromName") ٪> </b> < ٪ = rs ("adddate") ٪> الترحيل <b> <٪ = rs ("toname") ٪> </b> </td> </tr>
<tr>
<ارتفاع TD = 22> <٪
Word = استبدال (RS ("Word") ، VBCRLF ، "<br>")
استجابة. WRITE WORD ٪>
</td>
</r>
<٪
العد = العد -1
Rs.Movenext
حلقة
٪>
<tr>
<td>
<type type = "checkbox" id = "check1" name = "chkall" value = "on"> <label for = "check1"
<type type = "إرسال" value = "حذف البيانات المحددة" name = "Shanchu"> </td>
</r>
</table>
</form>
<٪ end sub ٪>
</td>
</r>
</table>
<٪
SQL = "SELECT ADDDATE ، معرف من المحادثات"
تعيين OBJ = conn.execute (SQL)
إذا لم يكن obj.eof ثم
افعل بينما لا obj.eof
sql = "حذف من المحادثات حيث (اليوم (الآن)-يوم (adddate)> 8)"
conn.execute (SQL)
obj.movenext
حلقة
إنهاء إذا
obj.close
تعيين OBJ = لا شيء
إنهاء إذا
Rs.close
تعيين روبية = لا شيء
conn.close
تعيين conn = لا شيء
٪>
</body>
</html>