第一句话定义了一个 adodb数据库连接组件，第二句连接了数据库，大家只要修改后面的数据库名字就可以了。是不是很简单？
下面再看三句：

<%
exec="select * from guestbook"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>

这三句加在前面两句的后面，第一句：设置查询数据库的命令，select后面加的是字段，如果都要查询的话就用*，from后面再加上表的名字，我们前面建立的是不是一个gustbook表阿？第二句：定义一个记录集组件，所有搜索到的记录都放在这里面，第三句是打开这个记录集，exec就是前面定义的查询命令，conn就是前面定义的数据库连接组件，后面参数“1，1”，这是读取，后面讲到修改记录就把参数设置为1，3，好了接下来我们读取记录。

如果仅显示搜索表单传过来的数据，这样改写：

<%
name=request.form("name")
tel=request.form("tel")
exec="select * from guestbook  where name='"&name&"' and tel="&tel
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>

下面是显示表格部分代码

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%do while not rs.eof%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("message")%></td>
<td><%=rs("time")%></td>
</tr><%
rs.movenext
loop
%>
</table>

在一个表格中，我们用4列分别显示了上次建立的表里面的四个字段，用do循环，not rs.eof的意思是条件为没有读到记录集的最后，rs.movenext的意思是显示完一条转到下面一条记录，<%=%>就等于& lt;%response.write%>用于在html代码里面插入asp代码，主要用于显示变量。

<%
Dim objFSO,objFile ''声明一个名称为 objFSO 的变量以存放对象实例
Set objFSO = Server.CreateObject("scripting.FileSystemObject")
If objFSO.FileExists(Server.MapPath("news.asp")) Then
Set objFile = objFSO.GetFile(Server.MapPath("news.asp"))
Response.Write "文件的名称："&objFile.Name&"<br>"
Response.Write "文件的路径："&objFile.Path&"<br>"
Response.Write "文件的建立日期："&objFile.DateCreated&"<br>"
Response.Write "文件的最后浏览日期："&objFile.LastAccessed&"<br>"
Response.Write "文件的最后修改日期："&objFile.LassModified&"<br>"
Response.Write "文件的大小："&objFile.Size&"<br>"
Response.Write "文件的类型："&objFile.Type&"<br>"
Else
Response.Write Server.MapPath("newfile.asp")&"不存在，无法读取相关信息"
End If
Set objFile = Nothing
Set objFSO = Nothing ''释放 FileSystemObject 对象实例内存空间
%>