ASP连接ACCESS数据库代码
Asp连接数据库的代码，该代码有防暴库能力，欢迎学习。
<%
dim conn
dim connstr
dim Cmdb
Cmdb="../database/webdata.mdb" '数据库文件位置
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(Cmdb)
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
%>
asp 连接access 数据库
第一步、编写连接公用函数 conn.asp
<%
on error resume next
Server.ScriptTimeout=60
dim driver_Provider,conn,connPath,connstr
driver_Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
connPath = "Data Source=" & Server.MapPath("/test/koma.mdb")
Set conn= Server.CreateObject("ADODB.Connection")
connstr=driver_Provider&connPath
conn.Open connstr
%>
第二步、编写测试程序 index.asp
<!--#include file=conn.asp-->
<%
strsql = "select * from class_info order by cId desc"
set rs=server.createobject("adodb.recordset")
rs.open strsql,conn,1,1
do while not rs.eof
response.write "<li>" & rs("cName")
rs.movenext
loop
rs.close
set rs=nothing
%>
备注：数据结构
字段名称　　　　数据类型
cId（主键）　　cName（文本）