<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("inc/casss.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
sub rsclose
rs.close
set rs=nothing
end sub
sub connclose
conn.close
set conn=nothing
end sub
%>
欢迎来到广思系统有限公司
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql ="Select TOP 3 * FROM news Order By ID"
rs.open sql,conn,1,3
If Not rs.Eof Then
rs.MoveFirst
do while not rs.eof %>
