这是Photo_save.asp相册保存过程的一段代码:
我想修改成不保存图片,我把红色部分删除后出错了,请版主帮忙看一下!

<%
dim rs,str_tmppic,i_s,str_tmppicarr,p_FolderObj,p_FSO,p_FileObj
Set p_FSO = Server.CreateObject(G_FS_FSO)
if Request.Form("Action")="add" then
str_tmppic=Replace(Request.Form("pic_1")&"|"&Request.Form("pic_2")&"|"&Request.Form("pic_3")," ","")
str_tmppicarr =split(str_tmppic,"|")
for i_s=0 to Ubound(str_tmppicarr)
if str_tmppicarr(i_s)<>"" then
  If Left(LCase(str_tmppicarr(i_s)),7) <> "http://" And Left(str_tmppicarr(i_s),1) = "/" then
  p_FolderObj = p_FSO.GetFile(Server.MapPath(Replace(str_tmppicarr(i_s),"/","\"))).size
  Else
  p_FolderObj = 0
  End If
  set rs= Server.CreateObject(G_FS_RS)
  rs.open "select * From FS_ME_Job where 1=0",User_conn,1,3
  rs.addnew
  rs("title")=Request.Form("title")
  rs("age")=Request.Form("age")
  rs("gender")=Request.Form("gender")
  rs("EndDate")=Request.Form("EndDate")
  rs("speciality")=Request.Form("speciality")
  rs("edus")=Request.Form("edus")
  rs("num")=Request.Form("num")
  rs("assess")=Request.Form("assess")
  rs("txtProv")=Request.Form("txtProv")
  rs("txtCity")=Request.Form("txtCity")
  rs("experience")=Request.Form("experience")
  rs("jobtypes")=Request.Form("jobtypes")
  rs("emolument")=Request.Form("emolument")
  rs("EndDate")=Request.Form("EndDate")
  rs("PicSavePath")=str_tmppicarr(i_s)
  rs("Content")=NoHtmlHackInput(Request.Form("Content"))
  rs("Addtime")=now
  if Request.Form("ClassID")<>"" then
  rs("ClassID")=clng(Request.Form("ClassID"))
  else
  rs("ClassID")=0
  end if
  rs("PicSize")=p_FolderObj
  rs("Hits")=0
  rs("UserNumber")=Fs_User.UserNumber
  rs.update
  rs.close:set rs=nothing
end if
next
strShowErr="<li>保存信息成功</li>"
Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../Job_Manage.asp")
Response.end
elseif Request.Form("Action")="edit" then
  If Left(LCase(Request.Form("pic_1")),7) <> "http://" And Left(Request.Form("pic_1"),1) = "/" then
  p_FolderObj = p_FSO.GetFile(Server.MapPath(Replace(Request.Form("pic_1"),"/","\"))).size
  Else
  p_FolderObj = 0
  End If
  set rs= Server.CreateObject(G_FS_RS)
  rs.open "select * From FS_ME_Job where id="&Clng(Request.Form("id")),User_conn,1,3
  rs("title")=Request.Form("title")
  rs("age")=Request.Form("age")
  rs("gender")=Request.Form("gender")
  rs("EndDate")=Request.Form("EndDate")
  rs("speciality")=Request.Form("speciality")
  rs("edus")=Request.Form("edus")
  rs("num")=Request.Form("num")
  rs("assess")=Request.Form("assess")
  rs("txtProv")=Request.Form("txtProv")
  rs("txtCity")=Request.Form("txtCity")
  rs("experience")=Request.Form("experience")
  rs("jobtypes")=Request.Form("jobtypes")
  rs("emolument")=Request.Form("emolument")
  rs("EndDate")=Request.Form("EndDate")
  rs("PicSavePath")=Request.Form("pic_1")
  rs("Content")=NoHtmlHackInput(Request.Form("Content"))
  if Request.Form("ClassID")<>"" then
  rs("ClassID")=clng(Request.Form("ClassID"))
  else
  rs("ClassID")=0
  end if
  rs("PicSize")=p_FolderObj
  rs.update
  rs.close:set rs=nothing
  strShowErr="<li>修改信息成功</li>"
  Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../Job_Manage.asp")
  Response.end
end if
set p_FSO=nothing
set Fs_User=nothing
%>

看数据库字段是否允许为空

不保存图片是什么意思？  这段代码中只是保存图片路径到数据库中

红色部分 for i_s=0 to Ubound(str_tmppicarr)  这句是不能删除的，

不保存图片就是我把这些代码改成不需要上传文件的一个程序

改成这样就出错了?
<%
dim rs
if Request.Form("Action")="add" then
        set rs= Server.CreateObject(G_FS_RS)
        rs.open "select * From FS_ME_Job where 1=0",User_conn,1,3
        rs.addnew
        rs("title")=Request.Form("title")
        rs("age")=Request.Form("age")
        rs("gender")=Request.Form("gender")
        rs("EndDate")=Request.Form("EndDate")
        rs("speciality")=Request.Form("speciality")
        rs("edus")=Request.Form("edus")
        rs("num")=Request.Form("num")
        rs("assess")=Request.Form("assess")
        rs("txtProv")=Request.Form("txtProv")
        rs("txtCity")=Request.Form("txtCity")
        rs("experience")=Request.Form("experience")
        rs("jobtypes")=Request.Form("jobtypes")
        rs("emolument")=Request.Form("emolument")
        rs("EndDate")=Request.Form("EndDate")
        rs("Content")=NoHtmlHackInput(Request.Form("Content"))
        rs("Addtime")=now
        rs("Hits")=0
        rs("UserNumber")=Fs_User.UserNumber
        rs.update
        rs.close:set rs=nothing
    end if
next
    strShowErr="<li>保存信息成功</li>"
    Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../Job_Manage.asp")
    Response.end
elseif Request.Form("Action")="edit" then
        set rs= Server.CreateObject(G_FS_RS)
        rs.open "select * From FS_ME_Job where id="&Clng(Request.Form("id")),User_conn,1,3
        rs("title")=Request.Form("title")
        rs("age")=Request.Form("age")
        rs("gender")=Request.Form("gender")
        rs("EndDate")=Request.Form("EndDate")
        rs("speciality")=Request.Form("speciality")
        rs("edus")=Request.Form("edus")
        rs("num")=Request.Form("num")
        rs("assess")=Request.Form("assess")
        rs("txtProv")=Request.Form("txtProv")
        rs("txtCity")=Request.Form("txtCity")
        rs("experience")=Request.Form("experience")
        rs("jobtypes")=Request.Form("jobtypes")
        rs("emolument")=Request.Form("emolument")
        rs("EndDate")=Request.Form("EndDate")
        rs("Content")=NoHtmlHackInput(Request.Form("Content"))
        rs.update
        rs.close:set rs=nothing
        strShowErr="<li>修改信息成功</li>"
        Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../Job_Manage.asp")
        Response.end
end if
set Fs_User=nothing
%>

豆豆成版主了噢

改成不需要上传文件的一个程序    那这个相册就没有意义了， 这个地方没有上传图片，只是获取到（早已经上传过的）图片路径，  如果相册保存不保存图片路径，那这就不算是相册了，因为没有图片嘛

这里用到了FSO，它只是用FSO文件操作得到图片大小  object.size

如果一定要修改，那么红色部分 for i_s=0 to Ubound(str_tmppicarr) 这一句不要删除，其他红色部分删掉就可以了

相册里的图片太费空间,我不是做相册用,另有其它用途!
留着这句for i_s=0 to Ubound(str_tmppicarr)其它的删除了,试了一下,不行~~