<% const MaxPerPage=18 dim totalPut dim CurrentPage dim TotalPages dim i,j dim keyword keyword=request("txtitle") if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if dim sql dim rs dim rstype dim typesql dim typeid,typename if not isEmpty(request("typeid")) then typeid=request("typeid") else typeid=1 end if set rstype=server.createobject("adodb.recordset") typesql="select * from type where typeid="&cstr(typeid) rstype.open typesql,conn,1,1 typename=rstype("type") rstype.close %> 久久国产第区二区三区日韩精品_特一级毛片免费在线观看_极品少妇护士喷水视频在线观看_午夜91精品视频国产_亚洲aa成人精品_亚洲一级毛片在线听_最近2019年中文字幕视频_在线观看亚洲成人影院_婷婷中文网综合在线播放_欧美一级淫片免费播放40分钟

蜜臀av一区二区_99久久99久久免费精品蜜桃_欧美喷潮久久久XXXXX_人妻少妇精品视频三区二区一区

<% sql="select * from learning where title like '%"&keyword&"%' and typeid="+cstr(typeid)+" order by articleid desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "

沒有或沒有找到任何文章

" else totalPut=rs.recordcount totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showpage totalput,MaxPerPage,"index.asp" showContent showpage totalput,MaxPerPage,"index.asp" else if (currentPage-1)*MaxPerPage
<%do while not rs.eof%> <% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %>
職 位 名 稱 發布日期 點擊

  )" class="heizi"><%=rs("title")%>

<%=rs("dateandtime")%>

<%=rs("hits")%>

<% end sub function showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if end function %>
主站蜘蛛池模板: 新巴尔虎左旗| 永和县| 河南省| 永春县| 佛教| 克山县| 眉山市| 隆尧县| 墨玉县| 徐州市| 景德镇市| 栾川县| 合川市| 屏南县| 青龙| 昭平县| 那曲县| 盱眙县| 安国市| 鹤山市| 遂溪县| 九龙城区| 乌什县| 安溪县| 黄大仙区| 咸宁市| 新龙县| 土默特右旗| 古丈县| 乌兰察布市| 定兴县| 武川县| 天气| 泾川县| 扎赉特旗| 盖州市| 册亨县| 福安市| 固阳县| 永顺县| 县级市|