oopStep
 If intOrder = 0 then
  iLoopStart = 0
  iLoofEnd = fcount-1
  iLoopStep = 1
 Else
  iLoopStart = fcount-1
  iLoofEnd = 0
  iLoopStep = -1
 End if
 dim iCount,sTDStyleClass
 iCount = 1
 For j=iLoopStart to iLoofEnd Step iLoopStep
  If instr(strFiletype,arrFiles(j,1))>0 and iCount<=intShowCount then
   sTDStyleClass = "PageListTd"+Cstr((iCount mod 2)+1)
      sListFile = sListFile + ("<Tr class=PageListTr><Td class="+sTDStyleClass+">")
      sListFile = sListFile + ("<img src=images/"+arrFiles(j,1)+".gif align=absbottom><img src=http://www.webjx.com/htmldata/2005-11-20/b.gif width=2 height=0><a href="http://www.webjx.com/htmldata/2005-11-20/& sShowPath & "/" & CStr(arrFiles(j,0)) &">" & arrFiles(j,0) &"</a>")
      If datediff("h",arrFiles(j,4),now)<=24 then
       sListFile = sListFile + "<img src=http://www.webjx.com/htmldata/2005-11-20/images/new.gif align=absmiddle>"
      end if
      sListFile = sListFile + "</td><Td class="+sTDStyleClass+">"
      sListFile = sListFile + ("<a href="http://www.webjx.com/htmldata/2005-11-20/& sShowPath & "/" & CStr(arrFiles(j,0)) &">")
'根据文件名规则,生成中文提示
      select case left(arrFiles(j,0),3)
      case

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

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

	Web www.51ec.org

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

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