<%@ LANGUAGE = VBScript.Encode %> <% Fenlei=Request("Fenlei") Fenlei=Lcase(Fenlei) Fenlei=replace(Fenlei,"!","") Fenlei=replace(Fenlei,"@","") Fenlei=replace(Fenlei,"#","") Fenlei=replace(Fenlei,"$","") Fenlei=replace(Fenlei,"%","") Fenlei=replace(Fenlei,"^","") Fenlei=replace(Fenlei,"&","") Fenlei=replace(Fenlei,"*","") Fenlei=replace(Fenlei,"(","") Fenlei=replace(Fenlei,")","") Fenlei=replace(Fenlei,"-","") ' Fenlei=replace(Fenlei,"_","") Fenlei=replace(Fenlei,"=","") Fenlei=replace(Fenlei,"+","") Fenlei=replace(Fenlei,"|","") Fenlei=replace(Fenlei,"\","") Fenlei=replace(Fenlei,"/","") Fenlei=replace(Fenlei,"?","") Fenlei=replace(Fenlei,"<","") Fenlei=replace(Fenlei,">","") Fenlei=replace(Fenlei,",","") Fenlei=replace(Fenlei,".","") Fenlei=replace(Fenlei,"~","") Fenlei=replace(Fenlei,"`","") Fenlei=replace(Fenlei,"'","") Fenlei=replace(Fenlei,":","") Fenlei=replace(Fenlei,";","") Fenlei=replace(Fenlei,"select","") Fenlei=replace(Fenlei,"update","") Fenlei=replace(Fenlei,"delete","") Fenlei=replace(Fenlei,"append","") Fenlei=replace(Fenlei,"insert","") Fenlei=replace(Fenlei,"and","") ' Fenlei=replace(Fenlei,"or","") Fenlei=replace(Fenlei,"chr","") Fenlei=replace(Fenlei,"char","") Fenlei=replace(Fenlei,"asc","") Fenlei=replace(Fenlei,"mid","") ' Fenlei=replace(Fenlei,"len","") Fenlei=replace(Fenlei,"left","") Fenlei=replace(Fenlei,"is","") Fenlei=replace(Fenlei,"not","") Fenlei=replace(Fenlei,"shell","") Fenlei=replace(Fenlei,"net","") Fenlei=replace(Fenlei,"user","") Fenlei=replace(Fenlei,"use","") Fenlei=replace(Fenlei,"sql","") Fenlei=replace(Fenlei,"master","") Fenlei=replace(Fenlei,"backup","") Fenlei=replace(Fenlei,"exec","") Fenlei=replace(Fenlei,"add","") Fenlei=replace(Fenlei,"drop","") Fenlei=replace(Fenlei,"top","") Fenlei=replace(Fenlei,"from","") Fenlei=replace(Fenlei,"where","") Fenlei=replace(Fenlei,"name","") Fenlei=replace(Fenlei,"get","") Fenlei=replace(Fenlei,"post","") Fenlei=replace(Fenlei,"in","") if fenlei="meetg" then fenlei="meeting" set rs = server.CreateObject("ADODB.RecordSet") strsql="SELECT * FROM news where bz1=true and " & Fenlei & "=true" '''全部 '''################################################################## strsql=strsql & " order by T_Date desc" '日期降序 ''''''################################################################ on error resume next rs.open strsql,My_conn,3 '##只读打开 if rs.eof or rs.bof then '###没有信息 Response.write "" ' response.write "

没有满足您搜索的信息" ' response.write "

返回

" set rs=nothing my_conn.close set my_conn=nothing response.end end if '每页长度 const pagelenth=20 dim pagenum '''####################################################0404040404 if Request.form("page")<>"" then '''选择了页号列表直接选择页2004.11.29——1 ***************************************** pagenum=request.form("page") else if request.querystring("pager")="" then pagenum=1 else pagenum=request.querystring("pager") end if end if pagenum=clng(pagenum) '''########################1111111111111########################### rs.pagesize=pagelenth '###防止页数超过总长 if pagenum>rs.pagecount then pagenum=rs.pagecount rs.moveFirst rs.AbsolutePage = pagenum %> 镇海中学校园网
<%'下面为搜索部分内容%>
  当前:<%=pagenum%>/<%=rs.pagecount%> 转到:
<%'--222-%> <% dim i for i=1 to pagelenth '##开始显示当前页 Response.Write "" '##以下显示序号 '##文章标题 ' Response.Write "" '##显示时间 Response.Write "" '##点击数 Response.Write "" '作者 Response.Write "" Response.Write "" rs.MoveNext if rs.eof then exit for end if next %>
标  题 发表时间 浏览次数 信息来源
" response.write "" Subtitle1="" if trim(rs("T_Subtitle"))<>"" then Subtitle1="
  ——" & rs("T_Subtitle") if trim(rs("linkfile"))<>"" then '####如果有链接文件,同在新窗口中打开 %> " target="_blank"><%=rs("T_Subject")%> <% else if trim(rs("T_Message"))<>"" then '###无链接,但有内容 response.write "" Response.Write rs("T_Subject") & Subtitle1 & "" else '###只有标题 Response.Write rs("T_Subject") end if end if response.write "
" response.write rs("T_Date") response.write "" response.write rs("HITNUM") response.write "
" & rs("T_Auth") & "
<% rs.Close set rs= nothing my_conn.Close set my_conn = nothing %>
总数:<%=rs.recordcount%> 页次:<%=pagenum%>/<%=rs.pagecount%>  <% if pagenum>1 then '当前页>1,显示上一页 if request.form("mode")="search" or request.querystring("mode")="search" then '''是搜索条件的显示 response.write " " else response.write " " end if response.write "<上一页" else response.write "<下一页" end if if pagenum" else response.write " " end if response.write " 下一页>" else response.write " 下一页>" end if %> 跳转到: