<% 'on error resume next dim class_where,lbid,fid,class_title,big_lbid set rs1=conn.execute("select * from try_class where id=75") if not rs1.eof then pagead=rs1("pagead") keyword=rs1("keyword") class_desc=rs1("class_desc") class_title=rs1("title") pagenum=rs1("pagenum") end if rs1.close:set rs1=nothing classpage=pagenum page=request.QueryString("page") page=Requestint(page,1) Set Temp=New Templates Temp.Label "{tryine:class_key}",keyword Temp.Label "{tryine:class_desc}",class_desc Temp.Label "{tryine:banner_img}",pagead Temp.Label "{tryine:class_id}",75 Temp.Label "{tryine:pages}",page Temp.Label "{tryine:class_title}",class_title class_where = "where 1=1" class_where = class_where & " and classid=75" Temp.Label "{tryine:class_where}",class_where Set Rs = Server.CreateObject("ADODB.RECORDSET") sql="select id from try_pro "&class_where&" order by ontop desc,ordnum desc,id desc" rs.open sql,conn,1,1 IF rs.eof and rs.bof then Temp.Label "{tryine:zhhpage}","" show=Temp.tryine_Templates(Load_temp_dir&Load_temp_file("tryine_skins_product")) Else rs.PageSize=pagenum maxpagecount=rs.pagecount rs.absolutepage =page rcount1=0 pagestart=page-2 pageend=page+2 if pagestart<1 then pagestart=1 end if if pageend>maxpagecount then pageend=maxpagecount end if rcount=rs.RecordCount Temp.Label "{tryine:zhhpage}",Getpagelists(rcount,page,maxpagecount,pagestart,pageend,"?page=","") show=Temp.tryine_Templates(Load_temp_dir&Load_temp_file("tryine_skins_product")) End IF Echo show Set Temp=Nothing Conn.Close:Set Conn = Nothing %> 无码国产精品午夜不卡_秋霞av一区二区二三区_国产TV欧美TV亚洲Tv_热の国产在线视频一区
<p id="fhsed"></p><td id="fhsed"></td>