贴吧话题
<%zid=request("zid") if instr(zid,"-") > 0 then zid = left(zid,instr(zid,"-")-1) end if rs.close exec="select * from yrwl_tb_type where lx not like '%-%' order by px" rs.open exec,conn,3,1 gs = rs.recordcount while not rs.eof lx = rs("lb") id = rs("lx") ms = rs("ms") sp = rs("sp")%>
<%=lx%>
<%sqltj = " and lx like '" + id + "-%'"
exec="select * from yrwl_tb_type where lx<>'0' "+sqltj+ " order by px"
set rs1=server.createobject("adodb.recordset")
rs1.open exec,conn,1,1
i=1
if not rs1.eof then
while not rs1.eof
lx = rs1("lb")
id1 = rs1("lx")
sp = rs1("sp")
if i=1 then
response.write "
"
else
response.write "|"
end if%>
<%=lx%>
<%rs1.movenext
i = i + 1
wend
rs1.close
set rs1 = nothing
end if
rs.movenext%>
-
<%call top_list(5," ","",18 ," and lb like '" + id + "%' order by id desc","","")%>
美图欣赏
<%sql="select top 6 * from yrwl_tb_lt where 1=1 and ( fj like '%.jpg' or fj like '%.gif') and zid='s' order by id desc " set rsc=server.CreateObject("Adodb.recordset") rsc.open sql,conn,3,1 while not rsc.eof pzt = btxszh(rsc("zt")) 'if len(pzt) > 12 then ' xzt = left(rsc("zt"),12) & ".." 'else ' xzt = pzt ''end if %> <%rsc.movenext wend rsc.close set rsc=nothing%>英雄用户
<%=userlist(4,4)%>