<%dim sqllist,rslist,gsid,icolor
sqllist="select info.info_id,info.flag as infoflag,info.gsid,info.sortid as infosortid,info.typeid as infotypeid,info.type,info.showname,info.content,info.period,info.dateandtime,info.picture,info.Specifications,info.Quantity,info.Packaging,info.PriceTerms,corporation.* from info,corporation where info.gsid="&gsid&" and corporation.id=info.gsid and info.flag=1 and info.type='卖'"
Set rslist= Server.CreateObject("ADODB.Recordset")
rslist.open sqllist,conn,1,1
msg_per_page=3 '定义每页显示记录条数
%>
<%
if rslist.eof then
response.Write"
该公司暂无供应信息 "
else
gsid=rslist("gsid")
%>
<%do while not rslist.eof and rowcount > 0%>
<%
rowcount=rowcount-1
if not rslist.eof then
rslist.movenext
end if
loop
end if
%> |
|