<html>
<adal>
<meta http-equiv = "content-type" content = "text / html; charset = gb2312">
<Title> Message historique </TITME>
<script linguisse = "javascript">
<! -
Fonction CheckAll (form) {
pour (var i = 0; i <document.checkboxform1.length; i ++) {
var e = document.checkboxform1 [i];
if (e.Name! = 'chkall') e.checked = form.chkall.checked;
}
}
// Vérifiez si l'enregistrement est sélectionné
Fonction Checkbox1 (formulaire)
{
var thelength;
var i, j;
theLength = form.id.length;
i = 0;
j = 0;
while (i <thelonth) {
if (form.id [i] .checked)
j ++;
i ++;
}
if (j == 0 &&! form.id.checked) {
alert ("Veuillez sélectionner la suppression d'abord de l'enregistrement");
retourne false;
}
Retour Vrai;
}
// déclenché lorsque le bouton "Supprimer" est cliqué
fonction del (formulaire)
{
if (! checkbox1 (formulaire)) {
retourne false;
}
autre
if (confirmer ('Êtes-vous sûr de supprimer ces enregistrements')) {
window.location.href = "DeleteMessage.asp? Page = <% = clng (page)%>"}
}
->
</cript>
</ head>
<body>
<br> <br> <%
Définir Conn = Server.CreateObject ("Adodb.Connection")
Provider = "provider = Microsoft. Jet.oledb.4.0;"
Dbpath = "data source =" & server.mappath ("webuuser.mdb")
Conn.open fournisseur et DBPATH
nom d'utilisateur = session ("nom d'utilisateur")
Si le nom d'utilisateur <> "" alors
sql = "select * from talks where fromName = '" & username & "' ou toname = '" & username & "' order by adddate desc"
Set rs = server.createObject ("adodb.recordSet")
Rs.Open SQL, Conn, 3,3
Rs.PageSize = 15
Page = clng (demande ("page"))
Si page <1 alors page = 1
Si page> Rs.PageCount alors page = Rs.PageCount
%>
<table cellpacing = "0" width = 590cellpadding = "0" align = Center>
<tr>
<td> <font size = "2"> Voir mes messages historiques (<b> <font color = "# ff0000"> L'historique de chat n'est enregistré que pendant une semaine, veuillez sauvegarder votre propre </font> </b> ) </font> </b>) Font> </td>
</tr>
<% si Rs.Eof ou Rs.Bof puis%>
<tr>
<td> <font color = "# ff0000"> Sans votre dossier historique, veuillez communiquer avec vous rapidement </font>! ! ! </td>
</tr>
<% else%>
<tr>
<td align = "Center">
<Form Action = History.asp name = f1>
<% Si page <> 1 alors%>
<a href = history.asp? Page = 1> Page 1 </a>
<A href = history.asp? Page = <% = (page-1)% >> page précédente </a>
<% Fin si
Si page <> Rs.PageCount alors%>
<A href = history.asp? Page = <% = (page + 1)% >> page suivante </a>
<A href = history.asp? Page = <% = Rs.PageCount% >> Dernière page </a>
<% Fin si%>
Pages: <font color = "red"> <% = page%> / <% = Rs.PageCount%> </font>
<Type d'entrée = Text Taille = 4 MaxLength = 4 Name = Page>
</ form>
</td>
</tr>
<tr>
<TD> <% Afficher RS, Page%> </td>
</tr>
<% fin si%>
<tr>
<TD>
<%
Sous-show (RS, page)
Rs.Absolutepage = Page
Count = Rs.PageSize
%>
<Form name = "checkboxform1" méthode = post-action = "DeleteMessage.asp? Page = <% = clng (page)%>">
<table cellpacing = "0" width = "590" CellPadding = "0" align = Center>
<%
faire tout en pas Rs.Eof et compter> 0
%>
<tr bgcolor = "# d8d3cd">
<Td> <Type de saisie = "Checkbox" name = "id" value = "<% = rs (" id ")%>"> <b> <% = RS ("FromName")%> </b> < % = rs ("adddate")%> pagination <b> <% = rs ("toname")%> </b> </td> </tr>
<tr>
<td height = 22> <%
word = remplacer (rs ("word"), vbcrlf, "<br>")
Response.Write Word%>
</td>
</tr>
<%
compter = comte-1
Rs.MovEnext
boucle
%>
<tr>
<TD>
<input type = "checkbox" id = "check1" name = "chkall" value = "on"> <étiquette pour = "check1"> cliquez sur la case ou les caractères chinois pour sélectionner tous les Qing </ Label>
<input type = "soumi" value = "supprimer les données sélectionnées" name = "shanchu"> </td>
</tr>
</ table>
</ form>
<% end sous%>
</td>
</tr>
</ table>
<%
SQL = "SELECT ADDDATE, ID From Talks"
SET OBJ = Conn.Execute (SQL)
Si ce n'est pas obj.eof alors
faire tout en ne censément pas
SQL = "Supprimer des pourparlers où (jour (maintenant) -Day (adddate)> 8)"
Conn.execute (SQL)
obj.movènext
boucle
terminer si
obj.close
Définir OBJ = rien
terminer si
Rs.Close
Définir RS = rien
Conn.Close
Définir Conn = Rien
%>
</docy>
</html>