• 主页

关于文件上传中客户端file控件的问题？高分200相送！

goulin2k 2001-09-28 02:05:22
我在项目中遇到这样一个问题，不打算让用户参与文件上传时用户选文件路径得过程，直接上传隐含指定的文件。我的思路是在窗口事件/form提交时设置好上传路径，然后提交文件到服务器。但是用file控件的方法和属性，始终没有办法设置本地文件路径。
不知各位有何高见，高分200相送！
...全文
83 点赞 收藏 7
写回复
7 条回复
lanying 2001年10月04日
gz
 回复 点赞
feigmin 2001年10月04日
试试这个,兄弟!!
保管好用!

submit.htm

<html><title>example</title>
<body>
<form name="form1" method="post" action="upload.asp" enctype="multipart/form-data">
<input type=file name="file1">
<input type=submit name="submit" value="提交">
</form>
</body>
</html>
upload.asp

<%@ Language=VBScript %>
<%
function binarytoasi(byval varstr)
asi=""
for i=1 to 3
asi=asi&chr(ascb(midb(varstr,i,1)))
next
binarytoasi=asi
end function

formsize=request.totalbytes
formdata=request.binaryread(request.totalbytes ) '获得上传数据
bcrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bcrlf))-1)

Position=instrb(formdata,bcrlf & bcrlf)+4 '上传文件数据开始位
filesize=instrb(Position+1,formdata,divider)-Position-4 '上传文件数据长度
exnamestart=instrb(1,formdata,chrb(46),1)+1
exnameend=instrb(exnamestart,formdata,chrb(34),1)
exname=midb(formdata,exnamestart,exnameend-exnamestart)

set dr=CreateObject("Adodb.Stream")
dr.Mode=3: dr.Type=1:dr.Open
set dr1=CreateObject("Adodb.Stream")
dr1.Mode=3:dr1.Type=1:dr1.Open

dr.Write formdata
dr.Position=Position-1
dr.CopyTo dr1,filesize
dr1.SaveToFile "d:/mailtemp/temp_"&session("userid")&"."&binarytoasi(exname),2 '文件保存
set dr=nothing:set dr1=nothing

%>
 回复 点赞
lxjchengcu 2001年09月28日
<INPUT id=button1 name=button1 type=file value=Button>
 回复 点赞
fanciex 2001年09月28日
編ACTIVEX操縱文件,刪除修改都行.
回复 点赞
goulin2k 2001年09月28日
to balloy：
如果自己作一个控件（类试file的）放在客户端，可不可以提供一下思路？
 回复 点赞
balloy 2001年09月28日
1。你的目的应该是达不到的，出于安去性的考虑，Ie并不允许脚本对<input type="file">赋值（否则我岂不是可以随便上传用户的重要文件？），

2。给分是和参与分相关的

提问给分：提问给分的标准 给分将用掉可用分，所以不能超过可用分，最大给分为300分，但是受参与分限制。 其公式为：最大给分=20+参与分/20
 回复 点赞
goulin2k 2001年09月28日
对不起，不知怎么回事，我只能给到76分（我的可用分有3000分）？
 回复 点赞
发动态
发帖子
ASP
创建于2007-09-28

1.9w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区公告
暂无公告