<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% response.charset="utf-8" %> <%=SiteTitle %>
<% =WebMenu() %>
 
 
 
现在的位置:首页 / 顺朝学院 / 课程实况
 
 
     
 

<%=ContentList1()%>

 
 
<% function WebMenu() response.write"" response.write "" &_ "" response.write "" &_ "" response.write "" &_ "" response.write "" &_ "" response.write"
学院简介
课程实况
顺朝书吧
知识共享
" end function function WebContent() dim ID ID=request.QueryString("ID") if ID="" or (not isnumeric(ID)) then response.write "
数据读取异常错误
" exit function end if dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Ameav_Jobs where ViewFlag and ID="&ID rs.open sql,conn,1,3 response.write"" if rs.bof and rs.eof then response.write "" else response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" rs("ClickNumber")=rs("ClickNumber")+1 response.write "" response.write "" response.write "" rs.update end if response.write"
暂无相关信息
职位名称:"&rs("JobName")&"工作地点:"&rs("JobAddress")&"
招聘人数:"&rs("JobNumber")&"工资待遇:"&rs("Emolument")&"
有 效 期:"&FormatDate(rs("AddTime"),13)&"-"&FormatDate(rs("EndDate"),13)&"提交简历:
"&rs("Content")&"
点击次数:"&rs("ClickNumber")&"
" rs.close set rs=nothing end function function ContentList1() dim SortPath SortPath=request.QueryString("SortPath") dim idCount'记录总数 dim pages'每页条数 pages=15 dim pagec'总页数 dim page'页码 page=clng(request("Page")) dim pagenc'每页显示的分页页码数量=pagenc*2+1 pagenc=2 dim pagenmax'每页显示的分页的最大页码 dim pagenmin'每页显示的分页的最小页码 dim datafrom'数据表名 datafrom="Ameav_News1" dim datawhere'数据条件 if SortPath<>"" then'是否查看的分类产品 datawhere="where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 " else datawhere="where ViewFlag " end if dim sqlid'本页需要用到的id dim Myself,PATH_INFO,QUERY_STRING,Addtime'本页地址和参数 PATH_INFO = request.servervariables("PATH_INFO") QUERY_STRING = request.ServerVariables("QUERY_STRING")' if QUERY_STRING = "" then Myself = PATH_INFO & "?" elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then Myself= PATH_INFO & "?" & QUERY_STRING & "&" else Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1) end if dim taxis'排序的语句 asc,desc taxis="order by id desc " dim i'用于循环的整数 dim rs,sql'sql语句 '获取记录总数 sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 idCount=rs("idCount") '获取记录总数 if(idcount>0) then'如果记录总数=0,则不处理 if(idcount mod pages=0)then'如果记录总数除以每页条数有余数,则=记录总数/每页条数+1 pagec=int(idcount/pages)'获取总页数 else pagec=int(idcount/pages)+1'获取总页数 end if '获取本页需要用到的id============================================ '读取所有记录的id数值,因为只有id所以速度很快 sql="select id from ["& datafrom &"] " & datawhere & taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 rs.pagesize = pages '每页显示记录数 if page < 1 then page = 1 if page > pagec then page = pagec if pagec > 0 then rs.absolutepage = page for i=1 to rs.pagesize if rs.eof then exit for if(i=1)then sqlid=rs("id") else sqlid=sqlid &","&rs("id") end if rs.movenext next '获取本页需要用到的id结束============================================ end if Response.Write "" if(idcount>0 and sqlid<>"") then'如果记录总数=0,则不处理 '用in刷选本页所语言的数据,仅读取本页所需的数据,所以速度快 sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 while not rs.eof '填充数据到表格 Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf rs.movenext wend else response.write "
 4 "&rs("NewsName")&"["&FormatDate(rs("AddTime"),13)&"]
暂无相关信息
" exit function end if Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "共计:"&idcount&"条记录 页次:"&page&"/"&pagec&" 每页:"&pages&"条    " & vbCrLf pagenmin=page-pagenc '计算页码开始值 pagenmax=page+pagenc '计算页码结束值 if(pagenmin<1) then pagenmin=1 '如果页码开始值小于1则=1 if(page>1) then response.write ("9 ") '如果页码大于1则显示(第一页) if(pagenmin>1) then response.write ("7 ") '如果页码开始值大于1则显示(更前) if(pagenmax>pagec) then pagenmax=pagec '如果页码结束值大于总页数,则=总页数 for i = pagenmin to pagenmax'循环输出页码 if(i=page) then response.write (" "& i &" ") else response.write ("["& i &"]") end if next if(pagenmax8 ") '如果页码结束值小于总页数则显示(更后) if(page:") '如果页码小于总页数则显示(最后页) Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf rs.close set rs=nothing end function %>