|
|
<OBJECT
runat=Server
scope=Application
id=OraSession
progid="OracleInProcServer.XOraSession"
></OBJECT>
<SCRIPT language=VBScript runat=Server>
' **********************************************************
' AvP[VJn
' **********************************************************
Sub Application_OnStart
OraSession.CreateDatabasePool 1,40,200,"LIGHTBOX","STUDY/STUDY", 0
End Sub
' **********************************************************
' AvP[VIΉ
' **********************************************************
Sub Application_OnEnd
End Sub
' **********************************************************
' ZbVJn
' **********************************************************
Sub Session_OnStart
End Sub
' **********************************************************
' ZbVIΉ
' **********************************************************
Sub Session_OnEnd
End Sub
</SCRIPT>
| |
|
|
|
|
<SCRIPT language=VBScript runat=Server>
' ******************************************************
' Database IuWFNgΜζΎ
' ******************************************************
Function GetDatabase( )
Set GetDatabase = OraSession.GetDatabaseFromPool(10)
GetDatabase.LastServerErrReset
End Function
' ******************************************************
' gUNVΜJn
' ******************************************************
Function BeginTran( OraDatabase )
On Error Resume Next
OraDatabase.Session.BeginTrans
if OraDatabase.Session.LastServerErr <> 0 then
OraDatabase.Session.CommitTrans
OraDatabase.Session.BeginTrans
end if
On Error Goto 0
End Function
' ******************************************************
' gUNVΜIΉ
' ******************************************************
Function CommitTran( OraDatabase )
OraDatabase.Session.CommitTrans
End Function
' ******************************************************
' RollBack
' ******************************************************
Function RollbackTran( OraDatabase )
OraDatabase.Session.Rollback
End Function
' ******************************************************
' DBΗέ
' yίθlz: True(f[^Lθ),False(f[^³΅)
' ******************************************************
Function OraDBGet( _
OraDatabase, _
OraDynaset, _
SqlQuery _
)
Set OraDynaset = OraDatabase.CreateDynaset(SqlQuery,2)
if OraDynaset.EOF then
OraDBGet = False
else
OraDBGet = True
end if
End Function
' ******************************************************
' SQLΆΜΐs
' ******************************************************
Public Function OraExecute( OraDatabase, SQLCommand )
On Error Resume Next
OraDatabase.ExecuteSQL( SQLCommand )
if OraDatabase.LastServerErr <> 0 then
OraExecute = False
else
OraExecute = True
end if
On Error Goto 0
End Function
</SCRIPT>
| |
|
|
|