<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("news/new.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<%
sql="select * from home"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
无标题文档
