这种问题是和代码编写有关还是和操作系统或者IIS设置有关系，还是和文件夹权限有关系

有可能是权限问题，楼主先设置一下权限试试

刚才去51js也看到楼主的问题了，你可以按照我那个朋友回答的去找一下原因，可能是路径的问题。
文件夹权限指的：（网站所属文件夹和windows\temp）－－》属性－－》安全－－》users 添加完全控制权限
这里的前提假设楼主硬盘格式是ntfs
如果没有安全这个选项，请先工具－－》文件夹选项－－》简单共享（推荐） 前面的勾去掉

没有什么？

那很可能就是前面说的路径问题了。

路径问题～～～

那应该怎么修改呢？

这是我的 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 文件夹下~~  请求大家的帮助啊~~~