<%
dim conn,connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("*.mdb")
<!--上一行最后写上你的数据库路径-->
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
if Err then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查Conn.asp中的数据库指向。"
Response.End
end if
%>
将上面的内容保存为conn.asp