dim conn,connstr,time1,time2
time1=timer
response.buffer=true
On Error Resume Next
Set conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(yecaopath)
conn.Open connstr
If Err Then
err.Clear
Set Conn=Nothing
Response.Write"<br><br><br><center><font style=color:red;font-size:9pt;><b>数据库连接出错，请检查连接字串</b></font></center>"
Response.End
End If
sub closedata()
conn.close
set conn=nothing
end sub

————————————————


代码一点错误也没有，估计是计算机系统出了问题。可是iis照常能使用，也能访问使用sqlserver数据库的页面。可是访问access数据库就不行。是不是系统连接数据库的dll有问题，还是什么的。

请大侠赐教。

另外，我的网站服务器，经常被别人攻击（将asp文件写入主目录），如何防止。

去掉On Error Resume Next
看看有什么错误

LZ你把错误判断去掉
看看报的什么错误信息

什么错误信息也没有。页面照常能打开。但是，页面中没有调入数据库内容。

我去过if语句段代码的，asp页面中没有任何提示。就是数据库内容没有出现在页面中。

那就不是这些代码的问题了

数据库有没数据呀??

如果不去掉：If Err Then
err.Clear
Set Conn=Nothing
Response.Write"<br><br><br><center><font style=color:red;font-size:9pt;><b>数据库连接出错，请检查连接字串</b></font></center>"
Response.End
End If
则页面中出现：

数据库连接出错，请检查连接字串

可是，所有asp页面放在另一台服务器上面，则又能访问该服务器中asp页面。

数据库有数据。

很急啊，想把系统重装，太麻烦。只想修复。