<Html>
<head>
<meta http-equiv = "konten tipe" content = "text/html; charset = gb2312">
<title> pesan historis </iteme>
<bahasa skrip = "javascript">
<!-
function checkall (form) {
untuk (var i = 0; i <document.checkboxform1.length; i ++) {
var e = document.checkboxform1 [i];
if (e.name! = 'chkall') e.checked = form.chkall.checked;
}
}
// Periksa apakah catatan dipilih
Function Checkbox1 (formulir)
{
var thelength;
var i, j;
thelength = form.id.length;
i = 0;
j = 0;
while (i <thelength) {
if (form.id [i] .Checked)
j ++;
i ++;
}
if (j == 0 &&! Form.id.checked) {
Peringatan ("Silakan Pilih Hapus Catatan First");
mengembalikan false;
}
Kembali Benar;
}
// dipicu saat tombol "hapus" diklik
fungsi del (form)
{
if (! checkbox1 (form)) {
mengembalikan false;
}
kalau tidak
if (konfirmasi ('Anda yakin ingin menghapus catatan ini')) {
window.location.href = "deletemessage.asp? page = <%= clng (halaman)%>"}
}
->
</script>
</head>
<body>
<br> <br> <%
Set Conn = Server.CreateObject ("AdodB.Connection")
Provider = "Provider = microsoft.jet.oledb.4.0;"
DBPath = "Sumber Data =" & Server.Mappath ("WebUuser.MDB")
Penyedia Conn.Open & DBPath
nama pengguna = sesi ("nama pengguna")
Jika nama pengguna <> "" lalu
sql = "Pilih * dari pembicaraan di mana fromname = '" & username & "' atau toname = '" & username & "' order by addDate desc"
Set RS = Server.CreateObject ("ADODB.Recordset")
Rs.open SQL, Conn, 3,3
rs.pagesize = 15
Halaman = clng (permintaan ("halaman"))
Jika halaman <1 maka halaman = 1
Jika halaman> rs.pagecount maka halaman = rs.pagecount
%>
<Table CellPacing = "0" Lebar = 590CellPadding = "0" Align = Center>
<tr>
<td> <font size = "2"> Lihat pesan historis saya (<b> <font color = "#ff0000"> Riwayat obrolan hanya disimpan selama satu minggu, silakan cadangkan sendiri </font> </b> Anda sendiri </font> </b> ) </font> </b>) font> </td>
</tr>
< % jika rs.eof atau rs.bof maka %>
<tr>
<td> <font color = "#ff0000"> Tanpa catatan sejarah Anda, silakan berkomunikasi dengan Anda dengan cepat </font>! Lai Lai </td>
</tr>
< % else %>
<tr>
<td align = "center">
<Form Action = history.asp name = f1>
< % Jika halaman <> 1 lalu %>
<a href = history.asp? page = 1> halaman 1 </a>
<A href = history.asp? Page = <%= (page-1)%>> halaman sebelumnya </a>
<% End if
Jika halaman <> rs.pagecount maka%>
<A href = history.asp? Page = <%= (halaman+1)%>> halaman berikutnya </a>
<A href = history.asp? Page = <%= rs.pagecount%>> halaman terakhir </a>
< % Berakhir jika %>
Halaman: <font color = "red"> <%= page%>/<%= rs.pagecount%> </font>
<Jenis input = ukuran teks = 4 maxlength = 4 name = halaman>
</form>
</td>
</tr>
<tr>
<td> < % show rs, halaman %> </td>
</tr>
< % berakhir jika %>
<tr>
<td>
<%
Sub show (rs, halaman)
rs.Absolutepage = halaman
Count = rs.pageSize
%>
<Form name = "centang boxForm1" metode = post action = "deleteMessage.asp? Page = <%= clng (page)%>">
<tabel cellpacing = "0" width = "590" cellpadding = "0" align = center>
<%
lakukan sementara tidak rs.eof dan hitung> 0
%>
<tr bgcolor = "#d8d3cd">
<td> <input type = "centang kotak" name = "id" value = "<%= rs (" id ")%>"> <b> <%= rs ("fromname")%> </b> < %= rs ("addDate")%> paging <b> <%= rs ("toname")%> </b> </td> </tr>
<tr>
<TD tinggi = 22> <%
word = ganti (rs ("word"), vbcrlf, "<br>")
Response.write Word %>
</td>
</tr>
<%
Count = Count-1
rs.movenext
lingkaran
%>
<tr>
<td>
<input type = "centang kotak" id = "check1" name = "chkall" value = "on"> <label for = "check1"> klik kotak centang atau karakter Cina untuk memilih semua qing </label>
<input type = "kirim" value = "hapus data yang dipilih" name = "shanchu"> </td>
</tr>
</boable>
</form>
<% end sub%>
</td>
</tr>
</boable>
<%
sql = "pilih addDate, id dari pembicaraan"
Set Obj = Conn.Execute (SQL)
Jika tidak obj.eof maka
lakukan sementara tidak obj.eof
sql = "hapus dari pembicaraan di mana (hari (sekarang) -day (addDate)> 8)"
Conn.execute (SQL)
obj.movenext
lingkaran
akhiri jika
obj.close
atur obj = tidak ada
akhiri jika
rs.close
Setel RS = tidak ada
Conn.Close
atur conn = tidak ada
%>
</body>
</html>