dsd - 2007-12-2 11:35:00
<%
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
%>
这是一段相册获取图片和大小的代码，如果没有选择图片，就会出错。我想改成只有pic_1，没有选择图片也可以保存。