28,391
社区成员
发帖
与我相关
我的任务
分享
Dim StrCid,i
StrCid = "2,5"
Dim ArrCid = StrCid.Split(",")
i = 0
While i < Ubound(ArrCid)
rs.open "SELECT [name] FROM [table1] WHERE "& ArrCid(i) &" IN cID"
IF rs.recordcount > 0 Then
Do
Response.Write(Rs(0) &"<br />")
rs.movenext
While NOT rs.EOF
Else
Response.Write("没有纪录")
End IF
i = i + 1
Wend