UC知道请帮我详细解释一下这段代码,谢谢?
来源：百度知道 编辑：UC知道 时间：2024/06/24 15:01:07
<%
dim db
const DatabaseType="ACCESS"
db="vote.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
const DatabaseType="ACCESS"
db="vote.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" ' 只读变量赋值 access
db="vote.mdb" '变量db赋值 voto.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") '创建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
%>