Código de princípio:
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 |
Como usar:
Escreva o código acima como upload.asp
Digitar:
http: //xxx/upload.asp? file1 = c:/upload file/123.gif
Xxx é o seu endereço de host
Após a execução, você verá que há um 123_onweb.gif adicional em seu diretório
Ele é o que você quer o arquivo
De acordo com o princípio, podemos estender o seguinte código:
arquivo upload.htm
<formul <input type = "file" name = "file1" value = ""> <input type = "submit" name = "submite" value = "ok"> </morm> |
arquivo upload.asp
<% Função getFilename (byval strfile) Se strfile <> "" então GetFileName = MID (strfile, instrumv (strfile, "/")+1) Outro GetFileName = "" Final se Função final 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 %> |
A depuração local é bem -sucedida, mas o modo C/S não passa!