无组件上传

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

1、建立upfilemovie.asp
  u& k: Y! e% X$ U! H9 m  m4 S3 h<% server.scripttimeout=1900 %>
$ M! ]/ ^2 m6 L# R7 L<%
\'本程序借助第三方组件，并经过redflower加以修改成为“鸿儒影院文件”上传专用程序.
2 j' {1 `' h6 C! Y( \' G( M\'使用时请根据情况做简单修改.
UpFilePath=\"IMGWSF/\" \'上传文件存放目录
fileweb=\"UPLOAD/\"
nameset =1
+ D/ {% e1 @/ @0 {4 _pathset =0
dim i
- ]+ D$ h$ B/ A2 |i=1
%>
<% \'生成文件名函数，根据时间自动生成文件名，可以直接使用。
function makefilename(fname)
  fname = now()
  fname = replace(fname,\"-\",\"\")
! J- {+ H0 K" H. H8 P" ^0 @  fname = replace(fname,\" \",\"\")
  fname = replace(fname,\":\",\"\")
) [. A7 x% e7 u7 E$ d! F  makefilename=fname
end function
+ R4 U# O* z  f0 P/ d%>
1 G# Q- M% e/ ?% X  o: @- S<!--#include FILE=\"upload_5xsoft.inc\"-->
        <%
dim upload,file,formName,iCount
dim url,url1
set upload=new upload_5xSoft \'\'建立上传对象
iCount=0
for each formName in upload.file \'\'列出所有上传了的文件
set file=upload.file(formName)  \'\'生成一个文件对象
if file.FileSize>0 then         \'\'如果 FileSize > 0 说明有文件数据
5 w6 Y& P9 Q1 @& \/ m0 ~& a  fname = makefilename(now()) & iCount & \".\" & GetExtendName(file.FileName)
  file.SaveAs Server.mappath(UpFilePath&fname)   \'\'保存文件
8 _  h" t: U8 D  iCount=iCount+1
$ i# S2 O# E2 q. ^$ M  response.write\"<font size=\"\"2\"\">图片\"&i&\"</font> <input><br>\"
  i=i+1
set file=nothing
- c% b5 G+ ]4 k3 O5 d- Bend if
next
set upload=nothing  \'\'删除此对象
sub HtmEnd(Msg)
4 T4 d' H# z- l! i) Y7 B set upload=nothing
end sub
  g  l) {7 X& {: x9 ]! A3 dfunction GetExtendName(FileName)
dim ExtName
: i3 W; I" Z" H6 }7 F8 R- ^ExtName = LCase(FileName)
' ]3 d3 w+ t( T) ~. D7 A- L) bExtName = right(ExtName,3)
ExtName = right(ExtName,3-Instr(ExtName,\".\"))
GetExtendName = ExtName
( Z, J- y  F) a6 }5 ?0 E- Bend function
1 z: p7 {% I! C6 O$ m* G  F6 s        %>

2、建立upload_5xsoft.inc
. K- H6 H2 J: \8 `) G6 `

1. &lt;SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT&gt;<br>
   
2. dim oUpFileStream
   
3. Class upload_5xSoft
   
4. 
   
5. dim Form,File,Version
   
6.   
   
7. Private Sub Class_Initialize
   ) [: o, t6 J, [& \# `( O' j. R
8. dim RequestBinDate,sStart,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo
   . K3 A* C+ A+ |9 m- l& R5 j
9. dim iFileSize,sFilePath,sFileType,sFormvalue,sFileName
   
10. dim iFindStart,iFindEnd
    9 v7 q) y$ R, @; C8 |) P" ]
11. dim iFormStart,iFormEnd,sFormName
    ( y$ v  I- [' x; Y, z0 J5 N
12. Version="无组件上传类 Version 0.93"
    
13. set Form=Server.CreateObject("Scripting.Dictionary")
    3 v- h& F4 e- X3 u
14. set File=Server.CreateObject("Scripting.Dictionary")
    - M  K$ M7 g. O# J6 C( Q
15. if Request.TotalBytes<1 then Exit Sub
    
16. set tStream = Server.CreateObject("adodb.stream")
    ) E8 D( b1 m7 [, p( m2 u4 ?- ?
17. set oUpFileStream = Server.CreateObject("adodb.stream")
    ! R0 h  [# |6 J8 y' J
18. oUpFileStream.Type = 1
    
19. oUpFileStream.Mode =3
    ; C' w7 m6 E6 p9 m3 p  N0 H, K
20. oUpFileStream.Open
    5 L! M4 {: H: w, Y5 |: @3 d6 ?
21. oUpFileStream.Write  Request.BinaryRead(Request.TotalBytes)
    
22. Response.Write  "<font size=""2"">页面执行时间："&FormatNumber((Timer() -time1)*1000,3)&"毫秒</font><br>"
    
23. oUpFileStream.Position=0
    
24. RequestBinDate =oUpFileStream.Read
    
25. iFormStart = 1
    
26. iFormEnd = LenB(RequestBinDate)
    
27. bCrLf = chrB(13) & chrB(10)
    
28. sStart = MidB(RequestBinDate,1, InStrB(iFormStart,RequestBinDate,bCrLf)-1)
    
29. iStart = LenB (sStart)
    
30. iFormStart=iFormStart+iStart+1
    
31. while (iFormStart + 10) < iFormEnd
    
32. iInfoEnd = InStrB(iFormStart,RequestBinDate,bCrLf & bCrLf)+3
    3 M. N9 t) u0 a) s9 E: V( L$ E# E  d
33. tStream.Type = 1
    8 m3 b1 }5 j' |4 q
34. tStream.Mode =3
    
35. tStream.Open
    
36. oUpFileStream.Position = iFormStart
    
37. oUpFileStream.CopyTo tStream,iInfoEnd-iFormStart
    
38. tStream.Position = 0
    
39. tStream.Type = 2
    
40. tStream.Charset ="gb2312"
    & C- ?; k0 ]: w
41. sInfo = tStream.ReadText      
    
42. \'取得表单项目名称
    
43. iFormStart = InStrB(iInfoEnd,RequestBinDate,sStart)
    - R3 B0 T* i* p7 v. t& X: z
44. iFindStart = InStr(22,sInfo,"name=""",1)+6
    4 [' j  q0 \* ~9 O' Y/ V" B
45. iFindEnd = InStr(iFindStart,sInfo,"""",1)
    
46. sFormName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
    , x$ V& ^$ m. G& }0 d
47. \'如果是文件
    
48. if InStr (45,sInfo,"filename=""",1) > 0 then
    : ]9 E0 E: M! j$ W' O
49.   set oFileInfo=new FileInfo
    8 K1 y% Z% [4 A# {3 L+ B: ^
50.   \'取得文件名
    , ?; {* l- {2 Z
51.   iFindStart = InStr(iFindEnd,sInfo,"filename=""",1)+10
    
52.   iFindEnd = InStr(iFindStart,sInfo,"""",1)
    + S% h8 x  z8 I) N" i( L
53.   sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
    . j9 g. n1 p* J# w. L+ }
54.   oFileInfo.FileName=getFileName(sFileName)
    
55.   oFileInfo.FilePath=getFilePath(sFileName)
    ) e$ \  Q4 Z& ^6 f
56.   \'取得文件类型
    
57.   iFindStart = InStr(iFindEnd,sInfo,"Content-Type: ",1)+14
    2 G  e1 c' e8 S" a+ K/ ^. e
58.   iFindEnd = InStr(iFindStart,sInfo,vbCr)
    ' M5 ]; z! l# k2 m  v
59.   oFileInfo.FileType =Mid (sinfo,iFindStart,iFindEnd-iFindStart)
    
60.   oFileInfo.FileStart =iInfoEnd
    
61.   oFileInfo.FileSize = iFormStart -iInfoEnd -3
    
62.   oFileInfo.FormName=sFormName
    
63.   file.add sFormName,oFileInfo
    
64. else
    
65. \'如果是表单项目
    
66.   tStream.Close
    
67.   tStream.Type =1
    2 y! N" m; j; n
68.   tStream.Mode =3
    ( [5 [+ `$ _. C9 s- {0 g3 d; v$ X
69.   tStream.Open
      s& {5 j4 u! Z) e# B' q& E' |
70.   oUpFileStream.Position = iInfoEnd
    ; k; F" g1 O7 `" d
71.   oUpFileStream.CopyTo tStream,iFormStart-iInfoEnd-3
    2 e4 H! H  I. }$ H( }
72.   tStream.Position = 0
    ( |& V& e# o3 Z( x% ~2 X$ ?( P: D+ F
73.   tStream.Type = 2
    
74.   tStream.Charset ="gb2312"
    
75.   sFormvalue = tStream.ReadText
    
76.   form.Add sFormName,sFormvalue
    
77. end if
    " Z; f! d; |0 |# r
78. tStream.Close
    
79. iFormStart=iFormStart+iStart+1
    
80. wend
    
81. RequestBinDate=""
    
82. set tStream =nothing
    
83. End Sub
    : [7 e1 a+ B2 e- M5 z/ Y; a7 P
84. Private Sub Class_Terminate  
    6 q) F, X* U2 ]9 L
85. if not Request.TotalBytes<1 then
    * P$ |+ Z( ^' l8 D/ R7 h1 d
86. form.RemoveAll
    
87. file.RemoveAll
    : Y7 H1 X8 W& t& a# d
88. set form=nothing
    
89. set file=nothing
    0 W' }$ @% `! V" B0 H' E8 a
90. oUpFileStream.Close
    
91. set oUpFileStream =nothing
    " Q5 w: R/ R6 E1 X* z7 S
92.   end if
    
93. End Sub
    
94.    
    
95. 
    5 U5 u7 q# g! K5 Q
96. Private function GetFilePath(FullPath)
    9 A  n% `- Y- }9 _
97.   If FullPath <> "" Then
    
98.    GetFilePath = left(FullPath,InStrRev(FullPath, "\\"))
    
99.   Else
    
100.    GetFilePath = ""
     
101.   End If
     
102. End  function
     
103. 
     9 f" {; I2 V% R: }9 u1 J
104. Private function GetFileName(FullPath)
     1 e% s8 H9 U$ k, l0 h) a; P
105.   If FullPath <> "" Then
     / }- L/ T! e$ t7 A4 w
106.    GetFileName = mid(FullPath,InStrRev(FullPath, "\\")+1)
     " m# {! c% I0 a, F* T) T0 I
107.   Else
     
108.    GetFileName = ""
     
109.   End If
     % [4 ?( @& p8 O5 p$ z/ V
110. End  function
     
111. End Class
     
112. Class FileInfo
     
113.   dim FormName,FileName,FilePath,FileSize,FileType,FileStart
     * F3 u$ ~! h( }* w5 O
114.   Private Sub Class_Initialize
     * V* p4 W! i) [' i! z" U* C9 Z
115.     FileName = ""
     8 e# x" \+ |5 f# W4 k7 I
116.     FilePath = ""
     ! o1 y  {* o5 P7 G0 e- Z% M& |
117.     FileSize = 0
     
118.     FileStart= 0
     / z# K. ^4 B# l. l$ C9 `
119.     FormName = ""
     5 J) E& n3 l8 W! d: W  T) E
120.     FileType = ""
     
121.   End Sub
     ; C7 j+ C+ X- _) v* |5 d& h& |: ?
122.   
     0 {3 J# `/ \; q' \
123. Public function SaveAs(FullPath)
     . C$ M% }1 Y* f
124.     dim oFileStream,ErrorChar,i
     0 t4 s" m9 h- ]
125.     SaveAs=1
     
126.     if trim(fullpath)="" or right(fullpath,1)="/" then exit function
     % J6 V3 t. L# t& ^/ E& ]3 P6 ^" n
127.     set oFileStream=CreateObject("Adodb.Stream")
     $ F) J' U  n" Q' Y5 _4 z% \! c* z
128.     oFileStream.Type=1
     & x5 E7 @* u/ {3 ^9 d
129.     oFileStream.Mode=3
     1 s* {4 l$ L6 U0 {
130.     oFileStream.Open
     : m2 n, d, t; R9 y) m
131.     oUpFileStream.position=FileStart
     
132.     oUpFileStream.copyto oFileStream,FileSize
     9 t  A' M, M% @' c1 b, U3 L) Q% C4 _
133.     oFileStream.SaveToFile FullPath,2
     
134.     oFileStream.Close
     
135.     set oFileStream=nothing
     
136.     SaveAs=0
     
137.   end function
     2 k. a1 |  e; x. l0 b9 F: c
138. End Class
       J' E  D( v$ l$ f
139. <br>&lt;/script&gt;

复制代码

3、建立uploadmovie.asp
" S3 C: |* g; W6 l<%
upset = 100
%>
<html>
. E' o7 ~9 O- A( j( D" ~0 N<head>
<title>鸿儒影院文件上传</title>

<link rel=\"stylesheet\" type=\"text/css\" href=\"../css/css.css\">
</head>
* U7 Z$ J) E+ y' H/ o<body>
<form>
  <input>
- @3 {, p- g3 W0 a  <div align=\"center\">
9 i# J* t% ]4 ^. P. v2 H4 }* ~" o    <center>
3 R/ P4 P. G  }    <table width=\"460\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
" O1 i2 W! B' ?( ]6 Z5 o) G' v) k& ^      <tr>
8 S) c. A+ o, f" Z% n( X+ X        <td height=\"16\" align=\"left\" valign=\"middle\" bgcolor=\"#e0e0e0\">
; H3 z. W; ]3 j        <div align=\"center\">
& l- |) J/ _/ V8 A          <font size=\"2\"><b>图片上传</b> </font>
        </div>
+ {+ `8 O3 r7 f: Q' A+ F        </td>
      </tr>
2 z* x  P5 z( `- I7 V0 [; ?      <tr align=\"left\" valign=\"middle\" bgcolor=\"#eeeeee\">
7 L0 F, R( n9 }. l4 {" ~        <td bgcolor=\"#FFFFFF\" height=\"1\" valign=\"top\">
' d% \' p+ ]# c; [) o# }        <table width=\"425\" border=\"0\" cellspacing=\"1\" cellpadding=\"2\" align=\"center\">
          <tr>
            <td width=\"419\">
           

1. &lt;script language="javascript"&gt;<br>
   
2.    function setid()
   
3.    {
   , _* K  K  ^) N) J1 U- ~- J
4.    str=\'<br>\';
   
5.    if(!window.form1.upcount.value)
   9 R& k" \+ ?1 C$ I5 z
6.     window.form1.upcount.value=2;
   ; @+ `: ~- g( X4 W3 d
7.    if(window.form1.upcount.value><%=upset%>){
   
8.    alert("您最多只能同时上传<%=upset%>个文件0");
   
9.    window.form1.upcount.value = <%=upset%>;
   7 J; ^% X. m& ~$ @# p% p: b
10.    setid();
    
11.    }
    
12.    else{
    
13.     for(i=1;i<=window.form1.upcount.value;i++)
    
14.       str+=\'<div align="center">图片\'+i+\':<input></div>\';
    1 B  \: _3 b: G% o- F
15.    window.upid.innerHTML=str+\'<br>\';}
    
16.    }
    . I" C9 ]& {' `, G
17.          <br>&lt;/script&gt;

复制代码

' K. {$ K7 V" g5 {! h            设置上传的个数
0 `! e: N3 J, ^9 j& [( M0 H+ C            <input>
            <input>
            </td>
          </tr>
: s0 g, S, U- _0 n! I        </table>
9 P3 N( X1 y  }1 z4 c) L& b        </td>
% E% R9 M/ U8 ^7 ?3 [      </tr>
      <tr align=\"center\" valign=\"middle\">
        <td>
        <div align=\"center\">
( \4 d  e- i/ B- ~# H' d' N# e        </div>
) z: A/ b3 f6 O! y0 N5 D        </td>
      </tr>
. R( s" C3 G1 R5 Z( T; x  a& v      <tr align=\"center\" valign=\"middle\" bgcolor=\"#eeeeee\">
" y; Z& U& b- v        <td bgcolor=\"#FFFFFF\" height=\"28\">
) u& @  P6 Y: `- `, [        <input>
        <input></td>
      </tr>
      <tr align=\"center\" valign=\"middle\" bgcolor=\"#eeeeee\">
% k( I8 b% d- a! {3 q) v        <td height=\"14\" bgcolor=\"#FFFFFF\">　</td>
      </tr>
    </table>
4 [0 p( `) `3 Q  C4 O    </center>
  </div>
* n" _% y+ p/ M& J9 C/ U# Y7 @% _</form>
</body>
" b5 r- _/ d/ f4 y8 B6 L9 F9 M9 ^</html>

4、建立一个上传文件存放文件夹（我建的是IMGWSF）

, ^! v  I& r" w  k+ {. v0 S+ G, P哈哈。。把这些程序代码copy。。
! d( e$ O* C+ F1 U( \打开服务器，试运行下先。。。。
' o+ H$ R0 P2 \" w
嘿嘿。。。一切正常。。。

谢了啊
6 v: \5 p9 b6 X) v9 L5 K慢慢研究。。。

<>&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>
) A7 G$ Z, z6 ~+ E+ @6 C4 e<>曾经编过的无需第三方组件的源代码,主要运用了,ADODB对象进行流处理,和一些文件处理,希望对你有帮助.</P>

<DIV class=quote><B>以下是引用<I>zfsp</I>在2005-11-12 13:08:21的发言：</B><BR>
<>&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>
<>曾经编过的无需第三方组件的源代码,主要运用了,ADODB对象进行流处理,和一些文件处理,希望对你有帮助.</P></DIV>
<>
<>太谢谢了~~~</P>
2 l7 Z; {4 e5 g/ g* e# {5 k7 h7 ~3 L<>目前我用的是第三方类，像无惧上传类和仙境等，用得挺方便的，安全性可能也会比较高。。</P>
<>再次谢谢哦，改天实践你的方法~~</P>

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