喜达国际_一搏国际_鸿博国际协和医院刘玉华教授讲影响儿童弱视疗效的几个因素弱视知识普及:协和刘玉华教授讲儿童弱视
返回列表 回复 发帖

opendb

opendb

[这个贴子最后由galen在 2002/09/09 01:27pm 编辑]

<%
session.abandon
'Server.ScriptTimeOut=500
function opendb(DBPath,sessionname,dbsort)
dim conn
if not isobject(session(sessionname)) then
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.MapPath("database/myoffice.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set session(sessionname)=conn
end if
set opendb=session(sessionname)
end function
%>
<%
session.abandon
Server.ScriptTimeOut=500
function opendb(DBPath,sessionname,dbsort)
dim conn
if not isobject(session(sessionname)) then
Set conn=Server.CreateObject("ADODB.Connection")
'conn.open("dsn=topeye_office")
DBPath1=server.MapPath("/database/myoffice.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set session(sessionname)=conn
end if
set opendb=session(sessionname)
end function
%>
返回列表
?