'Asp从数据库取单一记录函数
'------------------声明------------------
'作者： 飞飞
'网站: www.ffasp.com
'Q Q: 276230416
'注:欢迎讨论交流
' 您可以更改和使用本程序，但请保留作者和出处

Function ShowInfo(Sql,ArrayCount)
'取一条记录
'Sql 传入参数 Sql语句
'ArrayCount 传入参数 需要的字段的个数
'ShowInfo 输出参数 为一个数组，数组的第一项为是否取到数据，如果有数据则为大于0的数字，否则为0。飞飞A.sp技术乐园参数一次类推为字段
ReDim NewArray(ArrayCount)
Dim Recordcounts,Rs,i,Comm
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

NewArray(0)=Recordcounts
If Recordcounts=0 Then ShowInfo=NewArray:Exit Function

For i = 0 to cint(ArrayCount-1)
NewArray(i+1)=Rs(i)
Next
Rs.Close
ShowInfo=NewArray
Erase NewArray
Set Rs=Nothing
End Function