asp上传问题，有高手能帮我解决吗？

[sutcok]

在网上找了很久，因为自己的技术非常有限。

现来求救大家啦。

用asp实现个功能，就是：asp页面上有form表单，表单里只有个“上传”按钮。

点击按钮后，自动把本地c:\a.jpg文件上传到服务器的根目录下img文件夹里。

就是想实现这个功能。asp无组件上传的源码里，表单里，都是用户手动选择路径的，file类型的。比如化镜的无组件上传就是。我想把本地路径固定，然后上传到服务器。就是不用选择。

这样的源码应该怎么写，如果没有的话，有没相关的例子源码。

谁能写下源码给我。分全给他。。。。意思就是：点击提交后，自动把C:\A.JPG上传到服务器根目录img上，不用用户选择本地文件路么。。。。。。。。。。。。。。。。。。。

[phpcat]

用风声无组件上传吧。非常好用。

可以去下面这个地址下载：有详细的帮助文档。
http://www.fonshen.com/UpLoadClass/help/help1.htm

首先页面要包含你下载的UPLOADE页面

<!--#include virtual="/system/UpLoadClass.asp"-->

然后你的<form> 要加上一句<form enctype="multipart/form-data">

Set Upload = new Uploadclass
Upload.Charset="UTF-8" '编码格式
Upload.FileType="gif/jpg/jpeg" '允许上传的类型
Upload.MaxSize=204800 '上传文件的大小设置
Upload.SavePath="/img/" '根目录下的img文件夹下
Upload.Open()

'在这里接收数据，譬如说一个text控件的名字为name
name = Upload.form("name") '接收数据要把request.form 改成 Upload.form

Set upload=Nothing

[碧海情天-赵亮]

[Quote=引用楼主 sutcok 的回复:]
我想把本地路径固定，然后上传到服务器。就是不用选择。
[/Quote]
想想浏览器的安全性，就知道这个按正常方法是没门的。
要通过本地浏览器用户控件来改写FILE控件，比较渺茫，要是行早就有了。
只能绕过FILE控件，通过FSO对象来遍历读取指定路径下的文件名，然后再用其它对象来上传二进制数据。
下面是用XML技术上传文件的方法
类型： XML/Biztalk
概述
本文讲解了一个使用XML技术上传文件的例子，使用该方法没有传统方法中的种种限制。 这个例子讲述了如何使用MSXML3.0和ADO Stream对象来实现这种新的上传方法。好处有很多，比如，不需要专用的上传组件。
引言
为了在HTML网页中获得上传功能，在客户端我们可以使用如下格式的FORM：
< FORM NAME= "myForm " ACTION= "TargetURL.asp " ENCTYPE= "multipart/form-data "METHOD= "post " >
< INPUT TYPE= "file " NAME= "myFile " >
< INPUT TYPE= "submit " VALUE= "Upload File " >
< /FORM >
这种方案在客户端和服务器端的使用都有很多限制。首先，我们必须使用POST方法，因为GET方法无法处理这样的表单数据。并且，没有什么方法可以在不使用表单的情况下引发一个POST动作。把数据发送给表单处理程序后，浏览器将会把处理程序作为新页面加载，然后使用者会看到一个不讨人喜欢的页面转换过程。
ENCTYPE属性为表单定义了MIME编码方式，上传文件的表单的ENCTYPE属性必须使用“multipart/form-data”。把这个属性设置为“multipart/form-data”就创建了一个与传统结构不同的POST缓冲区（复合结构），ASP的Request对象无法访问这样的表单内容。所以，我们可以使用Request.binaryRead方法来访问这些数据，但是无法使用脚本语言来完成这一切。Request.binaryRead方法返回一个VTarray型数据（只包含无符号一字节字符的Variant型数组）。但是脚本语言只能处理Variant型数据。为了解决这个问题，只能使用专用的ASP上传组件，或者ISAPI扩展程序，比如CPSHOST.DLL。这是设计上的限制。
新的上传方案
需要按照如下步骤操作。
客户端：
使用MSXML 3.0创建一个XML文档
创建一个针对二进制内容的XML节点
使用ADO Stream object将上传的文件数据放入该节点
使用XMLHTTP对象把这个XML文档发送给Web服务器
服务器端：
从Request对象中读出XML文档读出二进制节点中的数据并且存储到服务器上的文件中。当然，我们也可以将其存储到数据库的BLOB型字段中。
在解释这段代码之前，我们可以对这个方案进行一些思考。
对XML的思考
XML格式支持很多数据类型，比如numeric, float, character等等。很多作者将XML定义为ASCII格式，但是我们不能忽视，XML技术还可以使用“bin.base64”数据类型来描述二进制信息。这个特性在MS XML3.0解析器重得到完全的支持，但是目前还需要一些特别设置。该对象提供一些可以对二进制数据进行完全控制的属性：
obj_node.dataType - 该可读写的属性定义了特定节点的数据类型。MSXML解析器支持更多的数据类型（参见MSDN：http://msdn.microsoft.com/library/psdk/xmlsdk/xmls3z1v.htm）
对于二进制数据，我们可以使用“bin.base64”类型。
obj_node.nodeTypedValue - 该可读写属性包含了按照制定类型表示的指定节点的数据。
我们可以创建一个包含多个bin.base64类型节点的XML文档，节点中包含上传的文件。这点特性可以使用一个POST一次上传多个文件。
我们可以使用XMLHttpRequest对象和POST方法发送一个XML文档给Web服务器。该对象为HTTP服务器提供了客户端协议支持，允许在Web服务器上发送和接受MS XMLDOM对象。XMLHttpRequest是Internet Explorer 5内置的COM对象（不需要定制安装），并且发送完毕后无需转换页面。
对ADO Stream对象的思考
我们可以在客户端创建一个包含一个或者多个二进制节点的XML文档。我们还必须把文件内容填入节点中。但是很不幸，脚本语言不能访问本地文件系统，并且Scripting.FileSystem对象（是Win32系统的内置对象）到目前为止还不能访问二进制文件。这是设计上的限制。所以我们需要另外找一个可以提供对本地二进制文件的访问的COM对象。
ADO Stream对象（MDAC 2.5中的组件）提供了读、写和管理二进制流数据的手段。字节流的内容可以是文本，或者二进制数据，并且没有容量上的限制。在ADO 2.5中，Microsoft对Stream对象的介绍不属于ADO对象结构的任何一层，所以，我们无需捆绑即可使用该对象。
本文中使用Stream对象来访问文件内容，再把内容存入XML节点。
客户端
以下示例代码使用Stream和MSXML对象完成文件上传动作。
< HTML >
< HEAD > < TITLE > File Send < /TITLE > < /HEAD >
< BODY >
< INPUT id=btn_send name= "btn_send " type=button value= "FILE SEND " >
< DIV id=div_message > Ready
< /BODY >
< /HTML >
< SCRIPT LANGUAGE=JavaScript >
// 上传函数
function btn_send.onclick()
{
// 创建 ADO-stream 对象
var ado_stream = new ActiveXObject( "ADODB.Stream ");
// 创建包含默认头信息和根节点的 XML文档
var xml_dom = new ActiveXObject( "MSXML2.DOMDocument ");
xml_dom.loadXML( ' ');
// 指定数据类型
xml_dom.documentElement.setAttribute( "xmlns:dt ", "urn:schemas-microsoft-com:datatypes ");
// 创建一个新节点，设置其为二进制数据节点
var l_node1 = xml_dom.createElement( "file1 ");
l_node1.dataType = "bin.base64 ";
// 打开Stream对象，读源文件
ado_stream.Type = 1; // 1=adTypeBinary
ado_stream.Open();
ado_stream.LoadFromFile( "c:\\tmp\\myfile.doc ");
// 将文件内容存入XML节点
l_node1.nodeTypedValue = ado_stream.Read(-1); // -1=adReadAll
ado_stream.Close();
xml_dom.documentElement.appendChild(l_node1);
// 可以创建多个二进制节点，一次上传多个文件
// 把XML文档发送到Web服务器
var xmlhttp = new ActiveXObject( "Microsoft.XMLHTTP ");
xmlhttp.open( "POST ", "./file_recieve.asp ",false);
xmlhttp.send(xml_dom);
// 显示服务器返回的信息
div_message.innerHTML = xmlhttp.ResponseText;
}
< /SCRIPT >
服务器端
以下代码使用相同的对象提供服务器端的上传处理功能。
< %@ LANGUAGE=VBScript% >
< % Option Explicit
Response.Expires = 0
' 定义变量和对象。
dim ado_stream
dim xml_dom
dim xml_file1
' 创建 Stream 对象
set ado_stream = Server.CreateObject( "ADODB.Stream ")
' 从Request对象创建 XMLDOM对象
set xml_dom = Server.CreateObject( "MSXML2.DOMDocument ")
xml_dom.load(request)
' 读出包含二进制数据的节点
set xml_file1 = xml_dom.selectSingleNode( "root/file1 ")
' 打开Stream对象，把数据存入其中
ado_stream.Type = 1 ' 1=adTypeBinary
ado_stream.open
ado_stream.Write xml_file1.nodeTypedValue
' 文件存盘
ado_stream.SaveToFile "c:\tmp\upload1.doc ",2 ' 2=adSaveCreateOverWrite
ado_stream.close
' 销毁对象
set ado_stream = Nothing
set xml_dom = Nothing
' 向浏览器返回信息
Response.Write "Upload successful! "
% >
也可以使用Stream对象把数据放到数据库的BLOB型字段中。
使用该方法的益处
不引起页面转换。
不需要专用组件。
可同时上传多个文件。
这段程序是纯脚本写成的，可以很容易的插入到其他代码中，而不需要任何HTML对象的配合。还可以把这个逻辑在任何支持COM标准的语言中实现。
系统安全考虑
该方法只能使用于内部网络，因为它需要IE5的安全级别设置为“低”。必须：
允许脚本和ActiveX对象。该设置允许浏览器执行类似 "myobj = new activexobject(...) "的 JScript语句；
必须允许穿越域访问数据源。这个设置允许在客户端使用Stream对象。还必须在服务器和客户端都安装MS XML DOM 3.0 和MDAC 2.5


除此之外，就得写C/S的工具，然后在网页里用ACTIVEX控件的方式进行调用了。

[phpcat]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<% Response.CodePage=65001%>
<% Response.Charset="UTF-8" %>
<!--#include file="UpLoadClass.asp"-->
<%
Dim action:action=request.querystring("action")
If CStr(action)="yes" Then
Dim upload,name
Set Upload = new Uploadclass
Upload.Charset="UTF-8" '编码格式
Upload.FileType="gif/jpg/jpeg" '允许上传的类型
Upload.MaxSize=204800 '上传文件的大小设置
Upload.SavePath="/img/" '根目录下的img文件夹下
Upload.Open()

'在这里接收数据，譬如说一个text控件的名字为name
name = Upload.form("name") '接收数据要把request.form 改成 Upload.form
Set upload=Nothing
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>上传到测试</title>
</head>
<body>
<form name="form" method="post" action="index.asp?action=yes" enctype="multipart/form-data">
<input name="name" type="file" />
<input type="submit" name="Submit" value="提交" />
</form>
</body>
</html>

帮你测试了一下，上面的代码可以正常运行。根目录下“img”文件夹要已经建立好。

[sutcok]

按照你上面说的做,没用.代码如下:


<!--#include virtual="/system/UpLoadClass.asp"-->
<%
Set Upload = new Uploadclass
'Upload.Charset="UTF-8" '编码格式
Upload.FileType="gif/jpg/jpeg" '允许上传的类型
Upload.MaxSize=204800 '上传文件的大小设置
Upload.SavePath="/img/" '根目录下的img文件夹下
Upload.Open()

'在这里接收数据，譬如说一个text控件的名字为name
name = Upload.form("name") '接收数据要把request.form 改成 Upload.form

Set upload=Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<form name="form" method="post" action="" enctype="multipart/form-data">
<input name="name" type="text" id="name">
<label>
<input type="submit" name="Submit" value="提交">
</label>
</form>
</body>
</html>

我在text中输入路径,提交后,页面不变...没效果.

[sutcok]

5楼的，你还没看明白我要的功能吗？

我是要固定本地文件路径。然后上传。。

你这个是要用户手动选择本地文件路径。然后再上传。

<input name="name" type="file" /> file类型是要用户选择的。。。我是要固定本地路径的。

[sutcok]

4楼的，我想问下。如果表单里的file控件，改成text控件，这样能行吗？
或者这样，第一次用户选择本地路径，提交后，把这次的提交过程存入一个session中，下次按提交就是把这个过程重新提交一次。

[sutcok]

还想问下，file类型能有默认值吗？