<% sql="select info.*,corporation.id,corporation.flag as corflag,corporation.qymc,corporation.country,corporation.sf,corporation.city,corporation.web,corporation.url,corporation.trust_score from info,corporation where info.type='卖' and info.dateandtime>=date()-1 and corporation.id=info.gsid and info.flag=1" sql=sql&" order by info.info_id desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 msg_per_page=20 '定义每页显示记录条数 %>

您当前的位置： <%=webname%>首页 > 我要采购 > 查看今日最新供应信息

如何搜索

<% sortsql="select * from class_1" set rssort=conn.execute(sortsql) if rssort.eof then response.write"暂无行业分类" else do while not rssort.eof %>

&datetime=1" class=m><%=rssort("sort")%> (<%=yijitodayinfo_sale%>)

↑

<% typesql="select * from class_2 where sortid="&rssort("sortid")&"" set rstype=conn.execute(typesql) if rstype.eof or rstype.bof then response.write"暂无行业小类" else response.write"" response.write"" response.write"" do while not rstype.eof response.write"" a=a+1 if a=3 then response.Write"" a=0 end if rstype.movenext loop response.write"" response.write"

" response.write""&rstype("typename")&" ("&erjitodayinfo_sale&")

" end if rstype.close set rstype=nothing %>

<% rssort.movenext loop end if rssort.close set rssort=nothing %>
<% if rs.eof then response.Write"

暂无任何信息

" else %>

图片

供应信息/公司

<%response.write"按诚信通
指数排序"%>

产地

<%do while not rs.eof and rowcount > 0%> >

<%if rs("picture")<>"nopicture.gif" then%>" target=_blank>

" onload="javascript:if(this.height>this.width){this.height=64}else{this.width=64}" border=0> <%else%> 无图<%end if%>

" target=_blank><%=rs("showname")%>
<%if rs("corflag")=1 then%>" target=_blank><%=rs("qymc")%><%else%>" target=_blank><%=rs("qymc")%><%end if%> <%if rs("corflag")=1 then%>

<%end if%> <%=rs("dateandtime")%>
<%if rs("corflag")=1 then%> " target=_blank>该会员所有供应信息<%end if%>

<%if rs("corflag")=1 then%>

<%=rs("trust_score")%> <%end if%>

<%if rs("country")="中国" then response.write""&rs("sf")&""&rs("city")&"" else response.write""&rs("country")&"" end if%>

<% icolor=icolor+1 if icolor>1 then icolor=0 rowcount=rowcount-1 rs.movenext loop end if %>

<%=listPages("todaylist.asp?typeid="&typeid&"&country1="&country&"&province="&sf&"&city="&city&"&datetime="&datetime&"&show="&show&"")%>

<% rs.close set rs=nothing conn.close set conn=nothing %>