<%@language="vbscript"
%>
<html xmlns="http://www.w3.org/1999/xhtml">;
<head>
<title>upload file</title>
<meta
http-equiv="Content-Type" content="text/html;charset=utf-8" lang="zh-cn" />
</head>
<body>
<h1>文件上传实例</h1>
<hr />
<form
action="upload.asp"
id="upload"
method="post">
请选择文件:
<input type="file" name="upfile" />
<input type="submit" name="submit" value="上传" />
</form>
<%
Function GetFileName(ByVal strFile)
If strFile <> "" Then
GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
Else
GetFileName = ""
End If
End function
if request.Form("submit") <> ""
and
not isnull(request.Form("submit")) then
if request.Form("upfile") <> ""
and
not isnull(request.Form("upfile")) Then
dim filestream
set filestream = server.CreateObject("adodb.stream")
filestream.Type = 1
filestream.Open()
filestream.LoadFromFile(request.Form("upfile"))
filestream.SaveToFile
Server.MapPath("img/"&GetFileName(request.Form("upfile"))),1
filestream.Close()
Response.Write("文件上传完成...")
else
Response.Write("请选择文件再上传...")
end if
end if
%>
</body>
</html>