<% Server.ScriptTimeOut=90 ON ERROR RESUME NEXT '--------- fwfh=fwwzjc("/inc/fwpbip1.txt","") if fwfh="ER_0" then response.end end if '---------- dhname="gg" function replacestr(str) str=replace(replace(replace(replace(lcase(trim(str)),"'",""),">",""),"<",""),"chr","") replacestr=replace(replace(replace(str,"%",""),"char",""),"=","") end function Function ReplaceTest(str,patrn, replStr) Dim regEx, str1 ' 建立变量。 str1 = str Set regEx = New RegExp ' 建立正则表达式。 regEx.Pattern = patrn ' 设置模式。 regEx.IgnoreCase = True ' 设置是否区分大小写。 ReplaceTest = regEx.Replace(str1, replStr) ' 作替换。 End Function function replnr(str) dim ih ih=0 For ih = LBound( QueryWords ) to UBound( QueryWords ) str=replaceTest(str,""&QueryWords(ih)&"",""&QueryWords(ih)&"") Next replnr=str end function dim img,j,sorttj dim keyword,action,by,site dim findword,Founderr dim CurrentPage,MaxPerPage,totalPut,totalnumber,Pcount,tempPcount Founderr=false keyword=replacestr(request("keyword")) QueryWords= Split( keyword ) stype=request("stype") fs=request("fs") classid=request("classid") if classid="" then softtj="" else Select case classid case 123 sorttj="(sortid=123 or sortid=1 or sortid=138 or sortid=2 or sortid=141 or sortid=142 or sortid=143 or sortid=144 or sortid=145 or sortid=146 or sortid=147 or sortid=148 or sortid=3 or sortid=149 or sortid=150 or sortid=151 or sortid=152 or sortid=153 or sortid=154 or sortid=4 or sortid=5 or sortid=155 or sortid=156 or sortid=157 or sortid=158 or sortid=159 or sortid=210 or sortid=6 or sortid=160 or sortid=161 or sortid=162 or sortid=163 or sortid=7 or sortid=164 or sortid=165 or sortid=8 or sortid=9 or sortid=166 or sortid=167 or sortid=168 or sortid=169 or sortid=170 or sortid=215 or sortid=10 or sortid=11 or sortid=139 or sortid=213 or sortid=214 or sortid=140 or sortid=211 or sortid=212)" case 124 sorttj="(sortid=124 or sortid=12 or sortid=13 or sortid=14 or sortid=15 or sortid=16 or sortid=17 or sortid=18 or sortid=19)" case 125 sorttj="(sortid=125 or sortid=20 or sortid=21 or sortid=22 or sortid=23 or sortid=24 or sortid=25 or sortid=26 or sortid=27)" case 126 sorttj="(sortid=126 or sortid=28 or sortid=29 or sortid=30 or sortid=31)" case 127 sorttj="(sortid=127 or sortid=32 or sortid=33 or sortid=34 or sortid=35 or sortid=36)" case 128 sorttj="(sortid=128 or sortid=37 or sortid=171 or sortid=172 or sortid=173 or sortid=174 or sortid=175 or sortid=176 or sortid=177 or sortid=178 or sortid=179 or sortid=180 or sortid=181 or sortid=182 or sortid=183 or sortid=184 or sortid=185 or sortid=186 or sortid=187 or sortid=38 or sortid=39 or sortid=188 or sortid=189 or sortid=190 or sortid=191 or sortid=192 or sortid=193 or sortid=40 or sortid=194 or sortid=195 or sortid=196 or sortid=197 or sortid=41 or sortid=198 or sortid=199 or sortid=200 or sortid=201 or sortid=202 or sortid=203 or sortid=204 or sortid=42)" case 129 sorttj="(sortid=129 or sortid=43 or sortid=44 or sortid=45 or sortid=46 or sortid=47 or sortid=48)" case 130 sorttj="(sortid=130 or sortid=49 or sortid=205 or sortid=206 or sortid=50 or sortid=51 or sortid=52 or sortid=53 or sortid=54 or sortid=55 or sortid=56)" case 131 sorttj="(sortid=131 or sortid=57 or sortid=58 or sortid=207 or sortid=208 or sortid=59 or sortid=60 or sortid=61 or sortid=62 or sortid=63 or sortid=64 or sortid=65 or sortid=66 or sortid=67 or sortid=209)" case 132 sorttj="(sortid=132 or sortid=68 or sortid=69 or sortid=70 or sortid=71 or sortid=72 or sortid=73)" case 133 sorttj="(sortid=133 or sortid=74 or sortid=75 or sortid=76 or sortid=77 or sortid=78 or sortid=79)" case 134 sorttj="(sortid=134 or sortid=80 or sortid=81 or sortid=82 or sortid=83 or sortid=84)" case 135 sorttj="(sortid=135 or sortid=104 or sortid=105 or sortid=106 or sortid=107)" case 136 sorttj="(sortid=136 or sortid=108 or sortid=109 or sortid=110 or sortid=111 or sortid=112 or sortid=113 or sortid=114 or sortid=115 or sortid=116 or sortid=117 or sortid=118)" case 137 sorttj="(sortid=137 or sortid=119 or sortid=120 or sortid=121 or sortid=122)" Case Else classid="" sorttj="" End Select end if if Request("stype")="" then stype="1" else stype=Trim(Request("stype")) end if if Request("fs")="" then fs="1" else fs=Trim(Request("fs")) end if if not isempty(request("page")) then CurrentPage=cint(request("page")) else CurrentPage=1 end if MaxPerPage = 20 if not isnumeric(request("page")) and request("page")<>"" then response.write"错误的系统参数!请输入整数" response.end end if %> <%=keyword%>,学习资源,学习图书,电子图书-教学资源-e时空资源导航
  •     学习资源搜索:         
热门专题:
Office   PhotoShop   Windows   3dmax   考研   成功励志  
热门标签:
英语   会计   ASP   PHP   瑜珈   书法绘画   黑客   木马   多媒体  
当前位置:首页  >  查询  > <%=keyword%>
    <% if not isempty(request("page")) then CurrentPage=cint(request("page")) else CurrentPage=1 end if MaxPerPage =30 if not isnumeric(request("page")) and request("page")<>"" then response.write"错误的系统参数!请输入整数" response.end end if if keyword="" then response.write"抱歉,您没有输入查询参数!
    " else dim tempJoinWord tempJoinWord="" if classid="" then sql="" else sql=sorttj & " and " end if Select case stype case 1 if fs=1 then For i = 0 To UBound( QueryWords ) sql = SQL & tempJoinWord & "(" & _ " InStr(1,LCase(softname),LCase('"&QueryWords( i )&"'),0)<>0 or "&_ " InStr(1,LCase(content),LCase('"&QueryWords( i )&"'),0)<>0 )" tempJoinWord = " and " Next else For i = 0 To UBound( QueryWords ) sql = SQL & tempJoinWord & "(" & _ "softname='"&QueryWords(i)&"' or "&_ "username='"&QueryWords(i)&"')" tempJoinWord = " and " Next end if case 2 if fs=1 then For i = 0 To UBound( QueryWords ) sql = SQL & tempJoinWord & "(" & _ " InStr(1,LCase(content),LCase('"&QueryWords( i )&"'),0)<>0 )" tempJoinWord = " and " Next else For i = 0 To UBound( QueryWords ) sql = SQL & tempJoinWord & "(" & _ "content='"&QueryWords(i)&"')" tempJoinWord = " and " Next end if case 3 if fs=1 then For i = 0 To UBound( QueryWords ) sql = SQL & tempJoinWord & "(" & _ " InStr(1,LCase(softname),LCase('"&QueryWords( i )&"'),0)<>0 )" tempJoinWord = " and " Next else For i = 0 To UBound( QueryWords ) sql = SQL & tempJoinWord & "(" & _ "softname='"&QueryWords(i)&"')" tempJoinWord = " and " Next end if End Select dim sqlzs,fzd fzd=" softid,softname,sortid,rootid,content,softtype,ek_gs " sqlzs = "SELECT softid FROM [NC_softinfo] WHERE " & sql set rs = server.CreateObject ("adodb.recordset") rs.open sqlzs ,conn,1,1 if rs.bof and rs.eof then else totalPut=rs.recordcount totalnumber=rs.recordcount end if rs.close if CurrentPage=1 then sql="SELECT top "&MaxPerPage& fzd &" FROM [NC_softinfo] WHERE "&sql & " order by softid desc" '总页码为1取当前页 else sqlzs="(select top "&((CurrentPage-1)*MaxPerPage)&" softid FROM [NC_softinfo] WHERE "&sql '使用组合查询方式 sql="SELECT top "&MaxPerPage& fzd &" FROM [NC_softinfo] WHERE softid<(select min(softid) from "&sqlzs&" order by softid desc ) AS T ) and "&sql&" order by softid desc" end if dim ares rs.open sql ,conn,1,1 ares = rs.GetRows rs.close conn.close set conn=nothing dim ls_jlzs ls_jlzs=UBound(ares, 2) if (ls_jlzs<0 or ls_jlzs="") then response.write "

    抱歉,没有找到与“"&request("keyword")&"” 相关的内容。


    点击这里进行高级搜索.


    " else if (totalPut mod MaxPerPage)=0 then Pcount= totalPut \ MaxPerPage else Pcount= totalPut \ MaxPerPage + 1 end if if currentpage > Pcount then currentpage = Pcount if currentpage<1 then currentpage=1 j=(currentpage-1)*MaxPerPage+1 dim cjgs dim iia For iia = 0 To ls_jlzs cjgs=ares(6,iia) if cjgs="" then else cjgs="( "&cjgs&") " end if if ares(5,iia)="文章阅读" then %>
  • <%=ares(5,iia)%>     .shtml"> <%=replnr(ares(1,iia))%>  
  • <% else if ares(5,iia)="资源下载" then %>
  • <%=ares(5,iia)%>     "> <%=replnr(ares(1,iia))%>  ( <%=ares(6,iia)%>)
  • <% elseif ares(5,iia)="在线播放" then %>
  • <%=ares(5,iia)%>     "> <%=replnr(ares(1,iia))%>  ( <%=ares(6,iia)%>)
  • <% end if end if j=j+1 next erase ares end if end if %>
<%call showpage()%>
<% response.write gg_sccl1(5,300,300,1,1) response.write gg_sccl1(5,300,300,2,1) response.write gg_sccl1(5,300,300,3,1) %>

其它资源

本类热门

    <% server.execute("xxrmlb/xxblrm"&classid&".tat") %>

热门排行

    <% server.execute("xxrmlb/xxrmph"&classid&".tat") %>

来源声明

<%if ekxwlyurl="" then else %>
<%end if%>
  • 该资源来源网站

        本站资源来源于第三方网页,本站自身不存储、修改或编辑该下载资源。您可能从该网页上获得资讯及享用服务,e时空资源网对其合法性概不负责,亦不承担任何法律责任。请参阅权责声明

<% sub showpage() dim filename,ii,n filename="xsearch.asp" if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if response.write "
"& vbCrLf if CurrentPage<2 then response.write "  共有软件 "&totalnumber&" 个  首 页  上一页   " else response.write "  共有软件 "&totalnumber&" 个  首 页  " response.write "上一页   " end if if n-currentpage<1 then response.write "下一页  尾 页 "& vbCrLf else response.write "下一页" response.write "  尾 页"& vbCrLf end if response.write " 页次:"&CurrentPage&"/"&n&"页 " response.write " "&maxperpage&"个/页 "& vbCrLf response.write " 转到: " response.write "  " & vbCrLf response.write "
"& vbCrLf end sub 'Newasp.footer() Function stoies(str) dim mz,t, a,a1,a2,a3,b,x mz="b,e,c,d,e,9,8,7,6,5,4,3,2,1,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z" t="" b=split(mz,",") for x=0 to len(str)-1 a=AscW(mid(str,x+1,1)) a1=a Mod 41 a=(a-a1)/41 a2=a Mod 41 a=(a-a2)/41 a3=a mod 41 t=t&b(a3)&b(a2)&b(a1) next a="z" for x=0 to len(t)-1 step 3 if AscW(x)<>"A" then stoies=t Exit Function end if a=a+mid(t,x+1,2) next stoies=a end function %>