Question

解释连接数据库代码 ASP

<%
dim conn,db
dim connstr
db="Databases/db.mdb" '数据库文件位置
on error resume next '如果出现错误，就跳过，执行下面的语句
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
function jincheng (p)
jincheng=p-100000000000000
end function
sub CloseConn()
conn.close
set conn=nothing
end sub
%>

Answer 1

<%
dim conn,db'定义变量conn和db
dim connstr'定义变量connstr
db="Databases/db.mdb" '数据库文件位置
on error resume next '如果出现错误，就跳过，执行下面的语句
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"'打开数据库
set conn=server.createobject("ADODB.CONNECTION")'创建记录集conn
if err then'如果出错
err.clear'就结束
else'否则
conn.open connstr'打开数据库的记录集
end if'条件语句结束
function jincheng (p)'定义常量JINCHENG，参数为P
jincheng=p-100000000000000'变量jiancheng=p-100000000000000000
end function'函数结束
sub CloseConn()'sub定义函数CLOSECONN（）
conn.close'关闭CONN记录集
set conn=nothing'conn记录集清空
end sub'sub结束
%>

Answer 2

<%
dim conn,db '定义
dim connstr '定义
db="Databases/db.mdb" '数据库文件位置
on error resume next '如果出现错误，就跳过，执行下面的语句
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" '数据库连接池
set conn=server.createobject("ADODB.CONNECTION") '创建数据库连接
if err then
err.clear
else
conn.open connstr '连接数据库
end if
function jincheng (p) '执行方法jincheng (p)
jincheng=p-100000000000000
end function
sub CloseConn()'关闭数据库连接
conn.close
set conn=nothing
end sub
%>