百企萬店無假貨——誠信3.15優(yōu)惠促銷活動專區(qū)
-
<%
dim inum,wherelist,sql,z
inum=0
set rs=server.CreateObject("adodb.recordset")
z=GetSqlSafeStr(trim(request("z")))
brandname = GetSqlSafeStr(trim(request("brandname")))
wherelist = " zhuti<>'' and haibaopic<>'' and status=1"
if z<>"" then
wherelist = wherelist & " and zimu='"&Server.HTMLEncode(z)&"'"
end if
if brandname <> "" then
wherelist = wherelist & " and pinpai like '%"&brandname&"%'"
end if
sql="select * from company where "&wherelist&" order by orderid desc,id desc"
rs.open sql,conn,1,1
do while(not rs.eof)
%>
-
" target="_blank">
">
" target="_blank"><%=Cutstr(DelHTML(trim(rs("zhuti"))),20) %>
瀏覽：<%=rs("click") %>次 " target="_blank">馬上查看
<%
rs.MoveNext()
loop
rs.close
%>
誠信宣言參與企業(yè)
-
<%
set rs=server.CreateObject("adodb.recordset")
wherelist = " status=1 and isfaith=1"
sql="select * from company where "&wherelist&" order by orderid desc,id desc"
rs.open sql,conn,1,1
do while(not rs.eof)
%>
- " title="<%=rs("pinpai") %>" target="_blank">
.jpg" alt="<%=rs("pinpai") %>">
<%
rs.MoveNext()
loop
rs.close
ConnClose()
%>