【原创】jpg图片无组件上传『ASP』

[这个贴子最后由默读忧伤在 2005/07/05 05:11pm 第 1 次编辑] 代码如下：

<%
';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';
';此组件仅使用于上传JPG图片
';Power BY [ LoveTea ]
';loveteamsn@hotmail.com
';请勿删除本信息
';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';
';显式声明变量。不声明，就出错。
option explicit
on error resume next
if request.totalbytes<1 then
%>
<form method="post" action="index.asp" enctype="multipart/form-data">
<label>
<input type="file" name="file1" />
</label>
<br />
<input type="text" name="filename" value="default filename"/>
<br />
<input type="submit" value="Submit"/>
<input type="reset" value="Reset"/>
</form>
<%
Else
const write_file=true
response.buffer=true
';分析数据。格式固定，自己研究。
dim formsize,formdata,bncrlf,divider,datastart,datalength,mydata
formdata=request.binaryread(request.totalbytes) ';取得数据流
bncrlf=chrB(13)&chrB(10) ';这个是回车键
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1) ';取得分界线
datastart=instrb(formdata,divider)
mydata=midb(formdata,datastart) ';取得截取范围
if write_file then
';下面开始写文件。注意stream用法。
dim objstream,objstream2
set objstream=server.createobject("adodb.stream")
set objstream2=server.createobject("adodb.stream")
objstream.type=1
objstream.open
objstream2.type=1
objstream2.open
';截取数据。
objstream.write formdata
objstream.position=datastart-1
objstream.copyto objstream2
';保存文件
randomize
objstream2.savetofile "f:\www\" & Rnd() & ".jpg",2
objstream.close
objstream2.close
set objstream=nothing
set objstream2=nothing
end if
%>
<center><a href=http://127.0.0.1/index.asp>Test Again</a></center>
<% End if %>

复制代码

高风亮节 该用户已被删除

沙发

高风亮节发表于 2005-7-5 23:18 | 只看该作者

【原创】jpg图片无组件上传『ASP』

I服了YOU！

TOP

☆一往情深☆ 该用户已被删除

板凳

☆一往情深☆发表于 2005-7-9 20:31 | 只看该作者

【原创】jpg图片无组件上传『ASP』

呵呵,楼上的,你可以学啊,我先说说,这个意思吧,不对还请大家指教啊! 首先是他自己的说明,也就是他写的, 然后是强制声明变量,就在任何错误的时候都执行下面的语句,还有判断是不是存在字节request.totalbytes这个就是有多少个字节大于就转向. 他下面的%> <% 应好理解吧,就是让用户填写文件名和这个提交给谁,给这个 action="index.asp"网页下面就是index.asp代码好了,我先说到这,有事了,下了