UC知道ASP数组的查询
来源：百度知道 编辑：UC知道 时间：2024/05/15 16:12:21
<%
Set rsd=Server.CreateObject("ADODB.RecordSet")
txt = request("text")
str1=split(txt,vbcrlf)
for i=0 to ubound(str1)
str2=str1(i)
sqld="Select * from ydcode where ydcode='"&str2&"'"
rsd.open sqld,conn,1,1
response.write rsd("ydcode")& "<br>"
next
%>
有谁帮我看下这个哪里有问题，为什么我查出来显示的rsd("ydcode")都是一样的记录
Set rsd=Server.CreateObject("ADODB.RecordSet")
txt = request("text")
str1=split(txt,vbcrlf)
for i=0 to ubound(str1)
str2=str1(i)
sqld="Select * from ydcode where ydcode='"&str2&"'"
rsd.open sqld,conn,1,1
response.write rsd("ydcode")& "<br>"
next
%>
有谁帮我看下这个哪里有问题，为什么我查出来显示的rsd("ydcode")都是一样的记录
你先输出str2都是一样什么值，估计这些值都是一样。
<%
txt = request("text")
str1=split(txt,vbcrlf)
for i=0 to ubound(str1)
str2=str1(i)
Set rsd=Server.CreateObject("ADODB.RecordSet")
sqld="Select * from ydcode where ydcode='"&str2&"'"
rsd.open sqld,conn,1,1
response.write rsd("ydcode")& "<br>"
rsd.close
next
%>
试试上面这个行不行？我又换了一个写法给你
<%
Set rsd=Server.CreateObject("ADODB.RecordSet")
txt = request("text")
sqld="Select * from ydcode where ydcode in '"&replace(txt,vbcrlf,",")&"'"
rsd.open sqld,conn,1,1
do while not rsd.eof
response.write rsd("ydcode")& "<br>"
rsd.movenext
loop
%>