<html>
<헤드>
<meta http-equiv = "content-type"content = "text/html; charset = gb2312">
<title> 역사적 메시지 </title>
<script language = "javaScript">
<!-
함수 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;
}
}
// 레코드가 선택되었는지 확인하십시오
함수 checkbox1 (양식)
{
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) {
ALERT ( "레코드 삭제를 먼저 선택하십시오");
거짓을 반환합니다.
}
진실을 반환하십시오.
}
// "삭제"버튼을 클릭하면 트리거되었습니다
기능 델 (양식)
{
if (! checkbox1 (form)) {
거짓을 반환합니다.
}
또 다른
if (확인 ( '이 레코드를 삭제하고 싶다고 확신합니까')) {
Window.location.href = "deletemessage.asp? page = <%= clng (페이지)%>"}
}
->
</script>
</head>
<body>
<br> <br> <%
set conn = server.createobject ( "adodb.connection")
제공자 = "제공자 = microsoft.jet.oledb.4.0;"
dbpath = "data source ="& server.mappath ( "webuuser.mdb")
Conn.open 제공 업체 및 DBPath
username = session ( "사용자 이름")
username <> ""인 경우
sql = "select * from where where inname = '"& username & "'또는 toname = '"& username & "'adddate desc"
set rs = server.createobject ( "adodb.recordset")
Rs. Open SQL, Conn, 3,3
Rs.Pagesize = 15
page = clng (요청 ( "page"))
Page <1 인 경우 페이지 = 1입니다
page> rs.pagecount 인 경우 page = rs.pagecount
%>
<table cellPacing = "0"width = 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">
<양식 action = history.asp name = f1>
< % page <> 1 인 경우 %>
<a href = history.asp? page = 1> 페이지 1 </a>
<a href = history.asp? page = <%= (페이지 -1)%>> 이전 페이지 </a>
<% 종료 if
Page <> rs.pagecount 인 경우%>
<a href = history.asp? page = <%= (페이지+1)%>> 다음 페이지 </a>
<a href = history.asp? page = <%= rs.pagecount%>> 마지막 페이지 </a>
< % 종료 if %>
페이지 : <font color = "red"> <%= page%>/<%= rs.pagecount%> </font>
<입력 유형 = 텍스트 크기 = 4 maxlength = 4 name = page>
</form>
</td>
</tr>
<tr>
<td> < % show rs, page %> </td>
</tr>
< % 종료 if %>
<tr>
<td>
<%
하위 쇼 (Rs, Page)
rs.AbsolutePage = 페이지
count = rs.pagesize
%>
<form name = "checkboxform1"메소드 = post action = "deletemessage.asp? page = <%= clng (page)%>">
<table cellPacing = "0"width = "590"CellPadding = "0"align = center>
<%
rs.eof가 아니라 count> 0을하십시오
%>
<tr bgcolor = "#d8d3cd">
<td> <입력 유형 = "checkbox"name = "id"value = "<%= rs ("id ")%>"> <b> <%= rs ( "FromName")%> </b> < %= rs ( "addDate")%> 페이징 <b> <%= rs ( "toname")%> </b> </td> </tr>
<tr>
<td 높이 = 22> <%
Word = replace (rs ( "Word"), vbcrlf, "<br>")
응답. Word %>를 작성하십시오
</td>
</tr>
<%
count = count-1
rs.movenext
고리
%>
<tr>
<td>
<입력 유형 = "checkbox"id = "check1"name = "chkall"value = "on"> <label for = "check1"> 확인란이나 한자를 클릭하여 모든 qing </label>을 선택하십시오.
<입력 유형 = "제출"value = "선택된 데이터 삭제"name = "shanchu"> </td>
</tr>
</테이블>
</form>
<% end sub%>
</td>
</tr>
</테이블>
<%
SQL = "AddDate, Id in Talks"를 선택하십시오. "
set obj = conn.execute (SQL)
그렇지 않다면 그럼
obj.eof가 아닙니다
SQL = "(Day (현재) -day (adddate)> 8)에서 대화에서 삭제"
Conn.Execute (SQL)
obj.movenext
고리
끝 If
obj.close
OBJ = 아무것도 설정하지 않습니다
끝 If
Rs.Close
RS = 아무것도 설정하지 않습니다
conn.close
Conn = 아무것도 설정하지 않습니다
%>
</body>
</html>