sql=""
delCheck=split(request("checkNum"))
boyd_check=split(request("checkNum"),",")
for i=0 to ubound(delCheck)
sql=sql&delCheck(i)
set rs3=server.CreateObject("adodb.recordset")
sql3="select * from jdxx where 序号 ='"&boyd_check(i)&"'"
rs3.open sql3,conn,1,1
if not rs3.eof then
sql="delete from jdxx where 序号 in ("&boyd_check(i)&")"'='"&boyd_check(i)&"'"' in ("&sql&")"
conn.execute(sql)
end if
dim tempStr,sqlStr
for i=0 to UBound(myArray)
if i=0 then
tempStr=myArray(i)
else
tempStr=tempStr&","&myArray(i)
next
'得出SQL
sqlStr="select "&tempStr&" from a"