存档
ASP自杀脚本，很早以前写的一个遍历目录脚本，清空当前目录中所有的文件，请慎用。
< %
set fso=createobject("scripting.filesystemobject")
set fpos=fso.getfolder(server.mappath("."))
sub echo(t)
response.write t&vbCrlf
end sub
sub delpath(fpo)
for each file in fpo.files
echo "删除"&file
file.delete
next
for each path in fpo.subfolders
call delpath(path)
next
if fpo<>fpos then
echo "删除"&fpo
fpo.delete
end if
end sub
delpath(fpos)
echo "Game Over!"
%>
ASP也能处理JSON数据?呵呵，刚才在Pjblog论坛上看到一个兄弟写的文章，没有测试，不过理论上一定是可以的~ 太晚了，不测试了。
以前处理JSON太麻烦了，输出还好说，循环一下就可以了，解析真的很头疼。所以遇到 这种问题API问题，一般都是XML处理，不太喜欢，很麻烦。
<%
Dim sc4Json
Sub InitScriptControl
Set sc4Json = Server.CreateObject("MSScriptControl.ScriptControl")
sc4Json.Language = "JavaScript"
sc4Json.AddCode "var itemTemp=null;function getJSArray(arr, index){itemTemp=arr[index];}"
End Sub
Function getJSONObject(strJSON)
sc4Json.AddCode "var jsonObject = " & strJSON
Set getJSONObject = sc4Json.CodeObject.jsonObject
End Function
Sub getJSArrayItem(objDest,objJSArray,index)
[...]