opendb.asp.bak

云师大商学院目前正在使用的oa

<%
session.abandon
'Server.ScriptTimeOut=500
function opendb(DBPath,sessionname,dbsort)
dim conn
if not isobject(session(sessionname)) then
Set conn=Server.CreateObject("ADODB.Connection")
strCon = "Provider=SQLOLEDB;Server=www.ynnubs.com;User ID=OfficeOdb;Password=1q2w3e;Database=OfficeTranslation;"
conn.Open strCon
set session(sessionname)=conn
end if
set opendb=session(sessionname)
end function
%>
61.138.196.132
2003-12-25 11:34:14