% 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 %>
抱歉,没有找到与“"&request("keyword")&"” 相关的内容。
本站资源来源于第三方网页,本站自身不存储、修改或编辑该下载资源。您可能从该网页上获得资讯及享用服务,e时空资源网对其合法性概不负责,亦不承担任何法律责任。请参阅权责声明!