Set conn = Server.CreateObject("ADODB.Connection")
'conn.open "driver={sql server};server=localhost;database=home_db;uid=sa;pwd=;"
ConnectString = "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("asp.mdb")'&";uid=admin;pwd=asp"
conn.Open ConnectString
if err.number<>0 then
err.clear
set conn=nothing
response.write "数据库连接出错!"
Response.End
end if
sql="select * from asptest where ID=1"
set rs=conn.execute(sql)