<%
'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
%>
综合 欧美 小说 另类 图|动漫精品中文字幕第一页|久久中文精品无码中文字幕|欧美一级艳片爽快片欧