又发现,怎么有些图片能传,有些传不了啊~~~

彻底郁闷了饿~

这是我的 function.asp 的代码

<!--#include file="adovbs.inc"-->
<%       '功能：取得服务端相对图片路径
       '参数：客户端图片路径
       '返回值：图片路径
       Function GetFileName(imagespath)
              If imagespath <> "" Then
                     GetFileName = "Upimages/" & year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&Right(imagespath,4)
              Else      
                     GetFileName =""
              End If
       End Function
      
       '功能：用stream组件上传图片
       '参数：客户端图片路径
       '返回值：成功返回1，失败返回0
       Function upImages(imagespath)
              Set objStream = Server.CreateObject("ADODB.Stream")
              objStream.Type = 1 ' adTypeBinary
              objStream.Open
              objStream.LoadFromFile imagespath
              objStream.SaveToFile Server.MapPath(GetFileName(imagespath)),adSaveCreateOverWrite
              objStream.Close
              If ERR.number<>0 Then
                     upImages = 0
              Else
                     upImages = 1
              End If
       End Function
      
       '功能：将空格与回车符等转换成html语法格式
       '参数：新闻信息内容
       '返回值：字符串中的空格与回车符被等转换成html语法格式
       Function unHtml(content)
              unHtml=content
              If content <> "" Then
                     unHtml=replace(unHtml,"&","&")
                     unHtml=replace(unHtml,"<","&lt;")
                     unHtml=replace(unHtml,">","&gt;")
                     unHtml=replace(unHtml,chr(34),""")
                     unHtml=replace(unHtml,chr(13),"<br>")
                     unHtml=replace(unHtml,chr(32),"&nbsp;")
              End If
       End Function
%>


图片目录在 根目录的  Upimages 文件夹下~~  请求大家的帮助啊~~~

经过很多的请教和查找 我发现 最根本的错误是在于 ADODB.stream做上传的问题.

ADODB.Stream对象的LoadFromFile方法读取的是本机的绝对路径，如果写在ASP代码中，那么所谓的本机是指服务器，而不是通过浏览器上网的客户机。调试时如果在本机用IIS发布的话，当然能工作，因为存在相同的路径和文件。实际使用时，这个程序是十分失败的，代码犯了概念性错误。不可以用stream读客户端数据。

我想请教大家,就我的那个 funtion.asp 要怎么修改 才能解决问题呢??