新微赢技术网

标题: 代码分析 [打印本页]

作者: 听雨飞扬 时间: 2010-1-11 06:45
标题: 代码分析
请教各位高手,我想用以下代码在ASP页面上传各类文件,但上传都不成功.究竟以下代码有何错误呢?请帮忙,先感谢你们!
<%
  ExtName = "jpg,gif,png,txt,rar,zip,doc,exe" '允许扩展名
  SavePath = "upload"       '保存路径
  If Right(SavePath,1)<>"/" Then SavePath=SavePath&"/" '在目录后加(/)
  CheckAndCreateFolder(SavePath)
  UpLoadAll_a = Request.TotalBytes '取得客户端全部内容
  If(UpLoadAll_a>0) Then
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)

If(CheckFileExt(FileName_j,ExtName)) Then
   SaveFile = Server.MapPath(SavePath & FileName_j)

   If Err Then
      Response.Write "文件上传： <span style=""color:red;"">文件上传出错!</span>　<a href=""" & Request.ServerVariables("URL") &""">重新上传文件</a><br />"
      Err.Clear
   Else
      SaveFile = CheckFileExists(SaveFile)

      k=Instrb(FormDataAll_d,CrLf_e&CrLf_e)+4
      l=Instrb(k+1,FormDataAll_d,leftB(FormDataAll_d,FormStart_f-1))-k-2
      FormStream_h.Type=1
      FormStream_h.Open
      UploadStream_c.Position=k-1
      UploadStream_c.CopyTo FormStream_h,l
      FormStream_h.SaveToFile SaveFile,2

      SaveFileName = Mid(SaveFile,InstrRev(SaveFile,"\")+1)
      Response.write "文件上传： <span style=""color:red;"">" & SaveFileName & " </span>文件上传成功!　<a href=""" & Request.ServerVariables("URL") &""">继续上传文件</a><br />"
   End If
Else
   Response.write "文件上传： <span style=""color:red;"">文件格式不正确!</span>　<a href=""" & Request.ServerVariables("URL") &""">重新上传文件</a><br />"
End If

  Else
%>
<script language="Javascript">

</script>
<form action='<%= Request.ServerVariables("URL") %>' method='post' name="upform" onsubmit="return ValidInput()"  enctype="multipart/form-data">
文件上传：
<input type='file' name='upfile' size="40"> <input type='submit' value="上传">
</form>
<%
  End if
  Set FormStream_h = Nothing
  UploadStream.Close
  Set UploadStream = Nothing
%>
</body>
</html>
<%
  '判断文件类型是否合格
  Function CheckFileExt(FileName,ExtName) '文件名,允许上传文件类型
FileType = ExtName
FileType = Split(FileType,",")
For i = 0 To Ubound(FileType)
   If LCase(Right(FileName,3)) = LCase(FileType(i)) then
   CheckFileExt = True
   Exit Function
   Else
   CheckFileExt = False
   End if
Next
  End Function

  '检查上传文件夹是否存在，不存在则创建文件夹
  Function CheckAndCreateFolder(FolderName)
fldr = Server.Mappath(FolderName)
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(fldr) Then
   fso.CreateFolder(fldr)
End If
Set fso = Nothing
  End Function

'检查文件是否存在，重命名存在文件
Function CheckFileExists(FileName)
  Set fso=Server.CreateObject("Scripting.FileSystemObject")
  If fso.FileExists(SaveFile) Then
i=1
msg=True
Do While msg
   CheckFileExists = Replace(SaveFile,Right(SaveFile,4),"_" & i & Right(SaveFile,4))
   If not fso.FileExists(CheckFileExists) Then
      msg=False
   End If
   i=i+1
Loop
  Else
CheckFileExists = FileName
  End If
  Set fso=Nothing
End Function
%>

作者: 笨笨洋葱 时间: 2010-1-11 06:45
如果上传文件是txt的,最终页面出现错误提示:
HTTP/1.1 200 OK CacheControl: private Connection: close Date: Sat, 26 Sep 2009 13:40:15 GMT Content-Length: 567 Content-Type: text/html Server: Microsoft-IIS/6.0 X-Powered-By: ASP.NET <me
如果是其他文件:出现的是:"文件上传出错"
现在我都没有找到解决的方法.如果按照楼2说开通fso权限,怎样开通呢?

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)