杭州交通信息网贵州牛场:关于VBScript的过程问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/07 13:03:10
Function Openorget_Datebase(Dbpath,sessionname)
Dim conn
If Not Isobject(Session(Session(Session(name)) then
Set conn=server.Createobject("ADODB.Connection")
conn.open "driver={microsoft access driver(*.mdb)};dbq="&DBpath
Set Session(Sessionname)=conn
End if
Set Openorget_datebase=Session(Sessionname)
End function
请讲解一下这段是什么意思
Dim conn
If Not Isobject(Session(Session(Session(name)) then
Set conn=server.Createobject("ADODB.Connection")
conn.open "driver={microsoft access driver(*.mdb)};dbq="&DBpath
Set Session(Sessionname)=conn
End if
Set Openorget_datebase=Session(Sessionname)
End function
请讲解一下这段是什么意思
这个函数的意思就是打开或者得到数据库的会话名,先尝试得到,如果得不到就创建一个会话,然后返回,我来翻译下.
函数 打开或者得到数据库(路径,会话名称)
定义 conn
如果非 是个对象(会话(会话(会话(名称)) 那么
设置 conn=服务器.创建对象("ADODB.Connection")
conn.打开 "driver={microsoft access driver(*.mdb)};dbq="&数据库路径
设置 会话(会话名称)=conn
结束 如果
设置 打开或者得到数据库=会话(会话名)
结束函数
求解....