Question

ASP 的一个传递ID问题

就是想从一个分类表传递几个ID到产品里面,如下面做的说明:
<%

dim classid
dim myclassid

classid=replace(trim(request("classid")),"'","")
myclassid=replace(trim(request("myclassid")),"'","")

%>

<%
if myclassid<>"" then
Set rsa= Server.CreateObject("ADODB.Recordset")
sqlstr="select * from Classify where ParentID="&myclassid&""
rsa.open sqlstr,conn,1,1
do while not rsa.eof
Response.Write " "& rsa("id") &"," 这里测试的ID输出是对的如12,13,14
myid=rsa("id") 用myid传到下面
rsa.movenext
loop
end if
%>

<%

if classid<>"" then sqlwhere=sqlwhere &" and classid="&classid&""
if myclassid<>"" then sqlwhere=sqlwhere &" and classid in ("&myid&",)" 传以下面这里就不对了只有一个12

Set rs=Server.CreateObject("ADODB.RecordSet")
strsql="select * from Products where id<>0 "&sqlwhere&" order by id desc"
rs.Open strsql,conn,1,1
if rs.eof then
else
rs.movefirst
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=8
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount

%>

<%
do while not(rs.eof or rs.bof)
%>

<%
rs.movenext
loop
%>

<%
rs.close
set rs=nothing
%>

Answer 1

第一个办法
最开始处定义myid=""
myid=myid + rsa("id")&","
这个地方循环累加，然后调用
if myclassid<>"" then sqlwhere=sqlwhere &" and classid in ("&myid&",)"

第二个简单
还是调用myclassid变量
if myclassid<>"" then sqlwhere=sqlwhere &" and classid in ("&myclassid&",)"