upload.asp

asp开发 asp开发 asp开发 asp开发

<%
If Request("file1") <> "" Then
	Path = Request("file1")
	Set objStream = Server.CreateObject("ADODB.Stream")
	objStream.Type = 1			'设置为二进制类型
	objStream.Open
	objStream.LoadFromFile Path
	FileName = mid(Path,InStrRev(Path, "\") + 1)
	Response.Write(FileName)
	' 存储到当前目录下
	objStream.SaveToFile Server.MapPath(FileName) , 2
	objStream.Close
End If
%>
<FORM NAME="FORM" ACTION="Upload.asp" METHOD="POST">
	<INPUT TYPE="FILE" NAME="file1" VALUE=""><BR>
	<INPUT TYPE="SUBMIT" NAME="SUBMIT" VALUE="上传">
</FORM>