Principle code:
strFileName = Request.QueryString("file1") Set objStream = Server.CreateObject("ADODB.Stream") objStream.Type = 1 ' adTypeBinary objStream.Open objStream.LoadFromFile strFileName objStream.SaveToFile Server.mappath("123_onweb.gif"),2 |
How to use:
Write the above code as upload.asp
Enter:
http://XXX/upload.asp?file1=c:/upload file/123.gif
XXX is your host address
After execution, you will see that there is an additional 123_onweb.gif in your directory
He's what you want the file
According to the principle we can extend the following code:
upload.htm file
<form name="FORM" action="upload.asp" method="post"> <input type="file" name="file1" value=""> <input type="submit" name="submit" value="OK"> </form> |
upload.asp file
<% Function GetFileName(ByVal strFile) If strFile <> "" Then GetFileName = mid(strFile,InStrRev(strFile, "/")+1) Else GetFileName = "" End If End function strFileName = Request.Form("file1") Set objStream = Server.CreateObject("ADODB.Stream") objStream.Type = 1 ' adTypeBinary objStream.Open objStream.LoadFromFile strFileName objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2 objStream.Close %> |
Local debugging is successful, but C/S mode does not pass!