📄 messagebrowse.asp.txt

📁 ASP 网页数据库短训教程源码
💻 TXT
字号:
<%
  ' ShowPage子程序负责显示PageNo参数所指定的页次的所有记录
Sub ShowPage(objRS, PageNo)
  ' 显示留言并加以格式化
  objRS.AbsolutePage = PageNo 
  For I = 1 To objRS.PageSize
    User = objRS("User")
    ToWho = objRS("ToWho")
    Email = objRS("Email")
    Content = objRS("Content")
    AddTime = objRS("AddTime")
    Response.Write User & "&nbsp;给&nbsp;" & ToWho & "&nbsp;的留言<BR>"
    Response.Write "E-mail: <A href=mailto:" & Email & ">" & Email & "</A><BR>"
    Response.Write "内　容：" & Subject & "<BR>"
    Response.Write "<TABLE width=100% bgcolor=LightBlue><TR><TD>"
    Response.Write Content & "</TD></TR></TABLE>时　间：" & AddTime & "<HR>"
    objRS.MoveNext
    If objRS.EOF Then Exit For    '若到记录结尾就结束For循环
  Next    
  Response.Write "</TABLE>"
End Sub
%>
<HTML>
  <HEAD>
    <TITLE>显示留言本</TITLE>
  </HEAD>
  <BODY bgcolor=LightYellow>
    <CENTER><FONT size=5 face=华文彩云 color= blue>留 言 显 示</FONT>
    </CENTER><HR>
    <A href="Index.asp">返回留言板</A><BR>
<%
    ' 声明对象、变量
  Dim objConn, objRS
  Dim strSQL
  Dim User, ToWho, Email, Content, AddTime
    ' 使用Connection对象打开数据库文件
  Set objConn = Server.CreateObject("ADODB.Connection")
  objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Server.MapPath("Message.mdb")
  objConn.Open
    ' 建立Recordset对象并返回表Message的所有记录
  strSQL = "SELECT * FROM Message"
  Set objRS = Server.CreateObject("ADODB.Recordset")
  objRS.Open strSQL, objConn, 1, 1
    ' 判断记录数是为空有多种方法，可以用Recordset对象的RecordCount属性是否为零，
    ' 也可以判断刚打开RecordSet对象的记录指针的开始位置是否等于文件的结束位置，
    ' 以下程序使用后一种方法来判断记录数是否为零
  If objRS.Eof And objRS.Bof Then
    Response.Write "当前没有留言！<BR>"
    Response.Write "<A href=Index.asp>返回留言表单</A>"
  Else
      ' 若有留言，调用子程序ShowPage显示数据表中的数据
    objRS.PageSize = 5
      ' 显示页次超链接 
    PageNo = Request("PageNo")  '读取浏览者所点取的页次超链接 
    Response.Write "["  
    For I = 1 To objRS.PageCount  
      If I = CInt(PageNo) Then   '若到浏览者所点取的页次超链接，便不再当成超链接 
        Response.Write I & "&nbsp;|&nbsp;"  
      Else  
        Response.Write "<A HREF='MessageBrowse.asp?PageNo=" & I & "'>" & _  
          I & "</A>" & "&nbsp;|&nbsp;"  '超链接到MessageBrowse.asp并将页次当成参数传送 
      End If  
    Next  
    Response.Write "]<HR>"  
      ' 根据页次调用ShowPage子程序来显示留言，若没有指定页次，就显示第1页 
    If PageNo <> "" Then   
      ShowPage objRS, PageNo  
    Else  
      ShowPage objRS, 1  
    End If  
  End If
    ' 释放内存变量占用空间
  Set objRS = Nothing
  Set objConn = Nothing
%>
  </BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -