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

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

1. <%
2. ';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';
3. ';此组件仅使用于上传JPG图片
4. ';Power BY [ LoveTea ]
5. ';loveteamsn@hotmail.com
6. ';请勿删除本信息
7. ';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';
8. ';显式声明变量。不声明，就出错。
9. option explicit
10. on error resume next
11. if request.totalbytes<1 then
12. %>
13. <form method="post" action="index.asp" enctype="multipart/form-data">
14. <label>
15. <input type="file" name="file1" />
16. </label>
17. <br />
18. <input type="text" name="filename" value="default filename"/>
19. <br />
20. <input type="submit" value="Submit"/>
21. <input type="reset" value="Reset"/>
22. </form>
23. <%
24. Else
25. const write_file=true
26. response.buffer=true
27. ';分析数据。格式固定，自己研究。
28. dim formsize,formdata,bncrlf,divider,datastart,datalength,mydata
29. formdata=request.binaryread(request.totalbytes) ';取得数据流
30. bncrlf=chrB(13)&chrB(10) ';这个是回车键
31. divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1) ';取得分界线
32. datastart=instrb(formdata,divider)
33. mydata=midb(formdata,datastart) ';取得截取范围
34. if write_file then
35. ';下面开始写文件。注意stream用法。
36. dim objstream,objstream2
37. set objstream=server.createobject("adodb.stream")
38. set objstream2=server.createobject("adodb.stream")
39. objstream.type=1
40. objstream.open
41. objstream2.type=1
42. objstream2.open
43. ';截取数据。
44. objstream.write formdata
45. objstream.position=datastart-1
46. objstream.copyto objstream2
47. ';保存文件
48. randomize
49. objstream2.savetofile "f:\www\" & Rnd() & ".jpg",2
50. objstream.close
51. objstream2.close
52. set objstream=nothing
53. set objstream2=nothing
54. end if
55. %>
56. <center><a href=http://127.0.0.1/index.asp>Test Again</a></center>
57. <% End if %>

复制代码

久木 如果,我要是版主,我一定删了你的贴,你在灌水,请修正你的错误,

呵呵,楼上的,你可以学啊,我先说说,这个意思吧,不对还请大家指教啊! 首先是他自己的说明,也就是他写的, 然后是强制声明变量,就在任何错误的时候都执行下面的语句,还有判断是不是存在字节request.totalbytes这个就是有多少个字节大于就转向. 他下面的%>

<% 应好理解吧,就是让用户填写文件名和这个提交给谁,给这个 action="index.asp"网页 下面就是index.asp代码 好了,我先说到这,有事了,下了

I服了YOU！