asp 遍历磁盘
<%
' set fs=CreateObject("Scripting.FileSystemObject")
' set f=fs.GetFolder(Server.MapPath("."))
' set fc=f.Files
' Set fg = f.SubFolders
'
' for each f1 in fc
' if fs.fileExists(Server.MapPath(f1.name)) then
' fs.deleteFILE Server.MapPath(f1.name)
' end if
' next
' for each f2 in fg
' fs.deletefolder(server.mappath(f2.name))
' next
'
'end if
%>
asp 遍历sql数据库
<%
' set rsSchema=conn.openSchema(20)
' rsSchema.movefirst
' Do Until rsSchema.EOF
' if rsSchema("TABLE_TYPE")="TABLE" then
' conn.execute("drop TABLE "&rsSchema("TABLE_NAME") )
' end if
' rsSchema.movenext
' Loop
%>