pcm=Request("pcm")
pcm=Split(pcm,",")
For j=0 To UBound(pcm)
Set rs5 = Server.CreateObject("ADODB.Recordset")
sql="select * from kcxx where pcm='"&pcm(j)&"'"
rs5.open sql,cnndb,1,1
ypsl(j)=rs5("ypsl")
response.write ypsl(j)
response.write "<br>"
next
------------------
一下是结果 只能看到第一条记录 为什么不循环呢 实际有多条复合记录的值
2015111911052
ADODB.Field 错误 '800a0bcd'

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

/ylxt/ckh_save.asp，行 49

楼主为什么不一次性将符合要求的记录提取出来呢？

对 先都提取出来

不明白你说的是啥意思，因为我取的文本数据是不定项的是动态数组。
另外如果pcm这个字段是整数型的 那么程序是没问题的