您的位置：首页 → 网页设计 → ASP实例 → 网络寻呼机数据库版显示历史消息history.asp

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

时间：2004/11/7 2:59:00来源：本站整理作者：蓝点我要评论(0)

<%

set conn=server.createobject("adodb.connection")

    Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"

    DBPath = "Data Source=" & Server.MapPath( "webuser.mdb" )



    conn.Open Provider & DBPath

    username=session("username")

    

    if username<>"" then

    sql="select * from talks where fromname='"& username & "'or toname='"& username & "' order by adddate desc"

    

    Set rs = Server.Createobject("ADODB.Recordset")

    

    rs.open sql,conn,3,3

    rs.pagesize=15

    Page = CLng(Request("Page"))

    If Page < 1 Then Page = 1

    If Page > rs.PageCount Then Page = rs.PageCount



%>





  

    

  

  <% if rs.eof or rs.bof then %>

  

    

  

  <% else %>

  

  

    

  

  

    <% show rs, Page %>

  

  <% end if %>

  

    

  

查看我的历史消息(聊天记录仅保存一周内容,请自行备份)

没有你的历史纪录,赶快和大家交流！！！

<% If Page <> 1 Then %>                                     第一页                                 >上一页                               <% End If                               If Page <> rs.PageCount Then  %>                                   >下一页                                    >最后一页                                <% End if %>                                   页次:<%=Page%>/<%=rs.PageCount%>

<%    Sub show( rs, Page )        rs.AbsolutePage =page                      count=rs.pagesize               %>           <%          do while not rs.eof and count>0                       %>                                       <%         count=count-1         rs.movenext         loop         %>                        &nbsp;">&nbsp;<%=rs("fromname")%>&nbsp;于<%=rs("adddate")%>传呼&nbsp;<%=rs("toname")%> <%        word=replace(rs("word"),vbcrlf," ")          response.write word %>                 点击复选框或汉字可全选全清 &nbsp;           <% end sub  %>

<%

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)>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

%>

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论