ASP·â×°DLL£¬ºÍ¶¯Ò×Ò»ÑùÍⲿµ÷ÓÃÊý¾ÝÁ¬½Ó¡£

VB code:

Option Explicit
Private Context As ScriptingContext
Private Application As Application
Private Response As Response
Private Request As Request
Private Session As Session
Private Server As Server
Private Conn, Rs
Private SqlDatabaseName, SqlPassword, SqlUsername, SqlHostIP

'*************************************************************
'µ±×é¼þ±»´´½¨µÄʱºò»á´¥·¢Õâ¸öʼþ
'*************************************************************
Public Sub OnStartPage(PassedscriptContext As ScriptingContext)
Set Context = PassedscriptContext
Set Application = Context.Application
Set Request = Context.Request
Set Response = Context.Response
Set Server = Context.Server
Set Session = Context.Session
Call OpenConn
End Sub

'*************************************************************
'µ±×é¼þ±»Ïú»ÙµÄʱºò´¥·¢Õâ¸öʼþ
'*************************************************************
Public Sub OnEndPage()
Set Application = Nothing
Set Request = Nothing
Set Response = Nothing
Set Server = Nothing
Set Session = Nothing
Set Context = Nothing
Call CloseConn
End Sub


Public Sub OpenConn()
On Error Resume Next
Dim ConnStr
ConnStr = "Provider = Sqloledb; User ID = sa; Password = sa; Initial Catalog = db; Data Source = 192.168.0.1;"
Set Conn = Server.CreateObjec