问题如题
解决方法:
打开 admin/shop/ks.shop.asp
找到
$("#thumbnails").find(".pics").each(function(){
if ($(this).next().val()==''){alert('第 '+($("#thumbnails").find(".pics").index($(this))+1)+' 张图片没有输入组图名称,请输入!');$(this).next().focus();b=true;return false;}
src=$(this).next().val().replace('|||','').replace('|','')+"|"+$(this).val();
if(picSrcs==''){picSrcs=src;}else{picSrcs+='|||'+src;}
});
将上面两次红色的的|||改成$$$
再往下找到
Sub SaveProImages(ProID,flag)
'If flag<>0 Then DelProImages ProID '删除原图
Dim sTemp,Url1,thumburl,ThumbFileName,SaveFilePath,PicUrls
PicUrls=Request.Form("PicUrls")
SaveFilePath = KS.GetUpFilesDir & "/"
KS.CreateListFolder (SaveFilePath)
Dim sPicUrlArr:sPicUrlArr=Split(PicUrls,"|||")
For I=0 To Ubound(sPicUrlArr)
If KS.ChkClng(KS.G("BeyondSavePic1"))=1 and Left(Lcase(Split(sPicUrlArr(i),"|")(1)),4)="http" and instr(Lcase(Split(sPicUrlArr(i),"|")(1)),lcase(ks.setting(2)))=0 Then
Url1=KS.ReplaceBeyondUrl(Split(sPicUrlArr(i),"|")(1), SaveFilePath)
thumburl=replace(url1,ks.setting(2),"")
ThumbFileName=split(thumburl,".")(0)&"_S."&split(thumburl,".")(1)
if instr(Lcase(thumburl),"http://")=0 Then
Dim T:Set T=New Thumb
Dim CreateTF:CreateTF=T.CreateThumbs(thumburl,ThumbFileName)
if CreateTF=false Then ThumbFileName=url1
Set T=Nothing
end if
Call AddProImages(ProID, Url1,ThumbFileName,Split(sPicUrlArr(i),"|")(0),Split(sPicUrlArr(i),"|")(3),I+1)
Else
Call AddProImages(ProID, Split(sPicUrlArr(i)&"|||","|")(1),Split(sPicUrlArr(i)&"|||","|")(2),Split(sPicUrlArr(i)&"|||","|")(0),Split(sPicUrlArr(i)&"|||","|")(3),I+1)
End If
Next
End Sub
同样把以上红色的改成$$$