??

Question

sql=right(sql,len(sql)-2)
sqltemp=sqltemp&sqlon error resume next
set rs=server.createobject("adodb.recordset")
rs.open sqltemp,objconn,3,1if rs.EOF then
response.write "<script language=JavaScript>" & chr(13) & "alert('没有此材料！');" & "history.back()" & "</script>" 
else
 
 for i=0 to ubound(idlist)
 rs.MoveFirst while not rs.EOF
if trim(rs("baseno"))=trim(IDList(i)) then
name=rs("basename") 
end if
rs.MoveNext
 wend
  sqlstr="insert into shop(username,useremail,stuffno,stuffname,buydate) values('"&myname&"','"&mail&"','"&trim(IDList(i))&"','"&name&"','"&addtime&"')"

Answer 1

objconn.execute(SQLstr)
  nextend if response.write "<script language=JavaScript>" & chr(13) & "alert('这本图书已添加到你的购物蓝中！');" & "history.back()" & "</script>" 
set rs=nothing
set rstemp=nothing
set conn=nothing
%>

Answer 2

现在加了一小节：
while not rs.EOF
if trim(rs("baseno"))=trim(IDList(i)) then
name=rs("basename") 
end if
rs.MoveNext
 wend
sql="select * from shop  where stuffno='"&trim(IDList(i))&"'"  
response.Write sql
response.Flush 
rscheck=objconn.Execute (sql)
 if rscheck.eof then  
  sqlstr="insert into shop(username,useremail,stuffno,stuffname,buydate) values('"&myname&"','"&mail&"','"&trim(IDList(i))&"','"&name&"','"&addtime&"')"
  objconn.execute(SQLstr)
 else 
 response.Write "<script language=JavaScript>" & chr(13) & "alert('您选的材料已在您的购物篮！');" & "history.back()" & "</script>" 
 end if 
 next