Stream上傳的問題,在線等待
以下兩個檔案是可以直接運行的,但是我上傳後的文件是跟這兩個文件一樣保存在同一目錄下,現在我想指定文件上傳後的保存路徑為e:\file,哪要怎麼樣改啊1.asp代碼:
<%
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
%>
2.htm的代碼
<form name="FORM" action="1.asp" method="post">
<input type="file" name="file1" style="width:400" value="">
<input type="submit" name="submit" value="OK">
</form>