<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% sSql="select P_ProDuctClassID,P_Forder,P_ProductName,M_Name,P_FileName,P_ProductAddTime from baikedata,Forder where p_forder=M_ID group by P_ProDuctClassID,P_Forder,P_ID,M_ID,P_ProductName,M_Name,P_FileName,P_ProductAddTime order by P_ID DESC" oRs.open sSql,oConn,1,1 if oRs.bof and oRs.eof then response.redirect("/ver3.0/news/") else page=request.querystring("Page") oRs.PageSize = 15 if Not IsEmpty(page) then if Not IsNumeric(page) then page=1 else page = cint(page) end if if page > oRs.PageCount then oRs.AbsolutePage = oRs.PageCount page=oRs.pagecount elseif page <= 0 then page=1 oRs.AbsolutePage = 1 else oRs.AbsolutePage = page end if else page=1 oRs.AbsolutePage=1 end if end if %> 我欲封天,盗墓笔记小说txt下载,有声读物

成人国产精品一区二区在线观看_国产日韩欧美色播_最近在线观看视频2019_香蕉免费一区二区三区在线观看_日韩欧美黄色网站_igao网站在线观看_亚洲精品天天影视综合网_中文曰本熟女久久_最近更新在线观看视频_日韩精品熟女少妇中文字幕

百科中心
<%=ClassName%>百科中心
    <% For i = 1 to oRs.PageSize if oRs.EOF then Exit For end if Title=oRs("P_ProductName") P_forder=oRs("P_Forder") forder=oRs("M_Name") if Len(Title)>35 then NTitle=left(oRs("P_ProductName"),2)&"..." else NTitle=oRs("P_ProductName") end if d_time=split(oRs("P_ProductAddTime")," ") dl_time=split(d_time(0),"-") ds_time="" for j=0 to 2 if len(dl_time(j))<2 then ds_time=ds_time&"-0"&dl_time(j) else ds_time=ds_time&"-"&dl_time(j) end if next ds_time=right(ds_time,10) response.Write("
  • ·"&ds_time&"|"&NTitle&"") if i=5 or i=10 then response.Write("
  • ") end if oRs.movenext Next %>
<%if oRs.pagecount<>1 and oRs.pagecount<>0 then%> <%if page>1 then%> [首頁(yè)] [上一頁(yè)] <%if page [下一頁(yè)] [尾頁(yè)] <%else%> [下一頁(yè)] [尾頁(yè)] <%end if%> <%else%> [首頁(yè)] [上一頁(yè)] [下一頁(yè)] [尾頁(yè)] <%end if %> <%else%> [首頁(yè)] [上一頁(yè)] [下一頁(yè)] [尾頁(yè)] <%end if%> [頁(yè)次:<%=page%>/<%=oRs.PageCount%>] [共<%=oRs.RecordCount%>篇 <%=oRs.PageSize%>篇/頁(yè)] <%oRs.close()%>
百科中心
    <%call Baike_SubClass(C_ID)%>