<% 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-国产成人毛片亚洲精品不卡-在线看片人成视频免费无遮挡-人妻精品久久久久中文字幕

蜜臀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 "

沒(méi)有或沒(méi)有找到任何文章

" 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 %>
職 位 名 稱 發(fā)布日期 點(diǎn)擊

  )" 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 %>
主站蜘蛛池模板: 贵港市| 新竹县| 布拖县| 惠州市| 鄂托克前旗| 临泽县| 德州市| 丽江市| 普兰店市| 台东市| 德钦县| 扶沟县| 苏尼特左旗| 九江县| 和田市| 水城县| 财经| 台中市| 长汀县| 黔西县| 庄河市| 双江| 陇西县| 和林格尔县| 吉木萨尔县| 临武县| 纳雍县| 扶余县| 林甸县| 邯郸市| 靖西县| 全椒县| 固安县| 天气| 赣榆县| 绥化市| 永丰县| 临夏市| 阿拉善盟| 双流县| 阿合奇县|