无组件上传

如果制作不无组件上传啊？？？？？
高手求救啊！

1、建立upfilemovie.asp
<% server.scripttimeout=1900 %>
<%
\'本程序借助第三方组件，并经过redflower加以修改成为“鸿儒影院文件”上传专用程序.
\'使用时请根据情况做简单修改.
& g* r* V- R" mUpFilePath=\"IMGWSF/\" \'上传文件存放目录
6 F# E, z( P* g5 |( l+ A& n* Nfileweb=\"UPLOAD/\"
6 I# b! A$ M$ q) h7 dnameset =1
! M8 P* J8 o9 L* W1 C0 \pathset =0
dim i
- i/ C/ s  J- t* D9 _i=1
8 Z' n5 h9 M) I4 A! I* t; X%>
0 a: C7 t1 l& G  I* @, `<% \'生成文件名函数，根据时间自动生成文件名，可以直接使用。
: u- D4 D3 \! u2 Ofunction makefilename(fname)
5 E4 _5 m. u( v  fname = now()
. E1 R1 h0 ~9 J& J2 |  fname = replace(fname,\"-\",\"\")
  fname = replace(fname,\" \",\"\")
9 e. a/ ]! Y; ?  fname = replace(fname,\":\",\"\")
  makefilename=fname
: e0 ]0 l* b& {2 a. send function
3 N8 X. ~0 {" G! r  b%>
<!--#include FILE=\"upload_5xsoft.inc\"-->
4 o7 ^1 h& _; F. b; T5 s        <%
dim upload,file,formName,iCount
dim url,url1
( @+ f0 @1 W8 l2 s( u. K+ R* Tset upload=new upload_5xSoft \'\'建立上传对象
# X9 t) d8 a* _iCount=0
for each formName in upload.file \'\'列出所有上传了的文件
set file=upload.file(formName)  \'\'生成一个文件对象
( w8 A: Y8 q$ ]1 X' @6 U- v9 r if file.FileSize>0 then         \'\'如果 FileSize > 0 说明有文件数据
  fname = makefilename(now()) & iCount & \".\" & GetExtendName(file.FileName)
; w1 b9 f- f6 z; v. ~0 d) d  file.SaveAs Server.mappath(UpFilePath&fname)   \'\'保存文件
  iCount=iCount+1
: R* z( l5 r/ E8 K5 {4 ?& _  response.write\"<font size=\"\"2\"\">图片\"&i&\"</font> <input><br>\"
  i=i+1
set file=nothing
end if
next
- O2 j6 x6 L0 k/ x& ^set upload=nothing  \'\'删除此对象
sub HtmEnd(Msg)
set upload=nothing
& ]* q) U' W% X: Nend sub
function GetExtendName(FileName)
dim ExtName
ExtName = LCase(FileName)
ExtName = right(ExtName,3)
: P  L' `3 E7 p0 A# y; f3 m" s8 T" PExtName = right(ExtName,3-Instr(ExtName,\".\"))
GetExtendName = ExtName
5 B2 w, }" _  R% Send function
        %>

2、建立upload_5xsoft.inc

1. &lt;SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT&gt;<br>
   
2. dim oUpFileStream
   
3. Class upload_5xSoft
   5 Q  ?5 T& ]5 s3 q- M1 s
4. 
   
5. dim Form,File,Version
   
6.   
   
7. Private Sub Class_Initialize
   
8. dim RequestBinDate,sStart,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo
   
9. dim iFileSize,sFilePath,sFileType,sFormvalue,sFileName
   ) M/ v. z% E# c, d+ h2 w+ k
10. dim iFindStart,iFindEnd
    
11. dim iFormStart,iFormEnd,sFormName
    
12. Version="无组件上传类 Version 0.93"
    
13. set Form=Server.CreateObject("Scripting.Dictionary")
    
14. set File=Server.CreateObject("Scripting.Dictionary")
    
15. if Request.TotalBytes<1 then Exit Sub
    
16. set tStream = Server.CreateObject("adodb.stream")
    
17. set oUpFileStream = Server.CreateObject("adodb.stream")
    
18. oUpFileStream.Type = 1
    % r$ P  F3 \- [* C+ t
19. oUpFileStream.Mode =3
    
20. oUpFileStream.Open
    
21. oUpFileStream.Write  Request.BinaryRead(Request.TotalBytes)
    ; O$ X1 h8 i( H6 K+ F; Q. X
22. Response.Write  "<font size=""2"">页面执行时间："&FormatNumber((Timer() -time1)*1000,3)&"毫秒</font><br>"
    " B# l8 w& U. D8 o6 U
23. oUpFileStream.Position=0
    ; a8 _9 L( ?* ^" E# D0 M
24. RequestBinDate =oUpFileStream.Read
    0 x5 U9 S+ \) U7 J! A
25. iFormStart = 1
    
26. iFormEnd = LenB(RequestBinDate)
    / `$ F$ w! s9 T: I4 F' W# e& g. h
27. bCrLf = chrB(13) & chrB(10)
    
28. sStart = MidB(RequestBinDate,1, InStrB(iFormStart,RequestBinDate,bCrLf)-1)
    9 b3 c( y$ c$ _, B9 [( F
29. iStart = LenB (sStart)
    
30. iFormStart=iFormStart+iStart+1
    8 ~; n. t$ f5 V) d# m4 M
31. while (iFormStart + 10) < iFormEnd
    " N8 H6 ?. v) E$ [7 v& o
32. iInfoEnd = InStrB(iFormStart,RequestBinDate,bCrLf & bCrLf)+3
    5 U  ]) k' M4 O% j' \' P
33. tStream.Type = 1
    
34. tStream.Mode =3
    8 G! `$ v1 K1 ^3 H% ?. M% _
35. tStream.Open
    ' z* B  M! {2 c# G
36. oUpFileStream.Position = iFormStart
    
37. oUpFileStream.CopyTo tStream,iInfoEnd-iFormStart
    
38. tStream.Position = 0
    . O2 U7 a4 r+ Z. K+ F: e
39. tStream.Type = 2
    7 v4 B7 Q1 A$ W0 w$ `# t
40. tStream.Charset ="gb2312"
      {9 _' x7 \5 c! s8 L
41. sInfo = tStream.ReadText      
    
42. \'取得表单项目名称
    
43. iFormStart = InStrB(iInfoEnd,RequestBinDate,sStart)
    + P; s; D. S1 K  o8 p
44. iFindStart = InStr(22,sInfo,"name=""",1)+6
    * q9 Q. o  z; ]# D! Y, z4 Q9 i
45. iFindEnd = InStr(iFindStart,sInfo,"""",1)
    8 B- h, N* m$ q) n# I
46. sFormName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
    
47. \'如果是文件
    9 u% Q6 ~; `5 o* P. F! c  k
48. if InStr (45,sInfo,"filename=""",1) > 0 then
    ) ]) Y/ X! \) G3 ]) Q0 J
49.   set oFileInfo=new FileInfo
    + K3 w5 e6 g+ ?. r( z
50.   \'取得文件名
    # M0 s+ d; D1 o$ ~  E: e* ~; N! I
51.   iFindStart = InStr(iFindEnd,sInfo,"filename=""",1)+10
    % n& `% h8 i" f. H% u8 }
52.   iFindEnd = InStr(iFindStart,sInfo,"""",1)
    
53.   sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
    8 e  Y8 Y8 c) i) Z- o1 i/ b
54.   oFileInfo.FileName=getFileName(sFileName)
    
55.   oFileInfo.FilePath=getFilePath(sFileName)
    3 |# N! _5 z; {6 j7 \9 ?
56.   \'取得文件类型
    
57.   iFindStart = InStr(iFindEnd,sInfo,"Content-Type: ",1)+14
    ( |  Y; ?+ i" _2 y9 Z* @. m  [
58.   iFindEnd = InStr(iFindStart,sInfo,vbCr)
    / y+ x) K8 p6 P9 A2 c
59.   oFileInfo.FileType =Mid (sinfo,iFindStart,iFindEnd-iFindStart)
    
60.   oFileInfo.FileStart =iInfoEnd
    % x# P+ r, b2 }) M. q
61.   oFileInfo.FileSize = iFormStart -iInfoEnd -3
    8 g0 Z2 E( _( k0 t* Y" I
62.   oFileInfo.FormName=sFormName
    
63.   file.add sFormName,oFileInfo
    
64. else
    9 Q9 m: s" k/ H0 R: ]
65. \'如果是表单项目
    1 }1 n$ F. z% X( v1 P0 `
66.   tStream.Close
    
67.   tStream.Type =1
    
68.   tStream.Mode =3
    : n0 G' \- A7 a$ y) J! e2 d' c- |4 _
69.   tStream.Open
    - E" _* L& U- N2 B& z
70.   oUpFileStream.Position = iInfoEnd
    
71.   oUpFileStream.CopyTo tStream,iFormStart-iInfoEnd-3
    3 T* `% s0 a, ?. [8 Y+ p% @8 m
72.   tStream.Position = 0
    - g  b% e# @: X/ e5 ?% x
73.   tStream.Type = 2
    7 p4 j/ o' m8 t/ |
74.   tStream.Charset ="gb2312"
    6 }  d3 i; r" n9 L6 `6 L
75.   sFormvalue = tStream.ReadText
    - ~. h7 a- C* M, f7 y
76.   form.Add sFormName,sFormvalue
    
77. end if
    
78. tStream.Close
    
79. iFormStart=iFormStart+iStart+1
    6 e4 z& I' q" `$ c& m) C5 c
80. wend
    , Y" H* r! _  b, @
81. RequestBinDate=""
    
82. set tStream =nothing
    
83. End Sub
    2 U) B2 U6 H* ?( H) F/ i5 H$ V
84. Private Sub Class_Terminate  
    
85. if not Request.TotalBytes<1 then
    
86. form.RemoveAll
    ; H% M( D; v' M& ?' }" ]
87. file.RemoveAll
    
88. set form=nothing
    ' P8 q0 C8 [3 q; `6 ~5 v. P  N
89. set file=nothing
    
90. oUpFileStream.Close
    % f- _2 H) P, h6 s
91. set oUpFileStream =nothing
    0 c' ]* Z1 N, M
92.   end if
    8 W* U0 N$ L  a4 T, ]  J: a0 W
93. End Sub
    
94.    
    
95. 
    6 I: H3 c  L+ y6 p& x; l6 q
96. Private function GetFilePath(FullPath)
    
97.   If FullPath <> "" Then
    
98.    GetFilePath = left(FullPath,InStrRev(FullPath, "\\"))
    
99.   Else
    9 \8 H- @; K- P/ R! p
100.    GetFilePath = ""
     4 k% U. [+ ^. L, b
101.   End If
     
102. End  function
     
103. 
     ( ]: f/ \9 @; J
104. Private function GetFileName(FullPath)
     
105.   If FullPath <> "" Then
     7 U# \7 F; ?- ~. b4 N2 |6 t
106.    GetFileName = mid(FullPath,InStrRev(FullPath, "\\")+1)
     : t8 w# U! w; M1 d9 t
107.   Else
     
108.    GetFileName = ""
     
109.   End If
     
110. End  function
     
111. End Class
     $ \$ t+ O8 P" W  ?
112. Class FileInfo
     
113.   dim FormName,FileName,FilePath,FileSize,FileType,FileStart
     9 M+ b# j7 l0 x1 A9 e( ^
114.   Private Sub Class_Initialize
     $ z2 e/ I, }7 s' E
115.     FileName = ""
     ! V% `) r. p, }, Y6 W9 b2 `' x9 m
116.     FilePath = ""
     5 X; S0 N( O5 ^; b
117.     FileSize = 0
     , Z- ^7 C+ @- o; O8 q
118.     FileStart= 0
     
119.     FormName = ""
     
120.     FileType = ""
     ) o) C* T9 S8 P$ F; \+ `
121.   End Sub
     6 {+ s0 H* J% _& a; _8 w
122.   
     5 G- h( `# Z0 L6 B$ s# Y, [3 M( O0 \
123. Public function SaveAs(FullPath)
     $ M; c% |, E5 L7 i# c1 U& T
124.     dim oFileStream,ErrorChar,i
     
125.     SaveAs=1
     5 k  O. ?1 t8 E4 k* ~5 R1 X
126.     if trim(fullpath)="" or right(fullpath,1)="/" then exit function
     2 @% |* w/ L/ x* ]& N
127.     set oFileStream=CreateObject("Adodb.Stream")
     
128.     oFileStream.Type=1
     3 R2 d) a  c- ~4 c9 h7 X7 V; E
129.     oFileStream.Mode=3
     7 K" S2 y6 R9 Y: _
130.     oFileStream.Open
     ( m) {/ e6 i1 A# O: ~4 [$ a
131.     oUpFileStream.position=FileStart
     7 T: v" J5 H# Y! s$ ^+ o
132.     oUpFileStream.copyto oFileStream,FileSize
     ; ~& P0 S2 H9 L7 P
133.     oFileStream.SaveToFile FullPath,2
     : c( P) @# S) z- I& c  @
134.     oFileStream.Close
     4 m+ m+ Q2 N" ]  F( t& o
135.     set oFileStream=nothing
     + y  @+ A, ^' Q# t8 u# D
136.     SaveAs=0
     " x0 s8 W! h, Z( k# s0 U" @  K0 k0 j4 b& j
137.   end function
     . k4 N6 _2 ~+ q# z
138. End Class
     
139. <br>&lt;/script&gt;

复制代码

3、建立uploadmovie.asp
<%
upset = 100
%>
7 Y# D& o7 k  ]0 p, d7 V, L( |. D1 q<html>
<head>
1 a" V$ [. ]$ q" k' t<title>鸿儒影院文件上传</title>
/ M5 R' B0 V( }# X5 M
; h8 S9 I. B8 v$ X* C  g2 R! h<link rel=\"stylesheet\" type=\"text/css\" href=\"../css/css.css\">
' q- k6 i; J6 A: q</head>
<body>
. V0 c# N/ d, e! D; N<form>
  <input>
  <div align=\"center\">
/ H  {9 d% n; R4 g% R$ |    <center>
    <table width=\"460\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
0 _0 b9 F' z4 _  ^# Q2 v. e      <tr>
        <td height=\"16\" align=\"left\" valign=\"middle\" bgcolor=\"#e0e0e0\">
. ]% J' m" J4 x" F! _9 @        <div align=\"center\">
          <font size=\"2\"><b>图片上传</b> </font>
        </div>
        </td>
      </tr>
      <tr align=\"left\" valign=\"middle\" bgcolor=\"#eeeeee\">
4 y( |% n) v) I" h        <td bgcolor=\"#FFFFFF\" height=\"1\" valign=\"top\">
7 @  c  \: B; M5 g& S        <table width=\"425\" border=\"0\" cellspacing=\"1\" cellpadding=\"2\" align=\"center\">
          <tr>
            <td width=\"419\">
           

1. &lt;script language="javascript"&gt;<br>
   ) ]* Z; t* o" v* t! }
2.    function setid()
   
3.    {
   
4.    str=\'<br>\';
   + \3 L! k, o4 t+ p6 z" Z! T
5.    if(!window.form1.upcount.value)
   
6.     window.form1.upcount.value=2;
   / x# I6 j$ C3 q4 N- l
7.    if(window.form1.upcount.value><%=upset%>){
   # N, w0 D5 K' h* U6 L: y! b. a
8.    alert("您最多只能同时上传<%=upset%>个文件0");
   6 c' Q% L. {: w2 w
9.    window.form1.upcount.value = <%=upset%>;
   
10.    setid();
    
11.    }
    
12.    else{
    ; \1 }9 B; w# f) a7 U5 p
13.     for(i=1;i<=window.form1.upcount.value;i++)
    
14.       str+=\'<div align="center">图片\'+i+\':<input></div>\';
    
15.    window.upid.innerHTML=str+\'<br>\';}
    3 a, C: f* w, ^/ \3 H4 V
16.    }
    
17.          <br>&lt;/script&gt;

复制代码

            设置上传的个数
            <input>
9 p2 ?$ {  L& e5 N            <input>
            </td>
          </tr>
        </table>
        </td>
      </tr>
) M9 J! t8 W- w1 _. j      <tr align=\"center\" valign=\"middle\">
        <td>
        <div align=\"center\">
5 c- m$ Q( G4 _: s: e! K4 S' {5 |2 g        </div>
        </td>
+ z4 [3 _% q4 ^- L      </tr>
3 b$ [3 j2 x* ^      <tr align=\"center\" valign=\"middle\" bgcolor=\"#eeeeee\">
, a3 n( m, h$ r# i; w        <td bgcolor=\"#FFFFFF\" height=\"28\">
; ~2 H0 c& z+ G# J, N        <input>
2 z+ E1 ~& V* @, x: J' v        <input></td>
      </tr>
      <tr align=\"center\" valign=\"middle\" bgcolor=\"#eeeeee\">
! H( E- K! c9 k' }0 Z+ h        <td height=\"14\" bgcolor=\"#FFFFFF\">　</td>
: ?. b5 _' W$ y1 e' w9 o+ r      </tr>
4 y: j4 c" Z9 j1 }* \    </table>
    </center>
# O& _% n$ l/ D2 i) N$ B  </div>
/ O7 i1 D/ ]% b7 T7 e- G</form>
3 z+ u: a5 J. ]2 T. c& K</body>
</html>

4、建立一个上传文件存放文件夹（我建的是IMGWSF）
1 g  }7 F% M  u$ z, f6 r, Y
% J5 j, v4 ?9 ^" [1 y$ E哈哈。。把这些程序代码copy。。
9 H9 ~/ a" @% u0 |打开服务器，试运行下先。。。。
% s' r! o3 u% F, v! G2 l9 V
嘿嘿。。。一切正常。。。

谢了啊
慢慢研究。。。

<>&lt;%<BR>strFileName= Request.Form(\"file1\")<BR>set fso=Server.CreateObject(\"Scripting.FileSystemObject\")<BR>filename=fso.getfilename(strFileName)<BR>Set objStream = Server.CreateObject(\"ADODB.Stream\") <BR>objStream.Type = 1 <BR>objStream.Mode=3<BR>objStream.Open<BR>objStream.LoadFromFile strFileName<BR>objStream.SaveToFile server.MapPath(\"\\upload\")&amp;\"\\\"&amp;filename,2<BR>objStream.Close<BR>set objStream=nothing<BR>Response.Write \"文件:\"&amp;filename&amp;\"己上传完毕!!!\"<BR>%&gt;</P>
: V/ ]) D- Y/ a2 p* `<>曾经编过的无需第三方组件的源代码,主要运用了,ADODB对象进行流处理,和一些文件处理,希望对你有帮助.</P>

<DIV class=quote><B>以下是引用<I>zfsp</I>在2005-11-12 13:08:21的发言：</B><BR>
" `! [6 W0 n* G% @; b" A<>&lt;%<BR>strFileName= Request.Form(\"file1\")<BR>set fso=Server.CreateObject(\"Scripting.FileSystemObject\")<BR>filename=fso.getfilename(strFileName)<BR>Set objStream = Server.CreateObject(\"ADODB.Stream\") <BR>objStream.Type = 1 <BR>objStream.Mode=3<BR>objStream.Open<BR>objStream.LoadFromFile strFileName<BR>objStream.SaveToFile server.MapPath(\"\\upload\")&amp;\"\\\"&amp;filename,2<BR>objStream.Close<BR>set objStream=nothing<BR>Response.Write \"文件:\"&amp;filename&amp;\"己上传完毕!!!\"<BR>%&gt;</P>
! ]5 m1 b* z4 Y4 d2 L<>曾经编过的无需第三方组件的源代码,主要运用了,ADODB对象进行流处理,和一些文件处理,希望对你有帮助.</P></DIV>
& x- E8 i- {& E4 i! M<>
<>太谢谢了~~~</P>
! E. V% {3 `& A# `) X- t) O9 \<>目前我用的是第三方类，像无惧上传类和仙境等，用得挺方便的，安全性可能也会比较高。。</P>
<>再次谢谢哦，改天实践你的方法~~</P>

<>看不懂怎么办？</P>