<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% bt=trim(request.querystring("bt")) bt=fld(bt) if isnumeric(bt) then set rs_xx_bt=server.createobject("adodb.recordset") lr_xx_bt="select bt from xx_bt where id="&bt rs_xx_bt.open lr_xx_bt,conn,1,1,1 if rs_xx_bt.recordcount<>0 then bbt=rs_xx_bt("bt") else bbt="" end if call gbdx(rs_xx_bt) else bbt="" end if if bbt<>"" then xx_cx_tj="and bt='"&bbt&"' " else xx_cx_tj="" end if select case bbt case "" ytgjz="" case "" ytgjz="" case "精品包包" ytgjz="" case "男鞋女鞋" ytgjz="" case "化妆美容" ytgjz="" case "首饰银饰" ytgjz="" case "运动品牌" ytgjz="" case "其它货源" ytgjz="" case "网店收录" ytgjz="" case "网店服务" ytgjz="" case else ytgjz="" end select %> <% =bbt %> - <% =rs_xtpz("mc") %>
<% set rs_xx=server.createobject("adodb.recordset") lr_xx="select id,bt,zt,lr,tp,tjf,ll,fbsj from xx where shf=true "&xx_cx_tj&"order by jj desc,id desc" rs_xx.open lr_xx,conn,1,1,1 if rs_xx.recordcount<>0 then '分页 y_dx=16 rs_xx.pagesize=y_dx y_zs=rs_xx.pagecount jl_zs=rs_xx.recordcount y=trim(request.querystring("y")) if y<>"" then if not isnumeric(y) then call yzcc("请合法操作!") end if end if if y="" then zx=1 elseif cint(y)<1 then zx=1 elseif cint(y)>y_zs then zx=y_zs else zx=cint(y) end if rs_xx.absolutepage=zx i=0 while not rs_xx.eof and i <% i=i+1 rs_xx.movenext wend %> <% else %> <% end if call gbdx(rs_xx) %>

 当前位置: " target="_blank"><% =rs_xtpz("mc") %> > <% =bbt %> >
" width="80" height="80" class="tpbx">  

" target="_blank">"><% =gshwz(gsh(rs_xx("zt")),28,28) %>

更新日期: <%=year(now)%>年<%=month(now)%>月<%=day(now)%> | 类别: <% =rs_xx("bt") %> | 浏览次数:<% =rs_xx("ll") %>
<% =gshwz(gsh1(trim(rs_xx("lr"))),120,120)&"..." %>
共有<% =jl_zs %>条记录/共<% =y_zs %>页/当前<% =zx %>页<% if zx=1 then %>[首页][上一页]<% else %>[][上一页]<% end if if zx=y_zs then %>[下一页][末页]<% else %>[下一页][]<% end if %>
正在更新中...
 

最新发布

免费发布网站

<% set rs_tpgg=server.createobject("adodb.recordset") lr_tpgg="select top 1 tp,lr,wz,zzsj from tpgg where ggwz=8" rs_tpgg.open lr_tpgg,conn,1,1,1 if rs_tpgg.recordcount<>0 then if now()<% =tpgg_lr %>
 

本站精选

免费发布网站

<% set rs_tpgg=server.createobject("adodb.recordset") lr_tpgg="select top 1 tp,lr,wz,zzsj from tpgg where ggwz=9" rs_tpgg.open lr_tpgg,conn,1,1,1 if rs_tpgg.recordcount<>0 then if now()<% =tpgg_lr %>
 

推荐网站

免费发布网站