代码是:
Dim DBpath = Server.MapPath("./../data_base/data_images.mdb")
Dim Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info = False; Data Source=DBpath"
Dim Conn As ADODB.Connection
Dim Conn_t As ADODB.Recordset
Public Rst As ADODB.Recordset
Public Rst_r
Conn = New ADODB.Connection
Rst = New ADODB.Recordset
'Conn.Open(Connstr)
Conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" & DBpath)
Rst.Open("select * from image_1", Conn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockReadOnly)
Rst.MoveFirst()
页面中:
<%
If Rst.BOF And Rst.EOF Then
Response.Write("暂时还没有任何数据。")
Else
Do While Not Rst.EOF
%>
<tr>
<td><%=Rst("path")%></td><td><%=Rst("image_name")%></td>
</tr>
<%
Rst.MoveNext()
Loop
End If
Rst.Close(Rst = Nothing)
%>
那位帮我检查一下,如何能够取得正确的值显示出来?
