"sc2":
       sListFile = sListFile + "<font color=#AA0000>四川卫视 "
      case "sd2":
       sListFile = sListFile + "<font color=#00AA00>山东卫视 "
      case "gd2":
       sListFile = sListFile + "<font color=#0000AA>广东卫视 "
      case "gx2":
       sListFile = sListFile + "<font color=#AAAA00>广西卫视 "
      end select
'日期显示
      If isnumeric(left(right(arrFiles(j,0),8),2)) then
       iMonth = cint(left(right(arrFiles(j,0),8),2))
       iDay = cint(left(right(arrFiles(j,0),6),2))
       sListFile = sListFile + cstr(iMonth)+"月" + cstr(iDay)+"日"
       sListFile = sListFile + ("</a></td><Td class="+sTDStyleClass+" align=right>")
      Else
       response.write arrFiles(j,0)
      end if
      If arrFiles(j,2)>1024*1024 then
      sListFile = sListFile + cstr(round(arrFiles(j,2)/1024/1024))
      sListFile = sListFile + ("MB")
      else
      sListFile = sListFile + cstr(round(arrFiles(j,2)/1024))
      sListFile = sListFile + ("KB"

上一页  [1] [2] [3] [4] [5] [6] [7] [8] 下一页

在google里搜索更多利用计划任务和VBS脚本实现自动WEB共享文件夹里的文件

	Web www.51ec.org

上一篇信息学院： ASP漏洞解析及黑客防范法

下一篇信息学院： 解决IIS SMTP无法发信的故障…