菜鸟提问

[82417]

rs.open "Select top 1 * From shop_sp where id="&cr_id&"",conn,1,3
rs("seller")=cartseller
rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
rs.open "Select top 1 * From shop_sp where id="&spid&"",conn,1,3
if rs("seller")<>cartseller then ....
end if
rs.close
set rs=nothing
这段程序如果要缩写应该怎么弄，这样老是打开同一个数据库太麻烦了

[HawaiiLeo]

sql = "Select top 1 * From shop_sp where id="&cr_id
rs.open sql,conn,1,3
rs("seller")=cartseller
rs.close

sql = "Select top 1 * From shop_sp where id="&spid
rs.open sql,conn,1,3
if rs("seller")<>cartseller then ....
end if
rs.close
set rs=nothing

[pengdali]

rs.open "Select top 1 * From shop_sp where id="&cr_id&"",conn,1,3


rs("seller")=cartseller


rs.close


rs.open "Select top 1 * From shop_sp where id="&spid&"",conn,1,3

if rs("seller")<>cartseller then ....

end if

rs.close

set rs=nothing