Question

<% dim conn Set conn=Server.CreateObject("ADODB.Connection") conn.Open "代码什么意思

一下代码什么意思，句句解释下，刚学看懂还有些吃力，虚心求教……
<%
dim conn
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Dbq=" & Server.Mappath("data\olive.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set rs=conn.Execute("select top 20 * from product")
do while (not rs.eof)
response.write("<tr>")
response.write("<img width=100 height=100 src="&rs("pic")&">")
response.write("<a href='show.asp?id="&rs("id")&"'>"&rs("productname")&"</a></tr>")
rs.movenext
loop
rs.close
conn.close
set conn=nothing
%>

Answer 1

<%
'定义一个变量，用于数据库连接
dim conn
'设置连接变量为ADODB.Connection对象，这是VB用于进行数据库连接的对象
Set conn=Server.CreateObject("ADODB.Connection")
'打开指定的数据库，其中，Open方法后面的参数即为我们通常所说的数据库连接字符串，这里主要设置了该字符串的两个参数，一个是Dbq,一个是Driver,这是使用的ODBC方式来连接数据库，现在流行的方法一般为OLE方式，效率比较高，也不会出错，所以，下面这句可能改成如下:
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("\data\olive.mdb")
conn.Open "Dbq=" & Server.Mappath("data\olive.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
'执行一条查询语句，从product表中查询前20条记录，并将结果赋给rs变量，这是一个RecordSet类型的变量，保存的是记录集
Set rs=conn.Execute("select top 20 * from product")
'开始while循环，直到记录集尾,将记录集里的信息取出，并转写成html标记语言代码
do while (not rs.eof)
’添加<tr>标签
response.write("<tr>")
'添加一个图片标签，并将该标签的图片路径属性设置以从数据库读取的图片路径rs("pic"),即product表的pic字段
response.write("<img width=100 height=100 src="&rs("pic")&">")
'添加一个超链接标签，并将连接属性设置为一个显示产品详细信息的asp页面，其中带一个参数:id，这个应该是产品的id，同时，在链接后面加上产品的名字rs("productname"),.来自product表的productname字段
response.write("<a href='show.asp?id="&rs("id")&"'>"&rs("productname")&"</a></tr>")
'移动到下一条记录
rs.movenext
loop
'关闭记录集
rs.close
'关闭数据库连接
conn.close
'销毁数据库连接对象
set conn=nothing
%>
大概意思就是这样，有问题再交流，呵呵！