<% Dim ExtName,UpLoadAll_a,FormStream_h,UploadStream_c,FormDataAll_d Dim CrLf_e,FormStart_f,FormEnd_g,FormStreamText_i,FileName_j,SavePath Dim FileType,i,SaveFile,k,L,SaveFileName,Saver ExtName = "jpg,gif,bmp,txt,xls,doc,rar,asp,kmz,mp4,ppt" '*****************允许扩展名 UpLoadAll_a = Request.TotalBytes '*********************************取得客户端全部内容的长度 If(UpLoadAll_a>0) Then if UpLoadAll_a>50000000 then Response.write "File too big, Forbided " Response.write "File should small than 47.7MB " Response.write "" Response.write" " Response.End End if Set UploadStream_c = Server.CreateObject("ADODB.Stream") UploadStream_c.Type = 1 UploadStream_c.Open UploadStream_c.Write Request.BinaryRead(UpLoadAll_a) UploadStream_c.Position = 0 FormDataAll_d = UploadStream_c.Read CrLf_e = chrB(13)&;chrB(10) FormStart_f = InStrB(FormDataAll_d,CrLf_e) FormEnd_g = InStrB(FormStart_f+1,FormDataAll_d,CrLf_e) Set FormStream_h = Server.Createobject("ADODB.Stream") FormStream_h.Type = 1 FormStream_h.Open UploadStream_c.Position = FormStart_f + 1 UploadStream_c.CopyTo FormStream_h,FormEnd_g-FormStart_f-3 FormStream_h.Position = 0 FormStream_h.Type = 2 FormStream_h.CharSet = "GB2312" FormStreamText_i = FormStream_h.Readtext FormStream_h.Close FileName_j = Mid(FormStreamText_i,InstrRev(FormStreamText_i,"\")+1,FormEnd_g)
Select Case UCase(right(FileName_j,4)) '**************************保存路径 Case ".ASP", ".ASA", "ASPX", "ASAX", ".MDB" Response.Write "禁止上传!" Response.End Case ".XLS",".DOC",".RAR",".TXT",".PPT" SavePath = "doc" Case ".JPG",".GIF",".BMP" if len(FileName_j)=15 then FileName_j=left(FileName_j,Len(FileName_j)-4)&;".jpg" SavePath = "pic" else SavePath = "Upload" End if Case else SavePath = "file" End Select
If Right(SavePath,1) <>"/" Then SavePath=SavePath&;"/" '***********************在目录后加(/) CheckAndCreateFolder(SavePath)
If(CheckFileExt(FileName_j,ExtName)) Then SaveFile = Server.MapPath(SavePath &; FileName_j)
If Err Then Response.Write "文件上传: 文件上传出错! 重新上传文件 " Err.Clear Else
if UCase(right(FileName_j,4))<>".GIF" and UCase(right(FileName_j,4))<>".BMP" and UCase(right(FileName_j,4))<>".JPG" then T_R="'"&;Session("UserName")&;"','"&;Now()&;"','"&;T_G&;"','"&;SavePath&;"','"&;Session("UserName")&;"'" T_G="UPUser,Timed,FName,SFPath,Loader" T_B=AddRecord("FileManage",T_G,T_R) End if
Response.write "文件" &; Saver &; " 上传成功!继续上传文件 " Response.write "请及时去""文件管理""页面设置您的访问权限,例如:设置什么人可以下载您上传的文件 " temp=AddRecord("trace","Name,Timed,Operation","'"&;Session("UserName")&;"','"&;Now()&;"','上传名称为"&;Saver&;"的文件到"&;SavePath&;"'") %> <% if UCase(right(FileName_j,4))=".GIF" or UCase(right(FileName_j,4))=".JPG" or UCase(right(FileName_j,4))=".BMP" then %> xml:namespace prefix = div style="position />
<% End if %> <% End If Else Response.write "文件格式不正确!重新上传文件 " End If Else %>