大咖SHOW場(chǎng)
-
<%
dim wherelist,sql,z
set rs=server.CreateObject("adodb.recordset")
z=GetSqlSafeStr(trim(request("z")))
brandname = GetSqlSafeStr(trim(request("brandname")))
wherelist = " status=1 "
if z<>"" then
wherelist = wherelist & " and zimu='"&z&"'"
end if
if brandname <> "" then
wherelist = wherelist & " and pinpai like '%"&brandname&"%'"
end if
sql="select * from company where "&wherelist&" order by orderid desc,click desc,id desc"
rs.open sql,conn,1,1
do while(not rs.eof)
%>
-
"><%=rs("zhuti") %>
生命力：">
性價(jià)比：">
- >領(lǐng)導(dǎo)力：
<%=rs("ldl")%>
- >戰(zhàn)斗力：
<%=rs("zdl")%>
- >防御力：
<%=rs("fyl")%>
- >魅力值：
<%=rs("mlz")%>
產(chǎn)品特點(diǎn)：<%=Cutstr(DelHTML(trim(rs("jieshao"))),50) %>
<%
rs.MoveNext()
loop
rs.close
%>
關(guān)注排行榜
-
<%
dim inum
inum=1
set rs=server.CreateObject("adodb.recordset")
wherelist = " status=1 "
sql="select top 15 * from company where "&wherelist&" order by click desc,id desc"
rs.open sql,conn,1,1
do while(not rs.eof)
%>
- 1 then Response.Write("style='display:none'") end if %>> "><%=inum %>
- > "><%=inum %> <% inum=inum+1 rs.MoveNext() loop rs.close %>