asp 遍曆磁碟 和 asp 遍曆sql資料庫

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

%>