<html>
<голова>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312">
<название> Историческое сообщение </title>
<script language = "javascript">
<!-
функция Checkall (form) {
для (var i = 0; i <document.checkboxform1.length; i ++) {
var e = document.checkboxform1 [i];
if (e.name! = 'chkall') e.checked = form.chkall.cecked;
}
}
// Проверьте, выбрана ли запись
Функциональный флажок1 (форма)
{
var thelength;
var i, j;
theLength = form.id.length;
i = 0;
j = 0;
while (i <thelength) {
if (form.id [i].
J ++;
i ++;
}
if (j == 0 &&! form.id.checked) {
Alert («Пожалуйста, выберите« Удалить запись сначала »);
вернуть ложь;
}
вернуть истину;
}
// запускается при нажатии кнопки «Удалить»
Функция del (форма)
{
if (! fackbox1 (form)) {
вернуть ложь;
}
еще
if (Подтверждение ('Вы уверены, что хотите удалить эти записи')) {
window.location.href = "deletemessage.asp? Page = <%= clng (page)%>"}
}
->
</script>
</head>
<тело>
<br> <br> <%
Установить conn = server.createObject ("adodb.connection")
Provider = "Provider = microsoft.jet.oledb.4.0;"
Dbpath = "source =" & server.mappath ("webuuser.mdb")
Conn.Open Provider & DBPath
username = session ("имя пользователя")
Если имя пользователя <> "" Тогда
SQL = "SELECT * из разговоров, где от name = '" & username & "' или toname = '" & username & "
Установить rs = server.createObject ("adodb.recordset")
Rs.open SQL, Conn, 3,3
rs. pageSize = 15
Page = clng (запрос ("страница"))
Если страница <1, то Page = 1
Если страница> rs.pagecount, то page = rs.pagecount
%>
<таблица сотока сотовой связи = "0" ширина = 590cellpadding = "0" align = center>
<tr>
<td> <font size = "2"> Посмотреть мои исторические сообщения (<b> <font color = "#ff0000"> История чата сохраняется только на одну неделю, пожалуйста, резервните свой собственный </font> </b> ) </font> </b>) font> </td>
</tr>
< %, если rs.eof или rs.bof, то %>
<tr>
<td> <font color = "#ff0000"> Без вашей исторической записи, пожалуйста, общайтесь с вами быстро </font>! ! ! </td>
</tr>
< % else %>
<tr>
<td align = "center">
<form action = inistory.asp name = f1>
< % Если страница <> 1, то %>
<a href = vistory.asp? Page = 1> Page 1 </a>
<A href = story.asp? Page = <%= (Page-1)%>> Предыдущая страница </a>
<% End if
Если Page <> Rs.pagecount, то%>
<A href = vistory.asp? Page = <%= (Page+1)%>> Следующая страница </a>
<A href = vistory.asp? Page = <%= rs.pagecount%>> Последняя страница </a>
< % End, если %>
Страницы: <font color = "red"> <%= page%>/<%= rs.pagecount%> </font>
<input type = text size = 4 maxlength = 4 name = page>
</form>
</td>
</tr>
<tr>
<Td> < % Покажите RS, Page %> </td>
</tr>
< % end, если %>
<tr>
<Td>
<%
Sub Show (RS, Page)
rs.absolutepage = page
count = rs.pageize
%>
<Form name = "fackboxform1" method = post action = "deletemessage.asp? Page = <%= clng (page)%>">
<таблица сотока сотовой связи = "0" width = "590" cellpadding = "0" align = center>
<%
делать, пока не rs. eof and count> 0
%>
<tr bgcolor = "#d8d3cd">
<td> <input type = "fackbox" name = "id" value = "<%= rs (" id ")%>"> <b> <%= rs ("fromName")%> </b> < %= rs ("AddDate")%> Paging <b> <%= rs ("toname")%> </b> </td> </tr>
<tr>
<td высота = 22> <%
word = reply (rs ("word"), vbcrlf, "<br>")
Ответ.write Word %>
</td>
</tr>
<%
count = count-1
Rs.movenext
петля
%>
<tr>
<Td>
<input type = "fackbox" id = "check1" name = "chkall" value = "on"> <метка для = "Check1"> Нажмите флажок или китайские символы, чтобы выбрать все Qing </label>
<input type = "prope" value = "удалить выбранные данные" name = "shanchu"> </td>
</tr>
</table>
</form>
<% end sub%>
</td>
</tr>
</table>
<%
SQL = "Выберите добавить, идентификатор из переговоров"
Установить obj = conn.execute (sql)
Если не obj.eof, тогда
делать, пока не obj.eof
SQL = "Удалить из переговоров, где (день (сейчас) -Day (добавить)> 8)"
conn.execute (sql)
obj.movenext
петля
конец, если
obj.close
установить obj = ничего
конец, если
Rs.close
Установить RS = ничего
Conn.close
установить conn = ничего
%>
</body>
</html>