<html>
<kopf>
<meta http-äquiv = "content-type" content = "text/html; charset = gb2312">
<title> Historische Nachricht </title>
<script Language = "JavaScript">
<!-
Funktion checkAll (Form) {
für (var i = 0; i <document.checkBoxForm1.length; i ++) {
var e = document.checkBoxForm1 [i];
if (e.name! = 'chkall') e.Checked = Form.Chkall.Checked;
}
}
// Überprüfen Sie, ob der Datensatz ausgewählt ist
Funktion Checkbox1 (Formular)
{
var thelength;
var i, j;
thelength = form.id.length;
i = 0;
J = 0;
während (i <thelength) {
if (form.id [i].
J ++;
i ++;
}
if (j == 0 &&! form.id.Checked) {
ALERT ("Bitte zuerst den Datensatz auswählen");
false zurückgeben;
}
zurückkehren;
}
// ausgelöst, wenn die Schaltfläche "Löschen" klickt
Funktion del (Form)
{
if (! CheckBox1 (Formular)) {
false zurückgeben;
}
anders
if (bestätigen ('Sind Sie sicher, dass Sie diese Datensätze löschen möchten')) {
window.location.href = "deletemessage.asp? page = <%= clng (Seite)%>"}
}
->
</script>
</head>
<body>
<br> <br> <%
Setzen Sie conn = server.createObject ("adodb.Connection").
Provider = "provider = microsoft.jet.oledb.4.0;"
Dbpath = "data source =" & server.mappath ("webuuser.mdb"))
Conn.open Provider & DBPath
Benutzername = Sitzung ("Benutzername")
Wenn Benutzername <> "" dann
SQL = "SELECT * Aus Gesprächen wob
Setzen Sie rs = server.createObject ("adodb.recordset")
Rs.open SQL, Conn, 3,3
Rs.PageSize = 15
Page = clng (Request ("Seite"))
Wenn Seite <1 dann Seite = 1
Wenn Seite> Rs.PageCount dann Seite = Rs.PageCount
%>
<Table Cellpacing = "0" Breite = 590Cellpadding = "0" align = center>
<tr>
<td> <font size = "2"> Sehen Sie meine historischen Nachrichten anzeigen (<B> <font color = "#ff0000"> Der Chat -History wird nur für eine Woche gespeichert. Bitte ziehen Sie Ihre eigene </font> </b> sichern ) </font> </b>) font> </td>
</tr>
< % wenn Rs.eof oder Rs.Bof dann %>
<tr>
<td> <font color = "#ff0000"> Ohne Ihren historischen Aufzeichnungen kommunizieren Sie bitte schnell mit Ihnen </font>! ! ! </td>
</tr>
< % sonst %>
<tr>
<td align = "center">
<form action = history.asp name = f1>
< % Wenn Seite <> 1 dann %>
<a href = history.asp? Seite = 1> Seite 1 </a>
<A href = history.asp? Seite = <%= (Seite)%>> vorherige Seite </a>
<% Ende wenn
Wenn Seite <> rs.PageCount dann%>
<A href = history.asp? Seite = <%= (Seite+1)%>> nächste Seite </a>
<A href = history.asp? Page = <%= rs.pageCount%>> Letzte Seite </a>
< % Ende wenn %>
Seiten: <font color = "rot"> <%= page%>/<%= Rs.PageCount%> </font>
<Eingabetyp = Textgröße = 4 MaxLength = 4 name = Seite>
</form>
</td>
</tr>
<tr>
<td> < % zeigen RS, Page %> </td>
</tr>
< % Ende wenn %>
<tr>
<td>
<%
Sub show (rs, Seite)
Rs.absolutepage = Seite
count = rs.pageSize
%>
<Formular name = "CheckBoxForm1" methode = post action = "deletemessage.asp? Page = <%= clng (Seite)%>">
<Table Cellpacing = "0" width = "590" cellpadding = "0" align = center>
<%
tun, während nicht Rs.eof und zählen> 0
%>
<tr bgcolor = "#d8d3cd">
<td> <Eingabe type = "checkbox" name = "id" value = "<%= rs (" id ")%>"> <b> <%= rs ("fromName")%> </b> < %= RS ("AddDate")%> Paging <b> <%= Rs ("Toname")%> </b> </td> </tr>
<tr>
<td Höhe = 22> <%
Word = Ersatz (RS ("Word"), VBCRLF, "<br>")
Antwort.Write Word %>
</td>
</tr>
<%
count = count-1
Rs.Movenext
Schleife
%>
<tr>
<td>
<Eingabe type = "checkBox" id = "check1" name = "chkall" value = "on"> <label for = "check1"> klicken
<input type = "surug" value = "Ausgewählte Daten löschen" name = "shanchu"> </td>
</tr>
</table>
</form>
<% Ende Sub%>
</td>
</tr>
</table>
<%
SQL = "Wählen Sie AddDate, ID aus den Gesprächen" aus "
Setzen Sie OBJ = conn.execute (SQL)
wenn nicht obj.eof dann
tun, während nicht obj.eof
SQL = "Aus Gesprächen löschen, wo (Tag (jetzt) -Day (AddDate)> 8)"
Conn.Execute (SQL)
Obj.Movenext
Schleife
Ende wenn
obj.close
Setzen Sie OBJ = nichts
Ende wenn
rs.close
Setzen Sie Rs = nichts
conn.close
Setzen Sie Conn = nichts
%>
</body>
</html>