当前位置: 首页 > 图文教程 > 网络编程 > ASP > 网络寻呼机数据库版显示历史消息history.asp

ASP
ASP 3.0高级编程（二十七）
ASP 3.0高级编程（二十八）
ASP 3.0高级编程（二十九）
ASP 3.0高级编程（三十）
ASP中时间函数的使用(一)
ASP中时间函数的使用(二)
ASP中时间函数的使用(三)
.NET之ASP WebApplication快速入门(1)
.NET之ASP WebApplication快速入门(2)
.NET之ASP WebApplication快速入门(3)
.NET之ASP WebApplication快速入门(4)
.NET之ASP WebApplication快速入门(5)
asp.NET特写
ASP 3.0高级编程（七）
ASP 3.0高级编程（八）
ASP.NET 入门的五个步骤
ASP 组件指南
XML 数据的编码方式
ASP 3.0高级编程（九）
ASP 3.0高级编程（十）

No. « 147 148 149 150 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 103 ::
收藏到网摘: n/a

  <html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>历史消息</title>
<script language="JavaScript">
<!--



function 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;
   }
  }
  
  // 检查是否选择了记录
function checkbox1(form)
{
    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("请先选择删除记录");
        return false ;
    }
    return true ;
}

// 单击“删除”按钮时触发
function del(form)
{
     if (!checkbox1(form)){
        return false;
    }
    else
        if (confirm('您确信要删除这些记录吗')){
        window.location.href="DeleteMessage.asp?page=<%=clng(page)%>"}
}
  -->
  </SCRIPT>
</head>

<body>
<br><br><%
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

%>

<table border="0" cellspacing="0"  width=590  cellpadding="0" align=center height="75">
  <tr>
    <td width="100%" height="24"><font size="2">查看我的历史消息(<b><font color="#FF0000">聊天记录仅保存一周内容,请自行备份</font></b>)</font></td>
  </tr>
  <% if rs.eof or rs.bof then %>
  <tr>
    <td width="100%" height="20"><font color="#FF0000">没有你的历史纪录,赶快和大家交流</font>！！！</td>
  </tr>
  <% else %>
  
  <tr>
    <td width="100%" align="c