<% dim rs,sql dim totalPut dim CurrentPage, TotalPages if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if set rs = server.createobject("adodb.recordset") %> 文章中心

　

友情链接: 空气压缩机 | 复盛空压机 | 空压机配件 | 空压机 | 阿特拉斯空压机 | 空压机配件 | 阳澄湖大闸蟹 | 佳吉快运 | 空压机配件 | 大闸蟹礼券 | 翻译公司 | 空压机 | 复盛空压机 | 空压机配件 | 北京翻译公司 | 开山空压机 | 上海虚拟主机 | 上海翻译公司 | 大闸蟹 | 空压机配件 |

管理登陆

进入招工栏
<% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop end sub %>
q 信息标题 作者 提交日期 阅读次数
<% sql="select * from article order by articleid desc" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "

没有或没有找到任何文章

" else 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 showContent showpage totalput,MaxPerPage,"index.asp" else if (currentPage-1)*MaxPerPage
<%=i+1%> " target="_blank"><%=rs("title")%> <%if not isnull(rs("writer")) then%> <%=rs("writer")%> <%else%> 不详 <%end if%> <%if rs("dateandtime")=date() then%> <%=year(rs("dateandtime"))%>-<%=month(rs("dateandtime"))%>-<%=day(rs("dateandtime"))%> <%else%> <%=year(rs("dateandtime"))%>-<%=month(rs("dateandtime"))%>-<%=day(rs("dateandtime"))%> <%end if%> <%=rs("hits")%>
<% function showpage(totalnumber,maxperpage,filename) dim n, i if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if response.write "
" response.write "" if CurrentPage<2 then response.write "共有 "&totalnumber&" 篇文章 | 首页 | 上一页 | " else response.write "共有 "&totalnumber&" 篇文章 | 首页 | " response.write "上一页 | " end if if n-currentpage<1 then response.write "下一页 | 尾页 | " else response.write "" response.write "下一页 | 尾页 | " end if response.write "页次："&CurrentPage&"/"&n&"页 | " response.write ""&maxperpage&"篇/页" response.write "
" response.write "" response.write "
" response.write "" response.write "
" %> <% end function set rs=nothing conn.close set conn=nothing %>

　

管理登陆

进入求职栏
<% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop end sub %>
q 信息标题 作者 提交日期 阅读次数
<% sql="select * from article order by articleid desc" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "

没有或没有找到任何文章

" else 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 showContent showpage totalput,MaxPerPage,"index.asp" else if (currentPage-1)*MaxPerPage
<%=i+1%> " target="_blank"><%=rs("title")%> <%if not isnull(rs("writer")) then%> <%=rs("writer")%> <%else%> 不详 <%end if%> <%if rs("dateandtime")=date() then%> <%=year(rs("dateandtime"))%>-<%=month(rs("dateandtime"))%>-<%=day(rs("dateandtime"))%> <%else%> <%=year(rs("dateandtime"))%>-<%=month(rs("dateandtime"))%>-<%=day(rs("dateandtime"))%> <%end if%> <%=rs("hits")%>
<% function showpage(totalnumber,maxperpage,filename) dim n, i if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if response.write "
" response.write "" if CurrentPage<2 then response.write "共有 "&totalnumber&" 篇文章 | 首页 | 上一页 | " else response.write "共有 "&totalnumber&" 篇文章 | 首页 | " response.write "上一页 | " end if if n-currentpage<1 then response.write "下一页 | 尾页 | " else response.write "" response.write "下一页 | 尾页 | " end if response.write "页次："&CurrentPage&"/"&n&"页 | " response.write ""&maxperpage&"篇/页" response.write "
" response.write "" response.write "
" response.write "" response.write "
" %> <% end function set rs=nothing conn.close set conn=nothing %>