这是conn.asp代码:
这是conn.asp代码:
if connPath = null Then
connPath = ""
End If
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(connPath & "database/db1.mdb")
set Conn=server.CreateObject("ADODB.Connection")
Conn.ConnectionString=strConn
Conn.open
%>
set rs=server.CreateObject("adodb.recordset")
rs.open"select top 7 * from [right] where sort_id=1 order by id desc",conn,1,1
do while not rs.eof
%>
" width="657" height="220">
rs.movenext
loop
rs.close
set rs = nothing
%>