<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Option Explicit %> <% response.charset="utf-8" %> <% call SiteInfo() %> 宣城职业技术学院外语系→系部新闻
新闻分类
 系部新闻
 最新信息
新闻统计
  • 全部统计：51
  • 待审更新：0
  • 今日更新：0
  • 昨日更新：0
  • 总浏览数：27330
当前位置：网站首页→外系动态

共有记录 51 条 分 1/400 页，每页 400 条。

<% function WebMenu(ParentID,i,level) dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from WygkCn_NewsSort where ViewFlag"&Language&" and ParentID="&ParentID&" order by ID asc" rs.open sql,conn,1,1 if conn.execute("select ID from WygkCn_NewsSort Where ViewFlag"&Language&" and ParentID=0").eof then response.write "暂无相关信息" end if do while not rs.eof if ParentID=0 then response.write ""&rs("SortName"&Language)&"
" else response.write string(i,"　")&""&rs("SortName"&Language)&"
" end if i=i+1 if i 您的位置：首页" & _ "新闻动态" if request.QueryString("SortID")="" then WebLocation=WebLocation elseif not IsNumeric(request.QueryString("SortID")) then WebLocation=WebLocation&"信息ID读取错误" elseif conn.execute("select * from WygkCn_NewsSort Where ViewFlag"&Language&" and ID="&request.QueryString("SortID")).eof then WebLocation=WebLocation&"信息ID读取错误" else dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from WygkCn_NewsSort where ViewFlag"&Language&" and ID="&request.QueryString("SortID") rs.open sql,conn,1,1 WebLocation=WebLocation&SortPathTXT("WygkCn_NewsSort",rs("ID")) rs.close set rs=nothing end if end function function SortPathTXT(DataFrom,ID) dim rs,sql Set rs=server.CreateObject("adodb.recordset") sql="Select * From "&DataFrom&" where ViewFlag"&Language&" and ID="&ID rs.open sql,conn,1,1 if not rs.eof then SortPathTXT=SortPathTXT(DataFrom,rs("ParentID"))&""&rs("SortName"&Language)&"" end if rs.close set rs=nothing end function function WebContent(DataFrom,ID,SortPath) '------------------- dim rs,sql dim HideSort '未对外发布的类别 set rs = server.createobject("adodb.recordset") '根据当前类别ID取需要列表产品的类别路径SortPath开始 if ID="" then SortPath="0," elseif not IsNumeric(ID) then response.write "
暂无相关信息
" exit function elseif conn.execute("select * from "&DataFrom&" Where ViewFlag"&Language&" and ID="&ID).eof then response.write "
暂无相关信息
" exit function else SortPath=conn.execute("select * from "&DataFrom&" Where ViewFlag"&Language&" and ID="&ID)("SortPath") conn.execute("update "&DataFrom&" set ClickNumber=ClickNumber+1 Where ID="&ID) end if sql="select * from "&DataFrom&" Where not(ViewFlag"&Language&") and Instr(SortPath,'"&SortPath&"')>0" '根据当前类别ID取需要列表产品的类别路径SortPath结束 rs.open sql,conn,1,1 while not rs.eof HideSort="and not(Instr(SortPath,'"&rs("SortPath")&"')>0) "&HideSort rs.movenext wend rs.close '------------------- dim idCount'记录总数 dim pages'每页条数 pages=20 dim pagec'总页数 dim page'页码 page=clng(request("Page")) dim pagenc'每页显示的分页页码数量=pagenc*5+1 pagenc=5 dim pagenmax'每页显示的分页的最大页码 dim pagenmin'每页显示的分页的最小页码 dim pageprevious'上一相邻的页码 dim pagenext '下一相邻的页码 '重置数据表名 datafrom="NwebCn_News" dim datawhere'数据条件 datawhere="where ViewFlag"&Language&" and Instr(SortPath,'"&SortPath&"')>0 "&HideSort& " " dim sqlid'本页需要用到的id dim Myself,PATH_INFO,QUERY_STRING'本页地址和参数 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'用于循环的整数 '获取记录总数 'sql="select * from NwebCn_Products where ViewFlag"&Language&" and Instr(SortPath,'"&SortPath&"')>0 "&HideSort 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 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 response.write "
" response.write "
" while not rs.eof '填充数据到表格 response.write "·"&rs("NewsName"&Language)&" "&FormatDate(rs("Addtime"),13)&"
" rs.movenext wend response.write "
" response.write "
" else response.write "
暂无相关信息
" exit function end if 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 ("  ") '如果页码大于1则显示(第一页) if page-(pagenc*2+1)<=0 then pageprevious=1 else pageprevious=page-(pagenc*2+1) end if if(pagenmin>1) then response.write ("  ") '如果页码开始值大于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 page+(pagenc*2+1)>=pagec then pagenext=pagec else pagenext=page+(pagenc*2+1) end if if(pagenmax ") '如果页码结束值小于总页数则显示(更后) if(page") '如果页码小于总页数则显示(最后页) response.write "
" & vbCrLf rs.close set rs=nothing end function %>