- 中国开源CMS第一品牌这个代码保存时为什么出错?[未解决]

dsd - 2007-11-27 19:09:00

这是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
%>

sicend - 2007-11-27 20:30:00

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

色拉豆豆 - 2007-11-28 01:14:00

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

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

dsd - 2007-11-28 08:13:00

引用:

原帖由 色拉豆豆 于 2007-11-28 01:14:00 发表
不保存图片是什么意思？这段代码中只是保存图片路径到数据库中

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

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

dsd - 2007-11-28 09:01:00

改成这样就出错了?
<%
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
%>

紫紫 - 2007-11-28 09:04:00

豆豆成版主了噢:default69:

色拉豆豆 - 2007-11-28 10:11:00

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

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

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

dsd - 2007-11-28 10:57:00

引用:

原帖由 色拉豆豆 于 2007-11-28 10:11:00 发表
改成不需要上传文件的一个程序那这个相册就没有意义了，这个地方没有上传图片，只是获取到（早已经上传过的）图片路径，如果相册保存不保存图片路径，那这就不算是相册了，因为没有图片嘛

这里用到了FSO，......

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

风讯官方论坛