Public Function ifexists() As Long Dim conn As Connection conn.ConnectionString = "driver={SQL SERVER};server=server01;uid=sa;pwd=;database=www_investguide_com_cn" conn.Open Dim rs As ADODB.Recordset Dim sqlstr As String sqlstr = "select * from login" ============================================= set rs=new adodb.recordset =================================== rs.Open sqlstr, conn, adOpenDynamic, adLockBatchOptimistic If Not rs.EOF Then aspresponse.Write ("there are data in login database") End If End Function
Dim conn As Connection
conn.ConnectionString = "driver={SQL SERVER};server=server01;uid=sa;pwd=;database=www_investguide_com_cn"
conn.Open
Dim rs As ADODB.Recordset
Dim sqlstr As String
sqlstr = "select * from login"
=============================================
set rs=new adodb.recordset
=================================== rs.Open sqlstr, conn, adOpenDynamic, adLockBatchOptimistic
If Not rs.EOF Then
aspresponse.Write ("there are data in login database")
End If
End Function