<%
'连接数据库
'on error resume next
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/DataBase/#DataBaseSm.mdb")
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
If Err Then
response.Write "连接数据库出错!"
err.Clear
Set conn = Nothing
Response.End
End If
%>