高分求救,会不够可以再加!

slfslf 2006-02-20 03:15:12
各位XDJM,我在网上下载了一个ASP无组件文件上传程序,可是怎么也不能正确运行,各位大侠帮我看看吧!万分感谢!
upload.html----------------------------------------------------->

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>asp 无组件上传</title>
</head>
<body>
请选择要上传的文件
<form action="upfile.asp" method="post" enctype="multipart/form-data" name="form1">
<input type="file" name="file">
<!--<br>
<input type="file" name="file">
<br>
<input type="file" name="file">
<br>-->
<input type="submit" name="Submit" value="提交">
</form>
</body>
</html>

upfile.asp------------------------------------------------------------>
<!--#include file="upinc.asp"-->
<html>
<head>
<title>文件上传</title>
</head>
<body topmargin="0" leftmargin="0">
<table width=100% border=0 cellspacing="0" cellpadding="0"><tr><td class=tablebody1 width=100% height=100% >
<%
dim upload,file,formName,formPath,filename,fileExt
dim ranNum
call UpFile()
'===========无组件上传(upload_0)====================
sub UpFile()
set upload=new UpFile_Class '建立上传对象
upload.GetData (500*1024) '取得上传数据,此处即为500 K

if upload.err > 0 then
select case upload.err
case 1
Response.Write "请先选择你要上传的文件　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
case 2
Response.Write "图片大小超过了限制 500 K　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
end select
exit sub
else
formPath=upload.form("f:\jngdj\wzjupfile\filepath") '文件保存目录,此目录必须为程序可读写
if formPath="" then
formPath="rwdata/"
end if
'在目录后加(/)
if right(formPath,1)<>"/" then
formPath=formPath&"/"
end if
for each formName in upload.file '列出所有上传了的文件
set file=upload.file(formName) '生成一个文件对象
if file.filesize<100 then
response.write "请先选择你要上传的图片　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
response.end
end if

fileExt=lcase(file.FileExt)
if CheckFileExt(fileEXT)=false then
response.write "文件格式不正确　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
response.end
end if

'randomize
ranNum=int(90000*rnd)+10000
filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
if file.FileSize>0 then '如果 FileSize > 0 说明有文件数据
result=file.SaveToFile(Server.mappath(filename)) '保存文件
if result="ok" then
response.write formName&" upload OK, had saved to "&filename&"<br>"
else
response.write formName&" upload Fail,"&result&"<br>"
end if
end if
set file=nothing
next
set upload=nothing
end if
end sub

'判断文件类型是否合格
Private Function CheckFileExt (fileEXT)
dim Forumupload
Forumupload="gif,jpg,bmp,jpeg,txt"
Forumupload=split(Forumupload,",")
for i=0 to ubound(Forumupload)
if lcase(fileEXT)=lcase(trim(Forumupload(i))) then
CheckFileExt=true
exit Function
else
CheckFileExt=false
end if
next
End Function
%>
</td></tr></table>
</body>
</html>

upinc.asp---------------------------------------------------->

<%
Dim oUpFileStream
Class UpFile_Class

Dim Form,File,Version,Err

Private Sub Class_Initialize
Version = "无组件上传类 Version V1.0"
Err = -1
End Sub

Private Sub Class_Terminate
'清除变量及对像
If Err < 0 Then
Form.RemoveAll
Set Form = Nothing
File.RemoveAll
Set File = Nothing
oUpFileStream.Close
Set oUpFileStream = Nothing
End If
End Sub

Public Sub GetData (RetSize)
'定义变量
Dim RequestBinDate,sSpace,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo
Dim iFileSize,sFilePath,sFileType,sFormvalue,sFileName
Dim iFindStart,iFindEnd
Dim iFormStart,iFormEnd,sFormName
'代码开始
If Request.TotalBytes < 1 Then
Err = 1
Exit Sub
End If
If RetSize > 0 Then
If Request.TotalBytes > RetSize Then
Err = 2
Exit Sub
End If
End If
Set Form = Server.CreateObject ("Scripting.Dictionary")
Form.CompareMode = 1
Set File = Server.CreateObject ("Scripting.Dictionary")
File.CompareMode = 1
Set tStream = Server.CreateObject ("ADODB.Stream")
Set oUpFileStream = Server.CreateObject ("ADODB.Stream")
oUpFileStream.Type = 1
oUpFileStream.Mode = 3
oUpFileStream.Open
oUpFileStream.Write Request.BinaryRead (Request.TotalBytes)
oUpFileStream.Position = 0
RequestBinDate = oUpFileStream.Read
iFormEnd = oUpFileStream.Size
bCrLf = ChrB (13) & ChrB (10)
'取得每个项目之间的分隔符
sSpace = MidB (RequestBinDate,1, InStrB (1,RequestBinDate,bCrLf)-1)
iStart = LenB (sSpace)
iFormStart = iStart+2
'分解项目
Do
iInfoEnd = InStrB (iFormStart,RequestBinDate,bCrLf & bCrLf)+3
tStream.Type = 1
tStream.Mode = 3
tStream.Open
oUpFileStream.Position = iFormStart
oUpFileStream.CopyTo tStream,iInfoEnd-iFormStart
tStream.Position = 0
tStream.Type = 2
tStream.CharSet = "gb2312"
sInfo = tStream.ReadText
'取得表单项目名称
iFormStart = InStrB (iInfoEnd,RequestBinDate,sSpace)-1
iFindStart = InStr (22,sInfo,"name=""",1)+6
iFindEnd = InStr (iFindStart,sInfo,"""",1)
sFormName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
'如果是文件
If InStr (45,sInfo,"filename=""",1) > 0 Then
Set oFileInfo = new FileInfo_Class
'取得文件属性
iFindStart = InStr (iFindEnd,sInfo,"filename=""",1)+10
iFindEnd = InStr (iFindStart,sInfo,"""",1)
sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
oFileInfo.FileName = Mid (sFileName,InStrRev (sFileName, "\")+1)
oFileInfo.FilePath = Left (sFileName,InStrRev (sFileName, "\")+1)
oFileInfo.FileExt = Mid (sFileName,InStrRev (sFileName, ".")+1)
iFindStart = InStr (iFindEnd,sInfo,"Content-Type: ",1)+14
iFindEnd = InStr (iFindStart,sInfo,vbCr)
oFileInfo.FileType = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
oFileInfo.FileStart = iInfoEnd
oFileInfo.FileSize = iFormStart -iInfoEnd -2
oFileInfo.FormName = sFormName
file.add sFormName,oFileInfo
else
'如果是表单项目
tStream.Close
tStream.Type = 1
tStream.Mode = 3
tStream.Open
oUpFileStream.Position = iInfoEnd
oUpFileStream.CopyTo tStream,iFormStart-iInfoEnd-2
tStream.Position = 0
tStream.Type = 2
tStream.CharSet = "gb2312"
sFormvalue = tStream.ReadText
If Form.Exists (sFormName) Then
Form (sFormName) = Form (sFormName) & ", " & sFormvalue
else
form.Add sFormName,sFormvalue
End If
End If
tStream.Close
iFormStart = iFormStart+iStart+2
'如果到文件尾了就退出
Loop Until (iFormStart+2) = iFormEnd
RequestBinDate = ""
Set tStream = Nothing
End Sub
End Class

'文件属性类
Class FileInfo_Class
Dim FormName,FileName,FilePath,FileSize,FileType,FileStart,FileExt
'保存文件方法
Public Function SaveToFile (Path)
On Error Resume Next
Dim oFileStream
Set oFileStream = CreateObject ("ADODB.Stream")
oFileStream.Type = 1
oFileStream.Mode = 3
oFileStream.Open
oUpFileStream.Position = FileStart
oUpFileStream.CopyTo oFileStream,FileSize
oFileStream.SaveToFile Path,2
oFileStream.Close
Set oFileStream = Nothing
if Err.Number<>0 then
SaveToFile=err.number&"**"&Err.descripton
else
SaveToFile="ok"
end if
End Function

'取得文件数据
Public Function FileDate
oUpFileStream.Position = FileStart
FileDate = oUpFileStream.Read (FileSize)
End Function
End Class
%>
...全文
125 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
conner 2006-02-21
  • 打赏
  • 举报
 回复
这个是不能这样读取的。只能将本上传窗口单独放如虚拟帧里，然后单独上传，虚拟帧外放其他文件选项。
slfslf 2006-02-20
  • 打赏
  • 举报
 回复
首先谢谢各位大哥的指教!,我现在想把文件名和文件的说明写入数据库中的两个字符型的字段中,
出现的如下错误:"Request 对象 错误 'ASP 0206 : 80004005'

不能调用 BinaryRead

/upinc.asp，行 51

使用 Request.Form 集合之后，不能调用 BinaryRead。

这是怎么回事啊?
likethis 2006-02-20
  • 打赏
  • 举报
 回复
造成这个错误,估计是因为你的服务器版本是Windows 2003
这个版本有上传的限制,改一下就可以了

找到windows\system32\inesrv\下的metabase.xml，用计事本打开metabase.xml，找到ASPMaxRequestEntityAllowed 把他修改为需要的值，默认为204800，即200K，把它修改为51200000(50M)。
然后重启iis admin service服务。
slfslf 2006-02-20
  • 打赏
  • 举报
 回复
谢谢各位XDJM们的解答,现在目录路径问题巳解决了,也巳经传上传文件了.程序中设置的文件大小为500K,可是当上传大于200K的文件时,就出现"该页无法显示"的错误信息,也没有超过设置大小啊,盼指点.
conner 2006-02-20
  • 打赏
  • 举报
 回复
程序没有问题，需要修改的是程序中的路径

在upfile.asp中的26行和28行需要修改成你自己的目录路径。
26行修改成“文件保存目录” 如“E:\myweb\upload\upfile”
如果你的发布目录是E:\myweb\则
28行修改成“/upload/upfile/”





Hellohuan 2006-02-20
  • 打赏
  • 举报
 回复
找个比较通用的

+up +jf

--------------------
我用ASP写的技术社区：
http://udclub.com/cn/community/default.html
slfslf 2006-02-20
  • 打赏
  • 举报
 回复
当我上传一个很小的TXT文件时,显示"file upload Fail,"的错误信息
当上传一个一百多K的图像文件时,直接显示"该页无法显示"的错误信息
linky520 2006-02-20
  • 打赏
  • 举报
 回复
去下 化境无组件 这个是可以运行的~
tigerwen01 2006-02-20
  • 打赏
  • 举报
 回复
在网上下载的不一定能用啊，再说你运行的时候提示什么错误？
danis_cn 2006-02-20
  • 打赏
  • 举报
 回复
什么提示!
eduyp 2006-02-20
  • 打赏
  • 举报
 回复
给出错误看看
是是非非 2006-02-20
  • 打赏
  • 举报
 回复
贴出错误信息
用过ＴＷＥＢＢＲＯＷＳＥＲ的请进来，高分求救
用过ＴＷＥＢＢＲＯＷＳＥＲ的请进来，高分求救 VCL组件开发及应用http://www.delphi2007.net/DelphiVCL/html/delphi_20061222111048196.html 用ＴＷＥＢＢＲＯＷＳＥＲ做了一个浏览器，调用本机的两个网页文件 ...
考前突击！等级考试高分攻略！（整理版）
等级考试高分攻略！（整理版）   原文请链接[url]http://bbs.51cto.com/thread_mz-556278-1.html[/url]    等考在即，已经报名参考的朋友们，是否已经胸有成竹了呢？ 想必拍着胸脯，信息十足的寥寥无几吧？...
基础
各位兄弟，在SDK编程中如果实现...求助：通过编程DirectX抓屏------>masterz:再麻烦你一下，谢谢熟悉RichEdit的朋友过来看一下,RichEdit的几个问题.如何对 I/O 端口进行操作?有了该问题就有了思考（100分 献礼！）如何
在线招人啦，不限经验（考研考公失利均可），可提供机考面试攻略
电子工程师发一下库存，首先是进行自我介绍，面试官会根据你的自我介绍的内容进行提问，大概十个问题。/** * 代码中的类名、方法名、参数名已经指定，请勿修改，直接返回方法规定的值即可 * * *上午突然将周五的一面...
【低空经济】无人机救援场景应用方案
随着自然灾害和紧急事件的频发，传统的...例如，在地震、洪水等灾害发生后，无人机可以迅速飞抵灾区，利用其搭载的高清摄像头和红外热成像设备，实时传回灾区的图像信息，帮助救援指挥中心快速了解灾情，制定救援策略。
ASP

28,406

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章