UC知道asp解释问题
来源：百度知道 编辑：UC知道 时间：2024/06/14 16:55:24
Function Open_conn()
dim Dbpath,Conn
Dbpath=server.MapPath("数据库路径")
set Conn=server.createObject("ADODB.connection")
Conn.open "data source="&dbpath&";provider=microsoft.Jet.OLEDB.4.0;"
set Open_conn=Conn
If Err Then
err.Clear
Conn.close:set Conn=nothing
Response.Write "对不起，数据库连接出错。"
Response.End
End If
End Function
帮忙解释一下
最好是一个个的解释那就更好啦!
给你100分
dim Dbpath,Conn
Dbpath=server.MapPath("数据库路径")
set Conn=server.createObject("ADODB.connection")
Conn.open "data source="&dbpath&";provider=microsoft.Jet.OLEDB.4.0;"
set Open_conn=Conn
If Err Then
err.Clear
Conn.close:set Conn=nothing
Response.Write "对不起，数据库连接出错。"
Response.End
End If
End Function
帮忙解释一下
最好是一个个的解释那就更好啦!
给你100分
Function Open_conn() 定义函数Open_conn
dim Dbpath,Conn 定义变量 Dbpath 和 Conn
Dbpath=server.MapPath("数据库路径") 把你的数据库的相对路径覆给变量Dbpath
set Conn=server.createObject("ADODB.connection") 定义使用connection对像联接数据库
Conn.open "data source="&dbpath&";provider=microsoft.Jet.OLEDB.4.0;" 打开联接数据库路径为server.MapPath("数据库路径") 的库，provider是connection对你内定数据管理器名称
set Open_conn=Conn ，设置错误索引
If Err Then 判断是否出错，如果出错则
err.Clear 清除错误对像里有内容
Conn.close:set Conn=nothing 关闭数据库
Response.Write "对不起，数据库连接出错。" 输入错误语句
Response.End 结束ASP语句退出
End If 判断结束
End Function 函数结束
Function Open_conn()
' 声明数据库路径，和数据库连接变量
dim Dbpath,Conn
' 获取服务器上数据库文件路径
Dbpath=server.MapPath("数据库路径")
' 创建ado 数据库连接对象
set Conn=server.createObject("ADODB.connection")
' 打开数据库
Conn.open "data source="&dbpath&";provider=microsoft.Jet.OL