一款完整asp数据库连接程序

关于asp教程数据库教程连接程序这类开的问题，一般是刚学asp程序不久的朋友，也是说入门asp的朋友学的，在asp中要和access数据库连接的话需要利用了provider=microsoft.jet.oledb.4.0来做，下面看实例。

<%@language="vbscript" codepage="936"%>
<%
dim db
const databasetype="access"    
db="bbs/www.111com.net/cnhww.asp"      //设置连接数据库路径    
         on error resume next
 dim connstr
 dim conn
  connstr = "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(db)
  set conn = server.createobject("adodb.connection")
 conn.open connstr //打开数据库连接
 if err then
  err.clear
  set conn = nothing
  response.write "数据库连接出错，请检查conn.asp文件中的数据库参数设置。"
  response.end
 end if
sub closeconn() //关闭数据库连接
 on error resume next
 if isobject(conn) then
  conn.close
  set conn=nothing
 end if
end sub
%>