<%
dim conn,connstr,db
db="111#.asa"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
%>
你换这段看看

是数据库被病毒 损坏了

可能你的数据库不是有校的ＡＣＣＥＳＳ应用程序