Question

ACCESS转换成SQL后遇到个问题！！！

今天把ACCESS转换成SQL后出现下面的问题。
错误类型：
Microsoft OLE DB Provider for SQL Server (0x80040E14)
第 1 行: ')' 附近有语法错误。
/admin/Movie_makeListall.asp, 第 53 行

Movie_makeListall.asp的相关代码如下：
<%
if request("type")<>"" then
if request("page")<>"" then
page=cint(request("page"))
D=request("D")
else
page=1
D=timer()
end if
mpage=1
mpage1=1
MaxPerPage=61
id=request("id")
ts=id&","
set rs=server.createobject("adodb.recordset")
if request("type")="all" then

rs.open ("select id,ts from Movietype where ts like '"&request("ts")&"%' order by id desc"),conn,1,1
if not rs.eof then
rs.pagesize=1 '得到每页数
mpage1=rs.pagecount '得到总页数
rs.move (page-1)*1
do while not rs.eof
i=i+1
id=rs("id")
ts=rs("ts")
if i>=1 then exit do
rs.movenext
loop
rs.close
end if
end if

if id<>"" then
sql="select * from Movietype where ts like '"&ts&"%'"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
sqqq=sqqq& ""&rs("id")&", "
rs.MoveNext
loop
end if
rs.close
rs.open ("select id from Movie where tid in("&sqqq&")"),conn,1,1 //这里就是出错的53行！！！！！！！
if not rs.eof then
rs.pagesize=MaxPerPage '得到每页数
mpage=rs.pagecount '得到总页数
else
mpage=1
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
............

备注：这个是一个生成“电影分类”静态页面的程序页面。高手帮帮忙。
QQ45223

Answer 1

把
do while not rs.eof
sqqq=sqqq& ""&rs("id")&", "
rs.MoveNext
loop
改成
do while not rs.eof
sqqq=sqqq&rs("id")
rs.MoveNext
if not rs.eof then sqqq=sqqq&","
loop

Answer 2

response.write sqqq 一下看看
sqqq 应该是 "1,2,4,7," 这样的形式吧
判断一下，如果最后一个字符是 ","，把它去掉，就ok了

If Right(sqqq, 1) = "," Then sqqq = Left(sqqq, Len(sqqq)-1)

Answer 3

同意楼上的，