<% dim class_where,lbid,fid,class_title,big_lbid lbid=requestint(request("lbid"),0):page=requestint(request("page"),1) if cint(lbid)=0 then lbid=Conn.Execute("select top 1 id from Try_lb Where followid=0 order by ordnum asc,id asc")(0) set rsTem = conn.execute("select title,followid,pages,ordnum,pagead,keywords,keydesc from Try_lb where id="&lbid) if rsTem.eof then response.Redirect "?" Response.End() else keyword=rsTem(5):class_desc=rsTem(6):classpage=15:followid=rsTem(1):pagead=rsTem(4) class_title = rsTem(0) : fid = rsTem(1) If followid<>0 Then big_lbid=fid Else big_lbid=lbid End IF end if set rsTem = nothing Set Temp=New Templates Temp.Label "{tryine:common_id}",lbid Temp.Label "{tryine:common_big_lbid}",big_lbid Temp.Label "{tryine:class_key}",keyword Temp.Label "{tryine:class_desc}",class_desc Temp.Label "{tryine:banner_img}",pagead Temp.Label "{tryine:class_lbid}",lbid Temp.Label "{tryine:pages}",page Temp.Label "{tryine:class_title}",class_title class_where = "where ispass=1 and iscreate=1" class_where = class_where & " and lbid in (select id from try_lb where followid="&lbid&" or id="&lbid&")" 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_products")) Else rs.PageSize=15 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,"?lbid="&lbid&"&page=","") show=Temp.tryine_Templates(Load_temp_dir&Load_temp_file("tryine_skins_products")) End IF Echo show Set Temp=Nothing Conn.Close:Set Conn = Nothing %>