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
%>