<html>
<head>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312">
<title> Mensagem histórica </title>
<Script Language = "JavaScript">
<!-
função checkall (form) {
for (var i = 0; i <document.checkboxform1.length; i ++) {
var e = document.checkboxform1 [i];
if (e.name! = 'chkall') e.checked = form.chkall.checked;
}
}
// Verifique se o registro está selecionado
Função de seleção Caixa de seleção (formulário)
{
var o comprimento;
var i, j;
theLength = form.id.length;
i = 0;
j = 0;
enquanto (i <theLenthngth) {
if (form.id [i].
j ++;
i ++;
}
if (j == 0 &&! form.id.checked) {
alerta ("Selecione Excluir registro primeiro");
retornar falso;
}
retornar true;
}
// acionado quando o botão "excluir" é clicado
função del (form)
{
if (! Checkbox1 (form)) {
retornar falso;
}
outro
se (confirmar ('tem certeza que deseja excluir esses registros')) {
window.Location.href = "DeLeTemessage.asp? Page = <%= clng (página)%>"}
}
->
</script>
</head>
<Body>
<br> <br> <%
Definir Conn = Server.CreateObject ("Adodb.Connection")
Provider = "provider = microsoft.jet.oledb.4.0;"
Dbpath = "Data Source =" & Server.mappath ("webuuser.mdb")
Conn.Open Provedor & DBPath
nome de usuário = sessão ("nome de usuário")
Se o nome de usuário <> "" então
SQL = "Selecione * FROM palestras onde FromName = '" & UserName & "
Set rs = server.createObject ("adodb.recordset")
Rs.Open SQL, Conn, 3,3
rs.pagesize = 15
Página = clng (request ("página")))
Se página <1 então página = 1
Se página> rs.pagecount então página = rs.pagecount
%>
<tabela CellPacing = "0" Width = 590CellPadding = "0" align = Center>
<tr>
<td> <font size = "2"> Veja minhas mensagens históricas (<b> <font color = "#ff0000"> o histórico de bate -papo é salvo apenas por uma semana, faça o backup do seu </font> </b> ) </font> </b>) font> </td>
</tr>
< % se Rs.eof ou Rs.Bof, então %>
<tr>
<td> <font color = "#ff0000"> Sem o seu registro histórico, comunique -se com você rapidamente </font>! ! ! </td>
</tr>
< % else %>
<tr>
<td align = "Center">
<forma de ação = history.asp name = f1>
< % Se página <> 1 então %>
<a href = history.asp? Page = 1> página 1 </a>
<A href = history.asp? Page = <%= (página 1)%>> página anterior </a>
<% Final se
Se página <> rs.pagecount então%>
<A href = history.asp? Page = <%= (página+1)%>> Próxima página </a>
<A href = history.asp? Page = <%= rs.pageCount%>> Última página </a>
< % Final se %>
Páginas: <font color = "Red"> <%= Page%>/<%= rs.pagecount%> </font>
<Tipo de entrada = Tamanho do texto = 4 maxLength = 4 Nome = Page>
</morm>
</td>
</tr>
<tr>
<Td> < % mostra rs, página %> </td>
</tr>
< % final se %>
<tr>
<Td>
<%
Sub Show (RS, página)
rs.absolutePage = página
contagem = rs.pagesize
%>
<Form Name = "Checkboxform1" Método = Post Action = "DeLeTemessage.asp? Page = <%= clng (página)%>">
<tabela CellPacing = "0" width = "590" CellPadding = "0" align = Center>
<%
faça, embora não seja rs.eof e conte> 0
%>
<tr bgcolor = "#d8d3cd">
<Td> <input type = "Caixa de seleção" name = "id" value = "<%= rs (" id ")%>"> <b> <%= rs ("dename")%> </b> < %= rs ("addDate")%> paging <b> <%= rs ("toname")%> </b> </td> </tr>
<tr>
<altura td = 22> <%
Word = Substitua (RS ("Word"), Vbcrlf, "<br>")
Response.Write Word %>
</td>
</tr>
<%
contagem = contagem-1
rs.movenext
laço
%>
<tr>
<Td>
<entrada de entrada = "caixa de seleção" id = "check1" name = "chkall" value = "on"> <gravador para = "check1"> clique na caixa de seleção ou caracteres chineses para selecionar todos os Qing </cret>
<input type = "submit" value = "exclua dados selecionados" name = "shanchu"> </td>
</tr>
</tabela>
</morm>
<% final sub%>
</td>
</tr>
</tabela>
<%
SQL = "Selecione AddDate, ID das palestras"
SET OBJ = Conn.Execute (SQL)
se não obj.eof então
faça enquanto não obj.eof
sql = "Exclua das negociações onde (dia (agora) -day (adddate)> 8)"
Conn.Execute (SQL)
obj.movenext
laço
final se
obj.close
defina obj = nada
final se
rs.close
Defina rs = nada
Conn.Close
Definir conn = nada
%>
</body>
</html>