<% x=request("x") if x<>"" then set bd=server.createobject("adodb.recordset") '********相关的小类************ bd.open "select * from qtsmall where id="&x&"",db,1,1 xsort=bd("wa") dlid=bd("wb") xshuxing=bd("wd") xxsortba=bd("ba") xxsortbb=bd("bb") bd.close end if%> <%=xsort%>-<%=ktx(wb)%>

首页: > <%=xsort%>

<% exec="select top 18 * from sp where wc='"&xsort&"' order by nid,id" set rsx=server.createobject("adodb.recordset") rsx.open exec,db,1,1 %><%do while not rsx.eof%>
<%rsx.movenext loop rsx.close set rsx=nothing %>