<%
sql2="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 sql2,conn,1,1
msg_per_page=4 '定义每页显示记录条数
%>
<%
if rslist.eof then
response.Write"
该公司暂无供应信息 "
else
gsid=rslist("gsid")
%> <%do while not rslist.eof and rowcount > 0%>
<%
icolor=icolor+1
if icolor>1 then icolor=0
rowcount=rowcount-1
rslist.movenext
loop
rslist.close
set rslist = nothing
end if
%> |
|
<%
sql="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 sql,conn,1,1
msg_per_page=4 '定义每页显示记录条数
%>
<%
if rslist.eof then
response.Write"
该公司暂无求购信息 "
else
%> <%do while not rslist.eof and rowcount > 0%>
<%
if icolor>1 then icolor=0
rowcount=rowcount-1
rslist.movenext
loop
rslist.close
set rslist = nothing
end if
%> |