<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% sSql="Select * From CoolSiteData Where C_SiteClass = 7 and C_Recycle=False Order By C_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 = 5 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 %> 国产大学生自拍三级视频 ,国产欧美一区二区久久久,在线天堂亚洲专区国产专区

欧美精品一本久久男人的天堂-国产精品亚洲毛片完整版-日韩欧美亚州国产精品字幕久久久-色噜噜噜噜视频在线亚洲

新聞中心
視頻新聞
<% For i = 1 to oRs.PageSize if oRs.EOF then Exit For end if Title=oRs("C_SiteName") if len(oRs("C_Description"))<60 then rec_content=oRs("C_SiteDesc") else rec_content=oRs("C_Description") end if rec_content=replace(rec_content," ","") rec_content=left(trim(ClearHtml(rec_content)),72)&"..." if Len(Title)>25then NTitle=left(Title,23)&"..." else NTitle=Title end if response.Write("
") response.Write("
") response.Write("
") response.Write("
") response.Write("

"&""&NTitle&"

") response.Write("

"&rec_content&"

") response.Write("
") response.Write("
") 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()%>
桃江县| 无极县| 焦作市| 吉木萨尔县| 陆河县| 长宁县| 桃园县| 临泽县| 桂林市| 奉新县| 鞍山市| 游戏| 遵义县| 栾川县| 迁西县| 东莞市| 永春县| 绿春县| 达拉特旗| 公主岭市| 赤城县| 西昌市| 寿阳县| 余江县| 彭阳县| 扶余县| 香格里拉县| 漳平市| 沁阳市| 县级市| 文昌市| 曲靖市| 岐山县| 忻城县| 宁乡县| 巩义市| 陈巴尔虎旗| 峡江县| 隆化县| 堆龙德庆县| 高阳县|