<%@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 %> 天堂а√在线最新版中文,女警乳链乳环蒂环铃铛调教,亚洲日韩看片无码电影

天天日天天爽天天操|国产69精品久久久久久人妻精品|亚洲精品国产91|欧美亚洲精品国产69|麻豆国产人妻欲求不满|亚洲最大无码AV在线观看|亚洲精品综合久久国产二区|国产精品久久人妻无码网站一区

百科中心
<%=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%> [首頁] [上一頁] <%if page [下一頁] [尾頁] <%else%> [下一頁] [尾頁] <%end if%> <%else%> [首頁] [上一頁] [下一頁] [尾頁] <%end if %> <%else%> [首頁] [上一頁] [下一頁] [尾頁] <%end if%> [頁次:<%=page%>/<%=oRs.PageCount%>] [共<%=oRs.RecordCount%>篇 <%=oRs.PageSize%>篇/頁] <%oRs.close()%>
百科中心
    <%call Baike_SubClass(C_ID)%>