利用JSP的思想来做ASP

CatchError("HasRecordByID")

If Not (Rs.eof Or Rs.bof) Then

HasR = False

Else

HasR = True

End If

Rs.close

Set Rs = Nothing

HasRecordById = HasR

End Function

’**********************************************

’*通过SQL语句取得记录集

’**********************************************

Function GetRsBySql( Sql )

Call CheckSql(Sql,"R")

Dim Rs

Set Rs = Server.CreateObject("Adodb.RecordSet")

Rs.Open Sql,ConnEx,1,1

Set GetRsBySql = Rs

End Function

’*********************************************

’*取得某个字段的值

’*********************************************

Function GetValueBySql( Sql )

Call CheckSql(Sql,"R")

Dim Rs,ReturnValue

Set Rs = ConnEx.Execute(Sql)

CatchError("GetValueBySql")