谁能帮我把下面每句代码都解释一下?关于数据库联接的……

来源:百度知道 编辑:UC知道 时间:2024/06/24 05:14:36
<%
dim db
const DatabaseType="ACCESS"
db="cnhwwdata\cnhww.mdb"
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
%>

我成翻译官了。。。。

<%
dim db //定义一个变量db
const DatabaseType="ACCESS" //定义一个常量DatabaseType置为ACCESS
db="cnhwwdata\cnhww.mdb" //数据库文件的路径
On Error Resume Next //忽略错误,继续执行
dim ConnStr //定义变量ConnStr 和conn
dim conn
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) //提供数据库连接字符串
Set conn = Server.CreateObject("ADODB.Connection") //通过Server内置对象创建一个连接
conn.Open connstr //打开连接
If Err Then //如果打开 连接出现错误就执行下面的
err.Clear //清除错误信息
Set Conn = Nothing //设置连接为空
Response.Write "数据库连接出错,请检查Conn.asp文件中的数据库参数设置。" //像页面输出错误提示信息
Response.End //结束输出对象
End If //结束if语句
sub CloseConn() //定义一个过程
On Error Resume Next //忽略错误,继续执行
If IsObject(Conn) Then //如果连接对象conn为空的话执行下面的
conn.close //关闭连接
set conn=nothing //清空连接对象
end if //结束if语句
end sub //结束过程的定义
%&g