opendb.asp

来自「人事OA管理系统」· ASP 代码 · 共 15 行

<%
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  "PROVIDER=SQLOLEDB;DATA SOURCE=(local);UID=sa;PWD=password;DATABASE=gov" 
set session(sessionname)=conn
end if
set opendb=session(sessionname)
end function
%>