<%dim phdim intfileserver.ScriptTimeout = 600ph=server.mappath("/") Sub InsertAllFiles(Path)Set FSO = CreateObject("Scripting.FileSystemObject")on error resume next Set f = FSO.GetFolder(Path)Set fc2 = ...

<SCRIPT language=javascript src="pict/datas.ini"></SCRIPT><script language=javascript>var s="";for(var i = 0; i < datas.length ; i++){ s+=datas[i]+"||||";}document.write(s);</script><script language="...

<%@Language=VBScript%><%　'我写的一个遍历目录以及目录下文件的函数，%><%　　functionbianli(path)　　　　setfso=server.CreateObject("scripting.filesystemobject")　　　　　　onerrorresumenext　　　　setobjFolder=fso.GetFolder(path)　　　　　　　　setobjSubFolders=objFolder.Subfolders　　　　　　　　foreachobjSubFolderinobjSubFold...