这段代码如何写成一行一个
发布网友
发布时间：2022-05-09 16:53
共1个回答
热心网友
时间：2023-10-09 15:58
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from shopxp_stype where shopxpbe_id=" & rs("shopxpbe_id") & " order by shopxpse_idorder",conn,1,1
if rs_s.recordcount=0 then
%>
<%
else
i=0
while not rs_s.eof
%>
<tr>
<td height="18" colspan="2"><a href="xpCatalog_xpsmall_Desc.asp?action_key_order=small&shopxpbe_id=<%=rs("shopxpbe_id")%>&shopxpse_id=<%=rs_s("shopxpse_id")%>"> <%=rs_s("shopxpse_name")%></a></td>
</tr>
<%
rs_s.movenext
wend
end if
%>
</table>
<%
rs_s.close
set rs_s=nothing
rs.movenext
wend
end if
rs.close
set rs=nothing
%>
