2010年02月22日 17:13
我告訴你把，我找這段代碼可花了不少時間。
index.html:
<form ACTION="asp.asp" METHOD="POST" name="form1" id="form1">
<input name="name" type="file" id="name" />
</form>

asp.asp:
<%
Function GetFileName(ByVal strFile)'精簡信息，獲得文件名的函數
If strFile <> "" Then
   GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
Else
   GetFileName = ""
End If
End function
strFileName = Request.Form("name")'「name"這就是前面文件域的name的值，2個地方要一樣
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2'這是編輯路徑的地方默認是放在和此頁同目錄下，要是不是放在和此頁同目錄下的化可也改比如：("img/xu/"&GetFileName(strFileName))
objStream.Close
%>