高手解释

xk8023ppt 2009-07-06 10:01:42

<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文件上传</title>
</head>
<body>
<form name="form" method="post" action="upload.asp">
<input type="file" name="file" size="20">
<input type="submit" name="submit" value="上传">
</form>
</body>
</html>

文件2：upload.asp
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文件上传</title>
</head>
<body>
<%
Function GetFileName(ByVal strFile)
If strFile <> "" Then
GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
Else
GetFileName = ""
End If
End function

strFileName = Request.Form("file") '取得上传的文件
Set objStream = Server.CreateObject("ADODB.Stream") '建立上传对像
objStream.Type = 1 '类型设定 1 代表上传
objStream.Open '打开
objStream.LoadFromFile strFileName '载入传过来的文
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2 '保存载入的文件
objStream.Close '关闭
response.write "文件上传成功！"
%>
</body>
</html>

这是个上传文件的简易代码谁能即使下我放大的那块代码啊

...全文

22 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

xk8023ppt 2009-07-06

打赏
举报

谢啦

lzp4881 2009-07-06

打赏
举报

Function GetFileName(ByVal strFile) '取文件名函数,参数strFile它的值应该是形如\aaa\bbb\ccc.gif之类的,这个函数要取出就应该是ccc.gif
If strFile <> "" Then '如果strFile<>""
GetFileName = mid(strFile,InStrRev(strFile, "\")+1) '获取从右边数\符号开始位置加1的字段串，也就是ccc.gif
Else
GetFileName = "" '如果strFile=""，GetFileName返回空
End If
End function

xk8023ppt 2009-07-06