ASP FSOÎļþ´¦Àíº¯Êý´óÈ«

<%
'½¨Á¢Îļþ¼Ðº¯Êý
Function CreateFolder(strFolder)'²ÎÊýΪÏà¶Ô·¾¶
'Ê×Ñ¡ÅжÏÒª½¨Á¢µÄÎļþ¼ÐÊÇ·ñÒѾ­´æÔÚ
Dim strTestFolder,objFSO
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject("Scripting.FileSystemObject")
'¼ì²éÎļþ¼ÐÊÇ·ñ´æÔÚ
If not objFSO.FolderExists(strTestFolder) Then
'Èç¹û²»´æÔÚÔò½¨Á¢Îļþ¼Ð
objFSO.CreateFolder(strTestFolder)
End If
Set objFSO = Nothing
End function
'ɾ³ýÎļþ¼Ð
Function DelFolder(strFolder)'²ÎÊýΪÏà¶Ô·¾¶
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject("Scripting.FileSystemObject")
'¼ì²éÎļþ¼ÐÊÇ·ñ´æÔÚ
If objFSO.FolderExists(strTestFolder) Then
objFSO.DeleteFolder(strTestFolder)
end if
Set objFSO = Nothing
End function
'´´½¨Îı¾Îļþ
Function Createtextfile(fileurl,filecontent)'²ÎÊýΪÏà¶Ô·¾¶ºÍҪдÈëÎļþµÄÄÚÈÝ
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set fout = objFSO.CreateTextFile(Server.MapPath(fileurl))
fout.WriteLine filecontent
fout.close
Set objFSO = Nothing
End Function
'ɾ³ýÎļþ£¨ÊʺÏËùÓÐÎļþ£©
Function Deltextfile(fileurl)'²ÎÊýΪÏà¶Ô·¾¶
Set objFSO = CreateObject("Scripting.FileSystemObject")
fileurl = Server.MapPath(fileurl)
if objFSO.FileExists(fileurl) then '¼ì²éÎļþÊÇ·ñ´æÔÚ
objFSO.DeleteFile(Server.mappath(fileurl))
end if
Set objFSO = nothing
End Function
'½¨Á¢Í¼Æ¬Îļþ²¢±£´æͼƬÊý¾ÝÁ÷
Function Createimage(fileurl,imagecontent)'²ÎÊýΪÏà¶Ô·¾¶ºÍÎļþÄÚÈÝ
Set objStream = Server.CreateObject("ADODB.Stream") '½¨Á¢ADODB.Stream¶ÔÏ󣬱ØÐëÒªADO 2.5ÒÔÉÏ°æ±¾
objStream.Type =1 'ÒÔ¶þ½øÖÆģʽ´ò¿ª
objStream.Open
objstream.write imagecontent '½«×Ö·û´®ÄÚÈÝдÈ뻺³å
objstream.SaveToFile server.mappath(fileurl),2 '-½«»º³åµÄÄÚÈÝдÈëÎļþ
objstream.Close()'¹Ø±Õ¶ÔÏó
set objstream=nothing
End Function
'Ô¶³Ì»ñÈ¡ÎļþÊý¾Ý
Function getHTTPPage(url)
'On Error Resume Next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate&