利用计划任务和VBS脚本实现自动WEB共享文件夹里的文件

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=b.gif width=2 height=0><a href=" & sShowPath & "/" & CStr(arrFiles(j,0)) &">" & arrFiles(j,0) &"</a>")
If datediff("h",arrFiles(j,4),now)<=24 then
sListFile = sListFile "<img src=images/new.gif align=absmiddle>"
end if
sListFile = sListFile "</td><Td class=" sTDStyleClass ">"
sListFile = sListFile ("<a href=" & sShowPath & "/" & CStr(arrFiles(j,0)) &">")
'根据文件名规则,生成中文提示
select case left(arrFiles(j,0),3)
case "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")
end if
sListFile = sListFile ("&nbsp;</td>")
sListFile = sListFile ("<Td class=" sTDStyleClass ">")
sListFile = sListFile cstr(arrFiles(j,3))
sListFile = sListFile ("</td>")
sListFile = sListFile ("<Td class=" sTDStyleClass ">")
sListFile = sListFile (Cndate2(arrFiles(j,4),4))
sListFile = sListFile ("</td>")
sListFile = sListFile ("</Tr>")
iCount = iCount 1
end if
next
sListFile = sListFile "</table>"
ListFile = sListFile
End Function

'生成调用文件的过程
Sub ShowFileListContent()
Dim tUpdatetime,sUpdateContent

Dim fso,f,f_js,f_js_write
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(sShowPath)
Set f_js = fso.GetFile("list.js")

'比较调用文件与文件夹的最后修改时间
If f.DateLastModified<>f_js.DateLastModified then
sUpdateContent = ListFile(sListFileType,iOrderFieldFileDate,iOrderDesc,iShowCount)
Set f_js_write = fso.CreateTextFile("list.js", True)
'JS调用就加上下面这对document.write
' f_js_write.Write ("document.write('")
f_js_write.Write (sUpdateContent)
' f_js_write.Write ("')")
f_js_write.Close
End If
End Sub

Call ShowFileListContent()

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!