📄 messagebrowse.asp

📁 ASP 网页数据库短训教程源码

💻 ASP

字号:

<HTML>
  <HEAD>
    <TITLE>显示留言本</TITLE>
  </HEAD>
  <BODY bgcolor=LightYellow>
    <CENTER><FONT size=5 face=华文彩云 color= blue>留 言 显 示</FONT>
    </CENTER><HR>
<%
    ' 声明对象、变量
  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
      ' 若有留言，以下循环语句将数据表中的数据全部显示
    Do While Not objRS.Eof
      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
    Loop
  End If
  '释放内存变量占用空间
  Set objRS = Nothing
  Set objConn = Nothing
%>
    <A href="Index.asp"><P align=center>返回留言板</P></A>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -