寻高手急救,为什么不能添加文件,付源代码

hjh40 2005-11-18 09:12:35

文件upload.htm
<HTML >
<HEAD> <TITLE>请上载文件</title> </HEAD>
<BODY>
<form enctype="multipart/form-data" method="post" action="up.asp">
输入上载文件的名称:<input type="file" name="f1"> <br>
<input type="submit" value="上载">
</FORM>
</body>
</html>
文件UP.ASP
<%@language="vbscript"%>
<html>

<head>
<title>上载文件</title>
</head>
<body>
您的文件已经上传成功<BR>
<%set upl=server.createobject("softartisans.fileup")%>
<% upl.path=server.MapPath( "TEMP")%><br>
</body>
</html>

...全文

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

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

filippo1981 2005-11-18

打赏
举报

<%OPTION EXPLICIT%>
<%Server.ScriptTimeOut=5000%>

<html>
<head>
<title>文件上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body>
<%
''将当前的日期和时间转为文件名
function makefilename()
dim fname
fname = now()
fname = trim(fname)
fname = replace(fname,"-","")
fname = replace(fname,"/","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
makefilename=fname
end function

dim upload,file,formName,formPath
dim i,l,fileType,newfilename,filenamelist
'创建新文件名称
newfilename = makefilename()
'建立上传对象
set upload=new upload_5xsoft
'上传文件目录
formPath = Server.mappath("images")&"/"
'列出所有上传了的文件
for each formName in upload.objFile
'生成一个文件对象
set file=upload.file(formName)
'如果 FileSize > 0 说明有文件数据
if file.FileSize>0 then
'取得文件扩展名
fileType = file.FileName '文件名以及扩展名
i = instr(fileType,".") '是否存在“.”
l = Len(fileType)
if i>0 then
fileType = Right(fileType,l-i+1) '得到扩展名
end if
if filetype<>".jpg" and filetype<>".gif" then
response.write "<script>alert('文件类型错误');location.href='upload.asp';</script>"
response.end
end if
newfilename = newfilename & fileType
filenamelist = formPath&newfilename '新文件绝对地址和名称
file.SaveAs filenamelist ''保存文件
end if
set file=nothing
next
'将文件信息传入内容字段
session("image")=newfilename
response.write "<font style='font-family: 宋体; font-size: 9pt' color=red>文件上传成功 </font>"

set upload=nothing ''删除此对象
%>