网络寻呼机数据库版显示历史消息history.asp

 1<html>
 2<head>
 3<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
 4<title>历史消息</title>
 5<script language="JavaScript">   
 6<!--   
 7  
 8  
 9  
10function CheckAll(form) {   
11for (var i=0;i<document.checkboxform1.length;i++) {   
12var e = document.checkboxform1[i];   
13if (e.name != 'chkall') e.checked = form.chkall.checked;   
14}   
15}   
16  
17// 检查是否选择了记录   
18function checkbox1(form)   
19{   
20var theLength;   
21var i,j;   
22  
23theLength = form.id.length;   
24i = 0;   
25j = 0;   
26  
27while(i<theLength){   
28if (form.id[i].checked)   
29j ++ ;   
30i ++ ;   
31}   
32  
33if (j==0 && !form.id.checked){   
34alert("请先选择删除记录");   
35return false ;   
36}   
37return true ;   
38}   
39  
40// 单击“删除”按钮时触发   
41function del(form)   
42{   
43if (!checkbox1(form)){   
44return false;   
45}   
46else   
47if (confirm('您确信要删除这些记录吗')){   
48window.location.href="DeleteMessage.asp?page=```
49=clng(page)
50```"}   
51}   
52\-->   
53</script>
54</head>
55<body>
56<br/><br/>```
57   
58set conn=server.createobject("adodb.connection")   
59Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"   
60DBPath = "Data Source=" &amp;amp; Server.MapPath( "webuser.mdb" )   
61  
62conn.Open Provider &amp;amp; DBPath   
63username=session("username")   
64  
65if username&amp;lt;&amp;gt;"" then   
66sql="select * from talks where fromname='"&amp;amp; username &amp;amp; "'or toname='"&amp;amp; username &amp;amp; "' order by adddate desc"   
67  
68Set rs = Server.Createobject("ADODB.Recordset")   
69  
70rs.open sql,conn,3,3   
71rs.pagesize=15   
72Page = CLng(Request("Page"))   
73If Page &amp;lt; 1 Then Page = 1   
74If Page &amp;gt; rs.PageCount Then Page = rs.PageCount   
75
``` if rs.eof or rs.bof then `````` else `````` end if ```
查看我的历史消息(聊天记录仅保存一周内容,请自行备份)
没有你的历史纪录,赶快和大家交流！！！
``` If Page &lt;&gt; 1 Then ``` 第一页 上一页 ``` End If If Page &lt;&gt; rs.PageCount Then ``` 下一页 最后一页 ``` End if ``` 页次:``` =Page ```/``` =rs.PageCount ```
``` show rs, Page ```
1   
2Sub show( rs, Page )   
3rs.AbsolutePage =page   
4count=rs.pagesize
```

do while not rs.eof and count&gt;0

 1<tr bgcolor="#D8D3CD">
 2<td height="20"> <input ```"="" id")="" name="id" type="checkbox" value="```
 3=rs("/> <b>```
 4=rs("fromname")
 5```</b> 于```
 6=rs("adddate")
 7```传呼 <b>```
 8=rs("toname")
 9```</b></td></tr>
10<tr>
11<td height="22">```
12   
13word=replace(rs("word"),vbcrlf,"&lt;br/&gt;")   
14response.write word
```

count=count-1
rs.movenext
loop

1<tr>
2<td>
3<input id="check1" name="chkall" onclick="CheckAll(this.form)" type="checkbox" value="on"/><label for="check1">点击复选框或汉字可全选全清</label>     
4<input name="shanchu" type="submit" value="删除选中的数据"/></td>
5</tr>
6</table>
7</form>

end sub

1</td>
2</tr>
3</table>

sql="select adddate,id from talks"

set obj=conn.execute(sql)
if not obj.eof then
do while not obj.eof

sql="delete from talks where (day(now)-day(adddate)&gt;8)"
conn.execute(sql)

obj.movenext
loop
end if

obj.close
set obj=nothing
end if

rs.close
set rs=nothing
conn.close
set conn=nothing

1</body>
2</html>
Published At
Categories with Web编程
Tagged with
comments powered by Disqus
© 2023 andsky.com