larrixdbms.asp

来自「一个ＡＳＰ网站博克程序」· ASP 代码 · 共 30 行

<%

	Class LarrixDBMS
	
		Dim objCONN
		Dim objRSET
		
		Private Sub Class_Initialize()
			Set objCONN = Server.CreateObject("ADODB.Connection")
			objCONN.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../common/LarrixBLOG.asp")
			Set objRSET = Server.CreateObject("ADODB.RecordSet")
		End Sub
		
		Private Sub Class_Terminate()
			Set objRSET = Nothing
			objCONN.Close
			Set objCONN = Nothing
		End Sub
		
		Public Sub Open(strSQL, intLock)
			objRSET.Open strSQL, objCONN, 1, intLock
		End Sub
		
		Public Sub Close()
			objRSET.Close
		End Sub
	
	End Class

%>