大文件分段上传

来源：互联网发布：unity麻将源码编辑：程序博客网时间：2024/05/20 11:23

« [ASP] LBS增强L-blog...

手机中各种行货，欧... »

Category: Developer

一段方便的ASP无组件上传程序

[ 2005-07-04 20:41:51 | Author: 吟清 ]

Font Size: Large | Medium | Small

最近比较忙，我的Blog已经有两天没有更新了。现在贡献一段上传代码，希望可以对大家有所帮助。
[smile]

我最近在做一个商品发布系统需要上传商品图片，虽然以前也写过一个采用无组件上传的图片上传程序，但是过了这么久代码都找不到了(PS:习惯不太好,没有整理代码的习惯,呵呵!!!)还要重新写我当然没有这么笨了，当然是去网上盗了。 [lol]
我从网上下载一个商城系统得到这样几个页面是上传图片的，我精简了一下，现在发布供大家参考。

up.asp
建立一个上传图片的文件夹uploadfiles

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ASPid - 上传图片</title>
</head>
<body><form name="formname" method="post" action="saveaddbook.asp?action=add" OnSubmit="return checkkk()" >
<input name="upfile" type="text" id="upfile" size="30">
 
<input name="upbtn" type="button" id="upbtn" onClick="window.open('upload.asp?formname=formname&editname=upfile&uppath=uploadfiles&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')" value="上传图片">
</form>
</body>
</html>

upload.asp

<%
uppath=request("uppath")&"/"      '文件上传路径
filelx=request("filelx")        '文件上传类型
formName=request("formName")      '回传到上页面编辑框所在Form的Name
EditName=request("EditName")      '回传到上页面编辑框的Name
%>
<html><head><title>ASPid - 图片上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javascript">

</script>
</head>
<body>
<form name="form1" method="post" action="upfile.asp" enctype="multipart/form-data" >
<div id="esave" style="position:absolute; top:18px; left:40px; z-index:10; visibility:hidden">
<TABLE WIDTH=340 BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR><td width=20%></td>
<TD bgcolor=#003366 width="60%">
<TABLE WIDTH=100% height=100 BORDER=0 CELLSPACING=1 CELLPADDING=0>
<TR>
<td bgcolor=#ffffff align=center><font color=#003366>正在上传文件，请稍候...</font></td>
</tr>
</table>
</td><td width=20%></td>
</tr></table></div>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td align="center" bgcolor="#003366"><b><font color="#ffffff">图片上传
<input type="hidden" name="filepath" value="<%=uppath%>">
<input type="hidden" name="filelx" value="<%=filelx%>">
<input type="hidden" name="EditName" value="<%=EditName%>">
<input type="hidden" name="FormName" value="<%=formName%>">
<input type="hidden" name="act" value="uploadfile">
</font></b> </td>
</tr>
<tr bgcolor="#E8F1FF">
<td align="center" id="upid" height="80">选择文件:
<input type="file" name="file1" size="40" class="tx1" value="">
<input type="submit" name="Submit" value="开始上传" class="button" onclick="javascript:mysub()">
</td>
</tr>
</table>
</form>
</body>
</html>

upfile.asp

<%
set upload=new upload_file
if upload.form("act")="uploadfile" then
  filepath=trim(upload.form("filepath"))
  filelx=trim(upload.form("filelx"))

  i=0
  for each formName in upload.File
    set file=upload.File(formName)

fileExt=lcase(file.FileExt)  '得到的文件扩展名不含有.
if file.filesize<100 then
  response.write "<script language=javascript>alert('请先选择你要上传的文件！');history.go(-1);</script>"
  response.end
end if
if (filelx<>"swf") and (filelx<>"jpg") then
  response.write "<script language=javascript>alert('该文件类型不能上传！');history.go(-1);</script>"
  response.end
end if
if filelx="swf" then
  if fileext<>"swf" then
    response.write "<script language=javascript>alert('只能上传swf格式的Flash文件！');history.go(-1);</script>"
    response.end
  end if
end if
if filelx="jpg" then
  if fileext<>"gif" and fileext<>"jpg" then
    response.write "<script language=javascript>alert('只能上传jpg或gif格式的图片！');history.go(-1);</script>"
    response.end
   end if
end if
if filelx="swf" then
  if file.filesize>(3000*1024) then
    response.write "<script language=javascript>alert('Flash文件大小不能超过3m！');history.go(-1);</script>"
    response.end
  end if
end if
if filelx="jpg" then
  if file.filesize>(1000*1024) then
    response.write "<script language=javascript>alert('图片文件大小不能超过1m！');history.go(-1);</script>"
    response.end
  end if
end if

randomize
ranNum=int(90000*rnd)+10000
filename=filepath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
%>
<%
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
'file.SaveAs Server.mappath(filename) ''保存文件
file.SaveToFile Server.mappath(FileName)
'response.write file.FileName&"　　上传成功!　　<br>"
'response.write "新文件名："&FileName&"<br>"
'response.write "新文件名已复制到所需的位置，可关闭窗口！"
if filelx="swf" then
response.write "<script>window.opener.document."&upload.form("FormName")&".size.value='"&int(file.FileSize/1024)&" K'</script>"
end if
response.write "<script>window.opener.document."&upload.form("FormName")&"."&upload.form("EditName")&".value='"&FileName&"'</script>"
%>
<%
end if
set file=nothing
next
set upload=nothing
end if
%>
<script language="javascript">
window.alert("文件上传成功!");
window.close();
</script>

最后一个upload.inc是一个无组件上传

<%
'----------------------------------------------------------------------
'转发时请保留此声明信息,这段声明不并会影响你的速度!
'******************* 无组件上传类 ********************************
'修改者:梁无惧
'原作者:稻香老农
'文件属性：例如上传文件为c:/myfile/doc.txt
'FileName 文件名字符串 "doc.txt"
'FileSize 文件大小数值 1210
'FileType 文件类型字符串 "text/plain"
'FileExt 文件扩展名字符串 "txt"
'FilePath 文件原路径字符串 "c:/myfile"
'使用时注意事项:
'由于Scripting.Dictionary区分大小写,所以在网页及ASP页的项目名都要相同的大小
'写,如果人习惯用大写或小写,为了防止出错的话,可以把
'sFormName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
'改为
'(小写者)sFormName = LCase(Mid (sinfo,iFindStart,iFindEnd-iFindStart))
'(大写者)sFormName = UCase(Mid (sinfo,iFindStart,iFindEnd-iFindStart))
'**********************************************************************
'----------------------------------------------------------------------
dim oUpFileStream

Class upload_file

dim Form,File,Version

Private Sub Class_Initialize
'定义变量
dim RequestBinDate,sStart,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo
dim iFileSize,sFilePath,sFileType,sFormvalue,sFileName
dim iFindStart,iFindEnd
dim iFormStart,iFormEnd,sFormName
'代码开始
Version="无组件上传类 Version 0.96"
set Form = Server.CreateObject("Scripting.Dictionary")
set File = Server.CreateObject("Scripting.Dictionary")
if Request.TotalBytes < 1 then Exit Sub
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)
'取得每个项目之间的分隔符
sStart = MidB(RequestBinDate,1, InStrB(1,RequestBinDate,bCrLf)-1)
iStart = LenB (sStart)
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,sStart)-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
'取得文件属性
iFindStart = InStr(iFindEnd,sInfo,"filename=""",1)+10
iFindEnd = InStr(iFindStart,sInfo,"""",1)
sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
oFileInfo.FileName = GetFileName(sFileName)
oFileInfo.FilePath = GetFilePath(sFileName)
oFileInfo.FileExt = GetFileExt(sFileName)
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
form.Add sFormName,sFormvalue
end if
tStream.Close
iFormStart = iFormStart+iStart+2
'如果到文件尾了就退出
loop until (iFormStart+2) = iFormEnd
RequestBinDate=""
set tStream = nothing
End Sub

Private Sub Class_Terminate
'清除变量及对像
if not Request.TotalBytes<1 then
oUpFileStream.Close
set oUpFileStream =nothing
end if
Form.RemoveAll
File.RemoveAll
set Form=nothing
set File=nothing
End Sub

'取得文件路径
Private function GetFilePath(FullPath)
If FullPath <> "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, "/"))
Else
GetFilePath = ""
End If
End function

'取得文件名
Private function GetFileName(FullPath)
If FullPath <> "" Then
GetFileName = mid(FullPath,InStrRev(FullPath, "/")+1)
Else
GetFileName = ""
End If
End function

'取得扩展名
Private function GetFileExt(FullPath)
If FullPath <> "" Then
GetFileExt = mid(FullPath,InStrRev(FullPath, ".")+1)
Else
GetFileExt = ""
End If
End function

End Class

'文件属性类
Class FileInfo
dim FormName,FileName,FilePath,FileSize,FileType,FileStart,FileExt
Private Sub Class_Initialize
FileName = ""
FilePath = ""
FileSize = 0
FileStart= 0
FormName = ""
FileType = ""
FileExt = ""
End Sub

'保存文件方法
Public function SaveToFile(FullPath)
dim oFileStream,ErrorChar,i
SaveToFile=1
if trim(fullpath)="" or right(fullpath,1)="/" then exit function
set oFileStream=CreateObject("Adodb.Stream")
oFileStream.Type=1
oFileStream.Mode=3
oFileStream.Open
oUpFileStream.position=FileStart
oUpFileStream.copyto oFileStream,FileSize
oFileStream.SaveToFile FullPath,2
oFileStream.Close
set oFileStream=nothing
SaveToFile=0
end function
End Class
%>

这个梁无惧修改的0.96化境编程界无组件上传类，大家可千万不要使用这个版本的。
旧版本的无组件上传中有很大的漏洞，给黑客上传“木马”、“病毒”开了方便之门，问题主要是出在电脑不能正确判断含有“/0”二进制字符文件名或路径，可以本地抓包嗅探流文件并用二进制编辑器伪装IP包通过网络军刀上传，你使用这样的上传类等于是给黑客开了后门.
一定要去下载新的上传类，无惧无组件上传类已经更新到2.2版本了,网上还有流行的先锋无组件上传类(杜绝上传漏洞版)，你去下载下试试，再稍加修改这几段程序就可以使用了。

[Last Modified By 吟清, at 2006-06-03 23:07:34]

本文遵循创作共用版权协议, 要求署名、非商业用途和保持一致.
请尊重作者劳动成果,转载本文必须遵循“署名-非商业用途-保持一致”的创作共用协议.
This Article is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 2.5 License.

Tags: ASP 无组件上传

Comments Feed: http://www.aspid.cn/blog/feed.asp?q=comment&id=93

Relate Articles

谈点想法:Asp学习者选看-Asp初学者提纲
谈点想法:Asp学习者选看-对Asp入门者的建议
如何确保应用系统的安全
Response对象的使用详解
超强：单文件的ASP文章管理系统

View Mode: Show All | Comments: 32 | Trackbacks: 0 | Toggle Order | Views: 8534

aspcn

[ 2005-08-05 11:49:48 ]

你好，我是一个asp初学者，刚才看了你发表的一篇无组件上传的代码,我加以修改但是在上传以后,在web在线编辑框内显示是的绝对路径,怎么把它改为相对路径.
例如：
我上传图片时的路径是：
<img src=UploadFiles/200584182625498.jpg>
可是在上传完后路径变为：
<IMG src="http://localhost/UploadFiles/200584175323951.jpg">
我现在想要路径保存为
<IMG src="UploadFiles/200584175323951.jpg">
不知改怎么改动。
希望站长大哥，给小弟指点一二。
[cry]

qingis*

[ 2005-08-05 22:32:49 ]

在这里
http://localhost/UploadFiles/200584175323951.jpg
是绝对路径
而UploadFiles/200584175323951.jpg
是相对路径，
如果你把在本机上测试的程序传上去并打开浏览，
如果可以正常浏览，
图片路径为http://www.yourname.com/UploadFiles/200584175323951.jpg
表示这仍旧是相对路径，不需要修改。
如果还是http://localhost/UploadFiles/200584175323951.jpg这个路径，
那你再提出来，我们一起去解决这个问题。

aspcn

[ 2005-08-06 11:13:12 ]

本机上测试的程序?
不好意思，站长在那呀！我有点糊涂不明白！
能教我该怎样做吗！

qingis*

[ 2005-08-07 16:55:34 ]

你的程序是在哪里测试的~是不是在自己的机器上测试呢,如果把你的程序上传到服务器上去,再打开测试一下.如果图片路径不是http://localhost/UploadFiles/200584175323951.jpg这个路径,那就对了.

aspcn

[ 2005-08-19 12:15:26 ]

站长，你好这么多天没来！实在是太忙了不好意思！ [sweat]
我把程序按照你说的上传了。图片路径为http://localhost/UploadFiles/200584175323951.jpg
但是我在IIs里把网站的默认IP一改就成了http://192.168.1.66/UploadFiles/200584175323951.jpg
所以十分郁闷！不知道是那段代码实现读取网站名称的！

aspcn

[ 2005-08-19 12:32:59 ]

噢！还有我忘了给站长大哥说了就是我用的是下面的这段上传代码：
http://www.blueidea.com/bbs/NewsDetail.asp?id=2130645
和你发表的类似。
现在就是在在web在线编辑框内显示是的绝对路径,怎么把它改为相对路径。
请站长大哥帮我看看，跪求指点迷津！

吟清

[ 2005-08-19 12:46:48 ]

它现在保存就是"UploadFiles/200584175323951.jpg"这个路径,所以你根本不需要去修改,而且不管你在什么场合都不影响你使用.所以你只管放心使用就行了.

aspcn

[ 2005-08-25 17:17:31 ]

是的保存路径是UploadFiles/200584175323951.jpg
可是在链接显示图片时图片属性显示链接地址为：http://192.168.1.66/UploadFiles/200584175323951.jpg
这在局域网内浏览可以显示，但是一上公网图片就不能显示。原因是找不到链接的192.168.1.66主机这是当然得了！
我现在就是想让它的链接地址为：
http://UploadFiles/200584175323951.jpg
这样不论公网局域网就能正常显示了。
我想知道读取http://192.168.1.66的这段代码在程序的那个地方这样就好改了。
谢谢！站长大哥的点拨！请您多费心了！

lizhe

[ 2005-10-31 10:55:29 ]

各位大哥，大姐们，小弟我做了个网站，就是图片不能上传，在本地测试成功，但是上传到远端就无法实现了，我知道可能是服务器环境改变了，但是不知道如何修改，求大哥，大姐们指点指点！！
提示错误：
Server.MapPath() error 'ASP 0171 : 80004005'
Missing Path

/dianzishangwu/xrclass23/upload.asp, line 26

The Path parameter must be specified for the MapPath method.

aspid*

[ 2005-10-31 11:29:50 ]

按照你提示的错误代码应该是远端服务器路径设置的问题.
你最好把你出错的代码贴出来。

talix

[ 2005-11-27 11:08:47 ]

大姐　我也是一样的问题　成功的可以上传文件　保存到指定文件夹中　　只是在网站图片管理中　怎么可以把　图片名称　图片上传放一个页面中操作　好一起插入　数据库　　　不知道　怎么解决　得到上传后图片的文件名　然后和别的图片数据保存到数据库中。。。。。多谢了

吟清

[ 2005-12-19 15:29:11 ]

你在数据库中建立一个表，分别建立id,图片路径,上传日期,几个字段。
然后在程序中设计一段获取图片上传路径等信息程序，然后添加到数据库中。就可以了。

talix

[ 2006-01-02 22:29:41 ]

全解决了多谢自己磨了半个月哈全成功了
有空来我做好的网页瞧瞧吧 www.pzpxd.com

吟清

[ 2006-01-02 23:41:27 ]

For talix:
派中派鞋店是你的干的,还是耐品是你服务的公司啊.

fyabc*

[ 2006-04-23 09:45:08 ]

无法显示网页
试图访问的网页出现问题，无法显示。

--------------------------------------------------------------------------------

请尝试执行下列操作：

单击刷新按钮，或稍后重试。

打开 localhost 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（用于支持人员）

错误类型：
ADODB.Stream (0x800A0BBC)
写入文件失败。
/up/Upload.Inc, 第 174 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727)

网页：
POST 38790 ??? /up/Upfile.Asp

POST Data:
错误 '80020009'
发生意外。

/iisHelp/common/500-100.asp，行 219

fyabc*

[ 2006-04-23 09:45:51 ]

我把你的代码拷贝下来！不行啊!

吟清

[ 2006-04-23 14:37:57 ]

查看一下文件上传的路径是否正确,是否存在该路径!

flyabc*

[ 2006-04-24 09:43:12 ]

太谢谢您了!行了!

flyabc*

[ 2006-04-24 09:46:17 ]

我把upload.inc文件换成
无惧上传类 v2.2
好像又不可以用了!
无法显示网页
试图访问的网页出现问题，无法显示。

--------------------------------------------------------------------------------

请尝试执行下列操作：

单击刷新按钮，或稍后重试。

打开 localhost 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（用于支持人员）

错误类型：
Microsoft VBScript 运行时错误 (0x800A01FA)
类没有被定义: 'upload_file'
/up/Upfile.Asp, 第 3 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727)

网页：
POST 38790 ??? /up/Upfile.Asp

POST Data:
. . .

时间：
2006年4月24日, 9:46:00

详细信息：
Microsoft 支持

fyabc

[ 2006-04-24 09:48:38 ]

如果新版您本能修改一下就好了!

吟清

[ 2006-04-24 10:30:42 ]

新版的无惧上传类变量,参数都有所不同,以前修改过一个,不知道发布到哪里了!(知道我没有整理代码的习惯)
只能重新做了!只量最近时间不够,有空了一定重新改一下,到时你就能看到了!
不好意思哦!!

[Last Modified By 吟清, at 2006-04-24 10:31:41]

fyabc

[ 2006-04-27 08:43:36 ]

我会常来的!
==========
[smile]

zhai

[ 2006-05-07 17:17:42 ]

zhai

[ 2006-05-07 17:32:46 ]

呵呵我的问题解决了，是权限问题。谢谢

iwalker

[ 2006-06-03 03:14:48 ]

请问我想上传后立刻显示在
<input name="imageshow" type="image" width="130" height="98">
里是如何做到的..我改好几处地方了?还是不可以

以下是upfile.asp修改的代理,相信我是没有拼错字等问题的
response.write "<script>window.opener.document."&upload.form("FormName")&"."&upload.form("EditName")&".value='"&FileName&"'</script>"

我加的代码,是这样的吗?
response.write "<script>window.opener.document."&upload.form("FormName")&"."&upload.form("ImageName")&".src='"&FileName&"'</script>"

吟清

[ 2006-06-03 03:19:22 ]

如果读取路径正确一般没什么问题！
你检查一下显示方式和数据传递！试试！

iwalker

[ 2006-06-03 03:23:04 ]

可以加我QQ吗?
我想发我改了代码给你..谢谢
QQ:445178

你的Email也可以..我发给你看...

检查了..就是不可以,希望你可以帮帮忙..
asp还是新学的..不太会...

[Last Modified By iwalker, at 2006-06-03 03:33:48]

iwalker

[ 2006-06-03 03:24:47 ]

这么夜了还在?嘻嘻..又是一个夜游人
在吗?
我是Email是 andylife@tom.com

[Last Modified By iwalker, at 2006-06-03 03:32:40]

iwalker

[ 2006-06-03 17:35:45 ]

请帮帮忙..试了好多次了.还是不行..求助...

吟清

[ 2006-06-03 23:59:31 ]

我也尝试了很长时间也无法解决，可能是文本域的src无法传递吧！

你可以在up.asp修改如下：

在upfile.asp做如下修改就可以了！

response.write "<script>window.opener.document."&upload.form("FormName")&"."&upload.form("EditName")&".src='"&FileName&"'</script>"

希望有高手可以详细解答一下关于文本域传递的方法！

[Last Modified By 吟清, at 2006-06-04 00:00:17]

iwalker

[ 2006-06-05 03:00:25 ]

利害..没有想到这一点..现在我问题可以解决了..

不过还是想知道为何 <input>是不行的..
thanks
会常来的....

吟清

[ 2006-06-05 03:06:57 ]

又是这么晚啊！呵呵！
有空经常交流，谢谢支持！

Calendar

« 2005 » « July » Su Mo Tu We Th Fr Sa 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Search

Hot Tags

设计[26] ASP[24] TSYS[13] Blog[12] Flash[10] 网站[10] php[7] 企业[7] 网页[7] 插画[7] CMS[7] Google[6] LBS[6] SQL[5] 数码[5] 事业[4] 数据库[4] 错误[4] 搜索[4] 韩国[4] XML[3] 计划[3]
More Tags..

About me

这里是吟清的个人Blog, 在这里您好可以了解吟清的工作与生活,想法及心情,如果你对吟清感兴趣,可以浏览吟清的

照片如果您喜欢我的Blog可以通过您的RSS阅读器订阅我的

Feed. 如果您有什么问题请到给吟清留言

Gbook给吟清捎个话,或者加入吟清的

QQ,也可以发

Email给吟清.

本Blog建立于2005年6月2日,目前已有 250 篇日志,有 3527157 人到访, 有 326 个用户发表了 812 篇评论 ; 当前有 21 人与您同时关注这个Blog.

Links

排名不分先后添加时间排序
==== ◎　Bloger ====

の吟清手记

Break N

Syosyume's Blog

墨水，要多喝

Novem’s blog

Black-Xstar's BLOG

Tug的平凡生活

幻想冬天

tomorrow

lording's blog

落入凡间的带鱼

AXFLY.COM

[剑气]凌人℡-Blog

咖啡のBar

布拉格公园

布拉格是张床

专注 PHP ACTIONScript — LZYY

H.Strong&Christine

Fantastic Day

蒋晓磊的静默空间

微翔在线

greengnn's space

KeKe's Blog

LEE'S BLOG

eTech.Blog

HAoZi

Binken's Blog

埃尔维斯

钟爱梦欣

小杨的网络日志

巴哥哥和巴姐姐的窝

Charles Blog

CrazyParty @blog

鬼仔's Blog

D.JOY

狄加小窝

LUSIN BLOG

缘·空间

城市漫延

Tony的笔记

I eric

风无痕

OnLing's Blog

GIDot de 猪娃娃

孤单城市

zheman's Blog

色·情·罐头

大懒人的布拉格

碎月无痕

苕上耕夫
==== ◎　Links ====
BXNA
ZDNet CN
Alexa
我的音乐收藏夹
Last Modified 06/06/02

Apply Links:申请友情链接
联系站长QQ:86565882
MSN:qingis@hotmail.com
Gmail:xingis@gmail.com

完整代码列表
WebForm1.aspx

<%@ Page language="c#" Codebehind="WebForm1.aspx.cs" AutoEventWireup="false" Inherits="CSharpUpload.WebForm1" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<HTML>
<HEAD>
    <title>WebForm1</title>
    <meta name="GENERATOR" Content="Microsoft Visual Studio 7.0">
    <meta name="CODE_LANGUAGE" Content="C#">
    <meta name=vs_defaultClientScript content="JavaScript">
    <meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" enctype="multipart/form-data" runat="server">
<INPUT type=file id=File1 name=File1 runat="server" >
<br/>
<input type="submit" id="Submit1" value="Upload" runat="server" NAME="Submit1">
</form>

</body>
</HTML>

WebForm1.aspx.cs

using System;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Web;
using System.Web.SessionState;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;

namespace CSharpUpload
{
/// <summary>
/// Summary description for WebForm1.
/// </summary>
public class WebForm1 : System.Web.UI.Page
{
protected System.Web.UI.HtmlControls.HtmlInputFile File1;
protected System.Web.UI.HtmlControls.HtmlInputButton Submit1;

private void Page_Load(object sender, System.EventArgs e)
{
// Put user code to initialize the page here
}

#region Web Form Designer generated code
override protected void OnInit(EventArgs e)
{
//
// CODEGEN: This call is required by the ASP.NET Web Form Designer.
//
InitializeComponent();
base.OnInit(e);
}

/// <summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
/// </summary>
private void InitializeComponent()
{
this.Submit1.ServerClick += new System.EventHandler(this.Submit1_ServerClick);
this.Load += new System.EventHandler(this.Page_Load);

}
#endregion

private void Submit1_ServerClick(object sender, System.EventArgs e)
{
if( ( File1.PostedFile != null ) && ( File1.PostedFile.ContentLength > 0 ) )
{
string fn = System.IO.Path.GetFileName(File1.PostedFile.FileName);
string SaveLocation = Server.MapPath("Data") + "//" + fn;
try
{
File1.PostedFile.SaveAs(SaveLocation);
Response.Write("The file has been uploaded.");
}
catch ( Exception ex )
{
Response.Write("Error: " + ex.Message);
}
}
else
{
Response.Write("Please select a file to upload.");
}
}
}
}

软件下载　硬件资讯软件首页 ┆软件更新 ┆软件分类 ┆国产软件 ┆国外软件 ┆软件发布 ┆广告联系 ┆软件商城
软件资讯 ┆硬件资讯 ┆动漫频道 ┆游戏下载 ┆数码软件 ┆硬件报价 ┆电脑技巧 ┆DIY 天地广告联系版权说明网友投稿意见建议加入收藏设为首页资讯首页 ┆软件新闻 ┆网络动态 ┆信息安全 ┆软件评测 ┆软件技巧 ┆编程开发 ┆设计教程 ┆教学动画 ┆游戏娱乐 ┆专题

8 您的位置: 首页→ 编程开发→ 网络编程→ ASP→ 正文 利用 xmlhttp 分块上传文件 发布日期: 2005-11-10 9:30:39　作者: 不详　字体:【大中小】【打印本页】

编写思路:把本地文件在客户端通过base64编码以后发送目的地.
测试过程中,上传文件过大,导致超时不成功.
后来经过改善.把编码分段发送.测试20M成功

编写目的:在传统的解决方案里面,一次一次选取上传可以.但是在碰到把数据库里文件路径读出来,并把这些文件上传到一个地方的时候就比较麻烦.
如果得到路径一个一个去找到用ftp当然也是可以的,但每次找这些文件我看都会比较费时。这里编写这个主要就是为了通过数据库里的文件路径取得文件.把文件一次批量上传到一个地方.
其主要目的还是为了锻炼一下自己.

解决过程:起初试着用模拟键盘输入强行赋值给file控件用传统的方法上传。可是老碰到空值的情况，以至有很多文件没有发送出去。查阅一些资料,现在是把所有路径通过数据库取到然后写到一个js里。然后在前台用js读取这些路径,通过xmlhttp来发送文件。
因为ie不太喜欢xmlHttp.总认为他有恶意行为.所以老谈出提示警告.所以操作的时候不能使用web路径.只能用物理路径去访问它.
然后服务端有一文件来接收这些编码,并对其进行解码.所以我称之为"c/s". ^_^

目前很多代码还在完善中.
简单介绍一下:

aryFiles.push("c://aaa.zip") ;
aryFiles.push("c://bbb.exe") ;
这里为文件路径和文件.可为多个
以后这个路径也可以通过file控件在客户端取到

http:// www.xxx.com/xxx/xxx.asp
这个是目的地,可以改为自己想要的地址.

ado_stream.LoadFromFile(server.mappath(".") &"/"& + str_filename)
server.mappath(".") &"/"& + str_filename 这里是读取文件.
server.mappath(".") &"/"& 路径和存放路径一致

ado_stream.SaveToFile server.mappath(".") &"/"& str_filename,2
server.mappath(".") &"/"& 这个为存放文件的路径. str_filename 为文件名

这里读取和存放都是放在程序所放目录中.大家测试的时候也可以保持这样即可

把第一段代码放到本地(eg:c:/upload.htm)

把第二段代码放到服务器上,可以是本地服务器,可以是公网服务器.和上面的目的地保持一致
(eg:http://www.xxx.com/upload.asp or http:// localhost/www/upload.asp)

操作:找到第一段代码保存的地方。执行即可(eg:打开c盘执行upload.htm)

目前程序还在调试过程中,希望大家提出宝贵意见

客户端代码

<html>
<head>
</head>
<body> <input type=button onclick="BeginSendFiles();"
value="发送" /> <input type=button onclick="JavaScript:
Breaked=true;" value="中断" /> <div id="ddd"
width=300px></div> <br></br> <DIV
id=div_message></DIV>
</body>
<script language=VBScript>
Function bytes2BSTR(vIn)
strReturn =""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
</script>
<script language=javascript> var xmlhttp ; var ado_stream ; var
mFileName, mPartStart, mPartID, mPartEnd ; var SendCount ; var
BlockSize ; var Breaked ; var aryFiles ; BlockSize = 1024*100
;//每次发送字节数 Breaked = false ; aryFiles = new Array() ; // 开始发送文件
function BeginSendFiles() { initAryFiles() ; SendFile(aryFiles.pop()) ;
} // 构造待发送文件的数组 function initAryFiles() { aryFiles.push("c://aaa.zip")
; aryFiles.push("c://bbb.exe") ; c://aaa.zip c://bbb.exe本地文件
aryFiles.reverse() ;//文件名 } function SendFile(vFullPath) { // 空文件则不执行上传
if (!vFullPath) { return ; } Breaked = false ; div_message.innerHTML =
"" ; ado_stream = new ActiveXObject("ADODB.Stream"); // 读取文件的流
ado_stream.Type = 1; ado_stream.Open();
ado_stream.LoadFromFile(vFullPath); // 读取文件 ado_stream.position = 0 ;
SendCount = Math.ceil(ado_stream.size/BlockSize) ; // 如果有余数则多发送一次 //
alert(SendCount) ; var reg = //b/w+./w+$/gi mFileName =
reg.exec(vFullPath) ; mPartStart = true ; mPartID = 1 ; mPartEnd =
false ; SendData() ; } function SendData() { if (SendCount > 0) {
var dom = new ActiveXObject("msxml2.DOMDocument"); // 发送的xml文件
dom.async = false; dom.resolveExternals = false; // 构造xml文件头 var node =
dom.createProcessingInstruction("xml","version='1.0'");
dom.appendChild(node) ; node = null ; // 构造root节点 var root =
dom.createElement("root"); dom.appendChild(root) ;
dom.documentElement.setAttribute("xmlns:dt",
"urn:schemas-microsoft-com:datatypes"); // 构造保存二进制数据的节点updata node =
dom.createElement("upData") ; node.dataType = "bin.base64" ; //
bin。base64编码 var att = dom.createAttribute("FileName") ; // 文件名属性
att.value = mFileName ; node.setAttributeNode(att) ; att = null ; var
att = dom.createAttribute("PartStart") ; // 分段开始标记 att.value =
mPartStart ; node.setAttributeNode(att) ; att = null ; var att =
dom.createAttribute("PartID") ; // 分段序号 att.value = mPartID ;
node.setAttributeNode(att) ; att = null ; var att =
dom.createAttribute("PartEnd") ; // 分段结束标记 att.value = mPartEnd ;
node.setAttributeNode(att) ; att = null ; root.appendChild(node) ;
node.nodeTypedValue = ado_stream.Read(BlockSize); // 节点数据从stream读取，固定长度
node = null ; SendCount -= 1 ; xmlhttp = new
ActiveXObject("Microsoft.XMLHTTP");
xmlhttp.open("POST","http://www.xxx.com/xxx/xxx.asp", false);
http://www.xxx.com/xxx/xxx.asp 为web路径上的文件 xmlhttp.onreadystatechange=
CallBack ; xmlhttp.send(dom); mPartStart = false ; xmlhttp = null ; }
else { ado_stream.Close(); ado_stream = null ; } } function CallBack()
{ // 上传成功 if(xmlhttp.readystate == 4) { // 检查是否中断上传 if(Breaked) {
return ; } if (SendCount > 0) { mPartID += 1 ; //
div_message.innerHTML += ("<br>" + xmlhttp.ResponseText) ; var p
= Math.floor((mPartID/(Math.ceil(ado_stream.size/BlockSize) + 1)) *
100) ; // 计算进度百分比 ShowBar(p) ; var t = setTimeout("SendData();", 1) ; }
else { // 传送完文件 div_message.innerHTML += mFileName +
"传送完毕！<br>" ; // 继续传下一文件 ShowBar(0) ; var cFile = aryFiles.pop()
; SendFile(cFile) ; } } } function ShowBar(per) { // 进度条 ddd.innerHTML
= "<table width='200' border=0 cellpadding='0' cellspacing='0'
><tr><td bgcolor='#6699FF'><input type=button style='
width:" + per + "% ; border:0px; background:#005599; color:#FFFFFF'
value=" + per + "%> </td></tr></table>" ; }
</script>
</html>

<%@ LANGUAGE=VBScript%>
<% Option Explicit
Response.Expires = 0

' 定义变量和对象。
dim ado_stream
dim xml_dom
dim xml_data
dim str_filename
dim bol_PartStart
dim int_PartID
dim bol_PartEnd

' 创建 Stream 对象
set ado_stream = Server.CreateObject("ADODB.Stream")
' 从Request对象创建 XMLDOM对象
set xml_dom = Server.CreateObject("MSXML2.DOMDocument")
xml_dom.load(request)
' 读出包含二进制数据的节点
set xml_data = xml_dom.selectSingleNode("root/upData")
str_filename = xml_data.getAttribute("FileName")
bol_PartStart = CBool(xml_data.getAttribute("PartStart"))
int_PartID = CInt(xml_data.getAttribute("PartID"))
bol_PartEnd = CBool(xml_data.getAttribute("PartEnd"))

' 打开Stream对象，把数据存入其中
ado_stream.Type = 1 ' 1=adTypeBinary
ado_stream.open
if not bol_PartStart then
ado_stream.LoadFromFile(server.mappath(".") &"/"& + str_filename) ' 读取文件
ado_stream.position = ado_stream.size
end if
ado_stream.Write xml_data.nodeTypedValue
' 文件存盘
ado_stream.SaveToFile server.mappath(".") &"/"& str_filename,2
'保存文件 2=adSaveCreateOverWrite
ado_stream.close

' 释放资源
set ado_stream = Nothing
set xml_dom = Nothing
' 向浏览器返回信息
Response.Write "Upload successful!"& str_filename & int_PartID & bol_PartStart
%>

另外：此文的目的并不是说这个程序能给朋友们解决什么问题，主要目的还是为了和大家交流一些心得：
碰到问题->发现问题->解决问题.
希望大家都不要成为一个标准的代码机器人。
多学、多看、多思考、多实践。
没有什么是不能解决的。

本站收录

上一篇: 温故知新:几个经典的ASP应用
下一篇: 教你一次下载网页中的所有资源相关文章相关软件 ·ASP.NET 2.0服务器控件开发之基本概念篇 ·用ASP.Net实现文件在线压缩和解压缩 ·Kaspersky安全软件发布6.0正式版 ·实例分析 ASP上传漏洞入侵实战及扩展 ·ASP.NET 2.0客户端回调的实现分析 ·新手必看 ASP.NET编程入门随想之信客 ·ASP.NET1.0升级ASP.NET2.0问题总结 ·在Dreamweaver中构建ASP.net开发环境 ·Asp.net 1.0 升级至 ASP.NET 2.0十个问题总 ·Kaspersky反病毒个人专业版更新了！ ·Kaspersky Anti-Virus 日病毒码05.20 ·春浪考试系统asp版 3.60 ·Kaspersky Anti-Virus 周病毒库05.18 ·Kaspersky Anti-Virus 累计病毒库05.18 ·Kaspersky Anti-Virus Personal 6.0.1.314 ·Kaspersky Internet Security 6.0.1.314 ·Kaspersky Internet Security 6.0.0.299 汉化版 ·ASProtect 2.3 build 04.26 Beta 汉化版 ·Kaspersky Antivirus 6.0.1.312 Beta 汉化版 ·Flash2ASP 1.3 8 精品推荐

8 最新发布

[11.29]

苹果Mac OS安全更新修补22个漏洞

[11.29]

重点焦点Crytek有可能搬家

[11.29]

暴力游戏对人的大脑有一定的影响

[11.29]

Windows正版验证工具继续更新

[11.29]

预测：Vista一年升级率15％胜过XP

[11.29]

PS3版《杀戮地带》耗资巨大

[11.29]

微软批量授权版Vista闹乌龙

[11.29]

Maxthon本周将发布一个2.0过渡版本

[11.29]

Google搜索程序现漏洞，殃及池鱼

[11.29]

小心！Firefox漏洞会导致密码泄漏

[11.29]

安全主题知识普及26关键词之A：反病毒

[11.29]

计算机病毒查杀与安全防范小技巧六则

[11.29]

后门程序留下安全隐患小心不明程序

[11.29]

光华全面升级绿色上网可杀798恶意软

[11.29]

让长篇Word文档中的图片快速显示出来 8 本周热门

[Windows]你的电脑能够运行Windows Vi

11.24

[冲浪宝典]算算你电脑上的软件值多少钱

11.22

[Windows]为Windows启动提速从禁止检

11.24

[软件评测]剑指迅雷！腾迅超级旋风下载

11.22

[软件新闻]Office 2007用户界面永久免费

11.23

[Windows]天堂还是地狱 Vista时代的共

11.24

[软件新闻]高度关注!伪QQOnline-Live初

11.23

[Windows]Windows Vista版本各项功能细

11.23

[软件新闻]XP升级Vista不如改用Mac OS

11.24

[网络动态]热点问题讨论：中国的IP地址

11.25

[软件新闻]想要么？传说中的真正的Vist

11.22

[Windows]亲身体验细探微软WindowsVi

11.22

[Windows]系统健康有备无患给电脑准备

11.23

[黑客技术]揭密黑客网络入侵的十四种实

11.24

[安全动态]小心你的杀毒软件也有可能存

11.23

大文件分段上传

の吟清手记

一段方便的ASP无组件上传程序

User Panel

Categories

Calendar

Recent Articles

Recent Comments

Search

Hot Tags

推荐使用Firefox浏览本站

About me

Links