| |
| 电子商务 |
<%
set conn = server.createobject("ADODB.Connection")
conn.open "DSN=risun"
set RS = Server.createobject("ADODB.Recordset")
S1 = "select distinct v_goods_serial from rs_goods where v_goods_type ='"&goods_type&"'"
RS.Open S1, conn, adOpenStatic
do while not RS.eof
%> <%
if RS("V_goods_serial") = goods_serial then
set RSN = Server.createobject("ADODB.Recordset")
S2 = "select v_goods_id, v_goods_name from rs_goods where v_goods_serial ='"&goods_serial&"'"
RSN.Open S2, conn, adOpenStatic
do while not RSN.eof
%> <%
RSN.movenext
loop
RSN.close
end if
%> <%
RS.movenext
loop
RS.Close
conn.Close
%>
|
|
|
