数据链接（无源方式）

<%

Set conn = Server.CreateObject("ADODB.Connection")   

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mydate.mdb")   

conn.open connstr   

If Err Then          

err.Clear           

Set conn = Nothing         

Response.Write "数据库连接出错，请检查连接字串。"          

Response.End     

End If '定义新闻阅读界面的读取

%>