`
owlman
  • 浏览: 63072 次
  • 性别: Icon_minigender_1
  • 来自: 杭州
最近访客 更多访客>>
社区版块
存档分类
最新评论

[Demo]ADO.Stream实现文件上载

阅读更多

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

分享到:
评论

相关推荐

Global site tag (gtag.js) - Google Analytics