select.txt

来自「tushuguanlixitong 图书借阅系统 用ASP实现的 能实现简单的」· 文本 代码 · 共 45 行

dim strConn
dim strSQL
dim objrst

strConn = "DSN=dblib;uid=;pwd=;database=db"
strSQL = "select * from dbuser where uid = '" & uid & "' and pwd = '" & pwd & "'"

set objrst = GetADORecordset (strConn,strSQL)



'======================================================================
'  GetADORecordset -- Gets an ADO recordset given a connectionstring,
'  sql query string.
'
'==============================
Function GetADORecordset(strConn, strSQL)
	On Error Resume Next
	 
	Dim objConnection
	Dim objRecordset
	
	Err.Clear 
	
	' Setup an ADO connection to the database:
	Set objConnection = Server.CreateObject("ADODB.Connection")
    Set objRecordset = Server.CreateObject("ADODB.Recordset")
    
    objConnection.ConnectionString = strConn
    objConnection.Open
    Set objRecordset.ActiveConnection = objConnection
    objRecordset.Source = strSQL
    objRecordset.CursorLocation = 3
    objRecordset.Open
	
	If Err Then
		Set GetADORecordset = Nothing
		If Not HaveError() Then
			SetError "GetADORecordset", Err.number, Err.Description
		End If
	Else
		Set GetADORecordset = objRecordset
	End If 
End Function