Function RecordShow(Sql)
'取记录集
'按指定sql语句取记录集
Dim Comm,Rs
Dim Recordcounts
Dim ArrayRecord
Recordcounts=1

Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open Sql,Conn,1,1

If Rs.Eof Then
Recordcounts=0
Rs.Close
Set Rs=Nothing
End If
If RecordCounts=0 Then Redim ArrayRecord(0,0):ArrayRecord(0,0)="@无@" Else:ArrayRecord=Rs.GetRows()
Rs.Close
Set Rs = Nothing
RecordShow=ArrayRecord
End Function