<!--#include file="upfile_class.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<link href="../css/bbs.css" rel="stylesheet" type="text/css" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<%
function GetFilePath(FullPath,str)
If FullPath <> "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, str))
Else
GetFilePath = ""
End If
End function
dim Action
Action=Request.QueryString("action")
If Action="UpLoad" Then
set upfile=new UpFile_Class ''建立上传对象
upfile.NoAllowExt="asp;exe;htm;html;aspx;cs;vb;js;" '设置上传类型的黑名单
upfile.GetData (500000)
if upfile.isErr then
select case upfile.isErr
case 1
Response.Write "<div class='dds4'>你没有上传数据???是不是搞错了?? <a href='javascript:history.go(-1)'><font color='blue'>重新上传</font></a></div>"
Response.End()
case 2
Response.Write "<div class='dds4'>你上传的文件超出我们的限制,最大500 KB <a href='javascript:history.go(-1)'><font color='blue'>重新上传</font></a></div>"
Response.End()
end select
else
set oFile=upfile.file("filename")
fileName=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"."&oFile.FileExt
upfile.SaveToFile "FileName",Server.MapPath("/UpLoadFile/")&"/"&fileName
Response.Write("<script language='javascript'>parent.document.form1.f_images.value='/UpLoadFile/"&fileName&"';</script>")
end if
set upfile=nothing
End If
%>
<form action="?action=UpLoad" method="post" name="form1" onSubmit="return check()" enctype="multipart/form-data">
<input name="FileName" type="FILE" class="dds" size="30">
<input name="Submit" type="submit" class="dds" style="border:1px ;font:9pt" value="上传">
</form>
</body>
</html>
代码如上，我找不到错误，可是在UpLoadFile文件夹中找不到图片，请帮忙
參考答案:上传有专门的组件下载，去下一个吧
