<%
Server.ScriptTimeout = 1000000
Response.Buffer = True
on error resume next
dim dd,connstr
dd="datas/#data#qwbm.com#%23#%"	'修改数据库地址
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath (""&dd&"")
set conn=server.createobject("adodb.connection")
conn.open connstr
If Err.Number <> 0 Then
Err.Clear
Set conn = Nothing	
Response.Clear  ' 清除缓冲区
response.Write "数据库链接错误" ' 错误处理
Response.End
End If
%>