收藏本站腾讯微博新浪微博

经典论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

蓝色理想 最新研发动态 网站开通淘帖功能 - 蓝色理想插件 论坛内容导读一页看论坛 - 给官方提建议

论坛活动及任务 地图和邮件任务 请多用悬赏提问 热夏来袭,选一款蓝色理想的个性T恤吧!

手机上论坛,使用APP获得更好体验 急需前端攻城狮,获得内部推荐机会 论坛开通淘帖功能,收藏终于可以分类了!

搜索
查看: 2522|回复: 1

[asp] 麻烦看下这个SUB为什么不能完全起作用!

[复制链接]
发表于 2018-2-8 01:28:48 | 显示全部楼层 |阅读模式
  1. <%
  2. Sub DelOver
  3.         Dim Sql,Rs,strFiles,ItemIntro
  4.         strFiles="|"&dir&SiteUp&"|"&SiteLogo
  5.         ItemIntro=""
  6.                
  7.                
  8.         Sql = "Select [Content],Images From tNews"
  9.         Set Rs = Conn.Execute(Sql)
  10.         While Not Rs.Eof
  11.                 IF rs(0) <> "" Then
  12.                         strFiles=strFiles&"|"&rs(0)
  13.                 End If
  14.                 IF rs(1) <> "" Then
  15.                         strFiles=strFiles&"|"&rs(1)
  16.                 End If
  17.         Rs.MoveNext
  18.         Wend
  19.         Rs.Close
  20.        
  21.         Sql = "Select [img] From Adminflash"
  22.         Set Rs = Conn.Execute(Sql)
  23.         While Not Rs.Eof
  24.                 IF rs(0) <> "" Then
  25.                         strFiles=strFiles&"|"&rs(0)
  26.                 End If
  27.         Rs.MoveNext
  28.         Wend
  29.         Rs.Close
  30.        
  31.         Sql = "Select src From tfiles"
  32.         Set Rs = Conn.Execute(Sql)
  33.         While Not Rs.Eof
  34.                 IF rs("src") <> "" Then
  35.                         strFiles=strFiles&"|"&rs("src")
  36.                 End If
  37.         Rs.MoveNext
  38.         Wend
  39.         Rs.Close
  40.                
  41.         Sql = "Select img,[Content] From tdy_info"
  42.         Set Rs = Conn.Execute(Sql)
  43.         While Not Rs.Eof
  44.                 IF rs("img") <> "" Then
  45.                         strFiles=strFiles&"|"&rs("img")
  46.                 End If
  47.                 IF rs("content") <> "" Then
  48.                         strFiles=strFiles&"|"&rs("content")
  49.                 End If
  50.         Rs.MoveNext
  51.         Wend
  52.         Rs.Close
  53.        
  54.         Sql = "Select [Content] From tzb_info"
  55.         Set Rs = Conn.Execute(Sql)
  56.         While Not Rs.Eof
  57.                 IF rs("content") <> "" Then
  58.                         strFiles=strFiles&"|"&rs("content")
  59.                 End If
  60.         Rs.MoveNext
  61.         Wend
  62.         Rs.Close
  63.        
  64.         Dim tempStr, tempi, TempArray,UpFileType,regEx,Matches,Match
  65.                 UpFileType = "jpg|bmp|jpeg|gif|png|rar|zip|ppt|doc|swf|flv|ios|apx|xml|pdf|docx|doc"
  66.                 Set regEx=New Regexp
  67.                 regEx.Ignorecase=True
  68.                 regEx.Global=True
  69.         regEx.Pattern = "<img.+?[^\>]>" '查询内容中所有 <img..>
  70.         Set Matches = regEx.Execute(ItemIntro)
  71.         For Each Match In Matches
  72.             If tempStr <> "" Then
  73.                 tempStr = tempStr & "|" & Match.value '累计数组
  74.             Else
  75.                 tempStr = Match.value
  76.             End If
  77.         Next
  78.         If tempStr <> "" Then
  79.             TempArray = Split(tempStr, "|") '分割数组
  80.             tempStr = ""
  81.             For tempi = 0 To UBound(TempArray)
  82.                 regEx.Pattern = "src\s*=\s*.+?\.(" & UpFileType & ")" '查询src =内的链接
  83.                 Set Matches = regEx.Execute(TempArray(tempi))
  84.                 For Each Match In Matches
  85.                     If tempStr <> "" Then
  86.                         tempStr = tempStr & "|" & Match.value '累加得到 链接加$Array$ 字符
  87.                     Else
  88.                         tempStr = Match.value
  89.                     End If
  90.                 Next
  91.             Next
  92.         End If
  93.         If tempStr <> "" Then
  94.             regEx.Pattern = "src\s*=\s*" '过滤 src =
  95.             tempStr = regEx.Replace(tempStr, "")
  96.         End If
  97.                 Set regEx=Nothing
  98.         strFiles = strFiles & tempStr
  99.             strFiles = LCase(strFiles)
  100.                 Dim i,theFolder,fso,theFile,theSubFolder
  101.                 Set Fso=CreateObject("Scripting.FileSystemObject")
  102.                  i = 1

  103.     Set theFolder = fso.GetFolder(Server.MapPath(dir&SiteUp))
  104.     For Each theFile In theFolder.Files
  105.         If InStr(strFiles, LCase(theFile.name)) <= 0 Then
  106.             theFile.Delete True
  107.             i = i + 1
  108.         End If
  109.     Next
  110.     For Each theSubFolder In theFolder.SubFolders
  111.         For Each theFile In theSubFolder.Files
  112.             If InStr(strFiles, LCase(theSubFolder.name & "/" & theFile.name)) <= 0 Then
  113.                             Response.Write "<p>正在清理"&i&":<span>"&dir&SiteUp&theSubFolder.name & "/" & theFile.name&"</span></p>"
  114.                 theFile.Delete True
  115.                 i = i + 1
  116.             End If
  117.         Next
  118.                
  119.     Next
  120.         if i<>0 then num=i-1 else num=i
  121.         Response.Write "<p>完成清理:共清理"&num&"没有使用的文件!"
  122.         alertMsgAndGo "本次共清理"&num&"个垃圾文件!","?"
  123. End Sub
  124. %>
复制代码
发表于 2018-3-14 15:58:01 | 显示全部楼层
无效的话,需要查看报错信息。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|Archiver|手机版|blueidea.com ( 湘ICP备12001430号 )  

GMT+8, 2020-9-23 15:19 , Processed in 0.131503 second(s), 6 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表