conn.asp

来自「个人求职网源代码」· ASP 代码 · 共 12 行

<%
     Response.Buffer = True 
	 On Error Resume Next
db="news111.mdb"
 set conn=server.createobject("ADODB.Connection")
 set rs=server.createobject("ADODB.Recordset")
 'conn.open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & server.mappath(db)
 dsconnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.open dsconnstr

%>