<% classid=ReplaceUnsafe(request.QueryString("classid")) if not IsNumeric(smallclassid) then response.write"" response.End end if set dhrs=server.createobject("adodb.recordset") dhsql="select * from class where id="&classid dhrs.open dhsql,conn,1,1 if dhrs.eof then response.write"" response.End end if classname=dhrs("classname") classid=dhrs("id") dhrs.close set dhrs=nothing %> 亚洲精品无码高潮喷水a片软,人妻少妇乱子伦精品无码专区电影,私人vps一夜爽毛片免费 " /> " />

欧美精品亚洲精品日韩专区,狠狠躁日日躁夜夜躁2020,亚洲精品久久区二区三区蜜桃臀,欧美激情在线播放,狠狠躁日日躁夜夜躁2020,乱子伦一区二区三区,男人扒开添女人下部免费视频,婷婷色婷婷开心五月四房播播,亚洲色成人www永久在线观看,人妻洗澡被强公日日澡电影

產(chǎn)品分類

文章分類

<%=classname%>

<% Set rs=Server.CreateObject("ADODB.RecordSet") sql="select id,Title,hits,addtime,ClassName,showname from article where classid="& classid &" order by id desc" rs.Open sql,conn,1,1 if rs.eof and rs.bof then %> <% else rs.PageSize=20 page=request.QueryString("page") if page="" then page=request.Form("page") page=clng(page) if page=0 then page=1 pages=rs.pagecount if page > pages then page=pages rs.AbsolutePage=page for j=1 to rs.PageSize Title = rs("Title") turl="article.asp?id="&rs("id")&"&name="&rs("showname") hits= rs("hits") addtime=rs("addtime") %> <% rs.movenext if rs.eof then exit for next %> <% end if set rs=nothing%>

暫無內(nèi)容
<%=title%>	<%=addtime%>
<%if Page<2 then response.write "首頁上一頁 " else response.write "首頁 " response.write "上一頁 " end if if rs.pagecount-page<1 then response.write "下一頁尾頁" else response.write "" response.write "下一頁尾頁" end if response.write " 頁次："&Page&"/"&rs.pagecount&"頁 " response.write " 共"&rs.recordcount&"條記錄 "&rs.pagesize&"條記錄/頁" response.write " 轉(zhuǎn)到：" response.write " " %>

感谢您访问我们的网站，您可能还对以下资源感兴趣：

欧美精品亚洲精品日韩专区,狠狠躁日日躁夜夜躁2020,亚洲精品久久区二区三区蜜桃臀,欧美激情在线播放,狠狠躁日日躁夜夜躁2020,乱子伦一区二区三区,男人扒开添女人下部免费视频,婷婷色婷婷开心五月四房播播,亚洲色成人www永久在线观看,人妻洗澡被强公日日澡电影