<% 'content=request.Form("content") content=request.form("content") grade=request.Form("grade") author=request.Form("author") Page=request.querystring("Page") if content="" then content=request.QueryString("content") if grade="" then grade=request.QueryString("grade") if author="" then author=request.QueryString("author") Page=Lcase(Page) Page=replace(Page,"!","") Page=replace(Page,"@","") Page=replace(Page,"#","") Page=replace(Page,"$","") Page=replace(Page,"%","") Page=replace(Page,"^","") Page=replace(Page,"&","") Page=replace(Page,"*","") Page=replace(Page,"(","") Page=replace(Page,")","") Page=replace(Page,"-","") Page=replace(Page,"_","") Page=replace(Page,"=","") Page=replace(Page,"+","") Page=replace(Page,"|","") Page=replace(Page,"\","") Page=replace(Page,"/","") Page=replace(Page,"?","") Page=replace(Page,"<","") Page=replace(Page,">","") Page=replace(Page,",","") Page=replace(Page,".","") Page=replace(Page,"~","") Page=replace(Page,"`","") Page=replace(Page,"'","") Page=replace(Page,":","") Page=replace(Page,";","") Page=replace(Page,"select","") Page=replace(Page,"update","") Page=replace(Page,"delete","") Page=replace(Page,"append","") Page=replace(Page,"insert","") Page=replace(Page,"and","") Page=replace(Page,"or","") Page=replace(Page,"chr","") Page=replace(Page,"char","") Page=replace(Page,"asc","") Page=replace(Page,"mid","") Page=replace(Page,"len","") Page=replace(Page,"left","") Page=replace(Page,"is","") Page=replace(Page,"not","") Page=replace(Page,"shell","") Page=replace(Page,"net","") Page=replace(Page,"user","") Page=replace(Page,"use","") Page=replace(Page,"sql","") Page=replace(Page,"master","") Page=replace(Page,"backup","") Page=replace(Page,"exec","") Page=replace(Page,"add","") Page=replace(Page,"drop","") Page=replace(Page,"top","") Page=replace(Page,"from","") Page=replace(Page,"where","") Page=replace(Page,"name","") Page=replace(Page,"get","") Page=replace(Page,"post","") Page=replace(Page,"in","") content=Lcase(content) content=replace(content,"!","") content=replace(content,"@","") content=replace(content,"#","") content=replace(content,"$","") content=replace(content,"%","") content=replace(content,"^","") content=replace(content,"&","") content=replace(content,"*","") content=replace(content,"(","") content=replace(content,")","") content=replace(content,"-","") content=replace(content,"_","") content=replace(content,"=","") content=replace(content,"+","") content=replace(content,"|","") content=replace(content,"\","") content=replace(content,"/","") content=replace(content,"?","") content=replace(content,"<","") content=replace(content,">","") content=replace(content,",","") content=replace(content,".","") content=replace(content,"~","") content=replace(content,"`","") content=replace(content,"'","") content=replace(content,":","") content=replace(content,";","") content=replace(content,"select","") content=replace(content,"update","") content=replace(content,"delete","") content=replace(content,"append","") content=replace(content,"insert","") content=replace(content,"and","") content=replace(content,"or","") content=replace(content,"chr","") content=replace(content,"char","") content=replace(content,"asc","") content=replace(content,"mid","") content=replace(content,"len","") content=replace(content,"left","") content=replace(content,"is","") content=replace(content,"not","") content=replace(content,"shell","") content=replace(content,"net","") content=replace(content,"user","") content=replace(content,"use","") content=replace(content,"sql","") content=replace(content,"master","") content=replace(content,"backup","") content=replace(content,"exec","") content=replace(content,"add","") content=replace(content,"drop","") content=replace(content,"top","") content=replace(content,"from","") content=replace(content,"where","") content=replace(content,"name","") content=replace(content,"get","") content=replace(content,"post","") content=replace(content,"in","") grade=Lcase(grade) grade=replace(grade,"!","") grade=replace(grade,"@","") grade=replace(grade,"#","") grade=replace(grade,"$","") grade=replace(grade,"%","") grade=replace(grade,"^","") grade=replace(grade,"&","") grade=replace(grade,"*","") grade=replace(grade,"(","") grade=replace(grade,")","") grade=replace(grade,"-","") grade=replace(grade,"_","") grade=replace(grade,"=","") grade=replace(grade,"+","") grade=replace(grade,"|","") grade=replace(grade,"\","") grade=replace(grade,"/","") grade=replace(grade,"?","") grade=replace(grade,"<","") grade=replace(grade,">","") grade=replace(grade,",","") grade=replace(grade,".","") grade=replace(grade,"~","") grade=replace(grade,"`","") grade=replace(grade,"'","") grade=replace(grade,":","") grade=replace(grade,";","") grade=replace(grade,"select","") grade=replace(grade,"update","") grade=replace(grade,"delete","") grade=replace(grade,"append","") grade=replace(grade,"insert","") grade=replace(grade,"and","") grade=replace(grade,"or","") grade=replace(grade,"chr","") grade=replace(grade,"char","") grade=replace(grade,"asc","") grade=replace(grade,"mid","") grade=replace(grade,"len","") grade=replace(grade,"left","") grade=replace(grade,"is","") grade=replace(grade,"not","") grade=replace(grade,"shell","") grade=replace(grade,"net","") grade=replace(grade,"user","") grade=replace(grade,"use","") grade=replace(grade,"sql","") grade=replace(grade,"master","") grade=replace(grade,"backup","") grade=replace(grade,"exec","") grade=replace(grade,"add","") grade=replace(grade,"drop","") grade=replace(grade,"top","") grade=replace(grade,"from","") grade=replace(grade,"where","") grade=replace(grade,"name","") grade=replace(grade,"get","") grade=replace(grade,"post","") grade=replace(grade,"in","") author=Lcase(author) author=replace(author,"!","") author=replace(author,"@","") author=replace(author,"#","") author=replace(author,"$","") author=replace(author,"%","") author=replace(author,"^","") author=replace(author,"&","") author=replace(author,"*","") author=replace(author,"(","") author=replace(author,")","") author=replace(author,"-","") author=replace(author,"_","") author=replace(author,"=","") author=replace(author,"+","") author=replace(author,"|","") author=replace(author,"\","") author=replace(author,"/","") author=replace(author,"?","") author=replace(author,"<","") author=replace(author,">","") author=replace(author,",","") author=replace(author,".","") author=replace(author,"~","") author=replace(author,"`","") author=replace(author,"'","") author=replace(author,":","") author=replace(author,";","") author=replace(author,"select","") author=replace(author,"update","") author=replace(author,"delete","") author=replace(author,"append","") author=replace(author,"insert","") author=replace(author,"and","") author=replace(author,"or","") author=replace(author,"chr","") author=replace(author,"char","") author=replace(author,"asc","") author=replace(author,"mid","") author=replace(author,"len","") author=replace(author,"left","") author=replace(author,"is","") author=replace(author,"not","") author=replace(author,"shell","") author=replace(author,"net","") author=replace(author,"user","") author=replace(author,"use","") author=replace(author,"sql","") author=replace(author,"master","") author=replace(author,"backup","") author=replace(author,"exec","") author=replace(author,"add","") author=replace(author,"drop","") author=replace(author,"top","") author=replace(author,"from","") author=replace(author,"where","") author=replace(author,"name","") author=replace(author,"get","") author=replace(author,"post","") author=replace(author,"in","") canshu="author=" & author & "&grade=" & grade & "&content=" & content & "&" sitename=request("sitename") grade=request("grade") author=request("author") set rs = server.CreateObject("ADODB.RecordSet") strsql="SELECT * FROM web " '''全部 if sitename<>"" or grade<>"" or author<>"" then strsql=strsql+" where sitename like '%" & sitename & "%' and grade like '%" & grade & "%' and author like '%" & author & "%' " 'if content<>"" then strsql=strsql + " content like '%" & content & "%'" 'if grade<>"" then strsql=strsql + " grade like '%" & grade & "%'" 'if author<>"" then strsql=strsql + " name like '%" & author & "%'" '''################################################################## strsql=strsql & " order by grade desc,class " ''''''################################################################ 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=8 dim pagenum '''####################################################0404040404 if Request.form("page")<>"" then '''选择了页号列表直接选择页2004.11.29——1 ***************************************** pagenum=request.form("page") else if request.querystring("Page")="" then pagenum=1 else pagenum=request.querystring("Page") 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%> 转到:
<% dim i for i=1 to pagelenth NameShow=rs("author") If Len(NameShow)=2 Then NameShow=Left(NameShow,1) & " " & Right(NameShow,1) Response.Write "" 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 NameShow response.write "" response.write rs("Grade")+"级"+rs("class")+"班" response.write "" response.write "" +rs("sitename") +"" response.write "" mem=rs("mem") if len(mem)>100 then mem=left(mem,100) + "…" response.write mem '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,显示上一页 response.write "第一页" response.write " " response.write "上一页" else response.write "第一页 上一页" end if if pagenum" else response.write " " end if response.write " 下一页 最末页" else response.write " 下一页 最末页" end if %>
 

     
◇ 行为准则  
◇ 学苑撷英  
◇ 缤纷社团  
◇ 课外天地  
◇ 阳光假日  
◇ 班级主页  
◇ 学生主页