asp如何删除一个字段里多张图片，是通过后台编辑器上传的图片

我想删除News表里content的图片，content是后台编辑器里上传，里面有多张图片，picUrlArray好像没有读取到图片组，不知道在那里错了？<%setRs=... 我想删除News表里content的图片，content是后台编辑器里上传，里面有多张图片，picUrlArray好像没有读取到图片组，不知道在那里错了？
<%
set Rs=server.createobject("adodb.recordset")
sql="select * from News where id in ("&SelectID&")"
Rs.open sql,conn,1,3
do while not Rs.eof
dim picUrl
dim picUrlArray
dim x,y
picUrl = getPicUrl(Rs("Content"))
if picUrl <> "" then
picUrl = left(picUrl,len(picUrl)-1)
picUrlArray = split(picUrl,",")
for x = 0 to ubound(picUrlArray)
if instr(picUrlArray(x),"/uploadfile/") > 0 then
DelFile(picUrlArray(x))
end if
next
end if
Rs.delete
Rs.movenext
loop
Rs.Close
set Rs=nothing

function getPicUrl(str)
dim content,regstr,url
content=str&""
regstr="src=.+?.(gif|jpg|png)"
url=Replace(Replace(Replace(RegExp_Execute(regstr,content),"'",""),"""",""),"src=","")
getPicUrl=url
end function

Function RegExp_Execute(patrn, strng)
Dim regEx, Match, Matches,values '建立变量。
Set regEx = New RegExp '建立正则表达式。
regEx.Pattern = patrn '设置模式。
regEx.IgnoreCase = true '设置是否区分字符大小写。
regEx.Global = True '设置全局可用性。
Set Matches = regEx.Execute(strng) '执行搜索。
For Each Match in Matches '遍历匹配集合。
values=values&Match.Value
Next
RegExp_Execute = values
End Function
%> 展开

 我来答

1个回答

#热议# 为什么说不要把裤子提到肚脐眼？

度老虎
2012-06-22 · TA获得超过1546个赞

知道大有可为答主

回答量：1661

采纳率：100%

帮助的人：2313万

我也去答题访问个人页

关注

展开全部

现在是什么情况？记录删除了，图片没删除？
从程序里能看到的错误是RegExp_Execute函数里没有用,分隔URL：values=values&Match.Value
改这个看看：values=values&","&Match.Value

更多追问追答

追问

你好，改了一下，只能删除第一张，下面上传的就删除不了了，在吗？帮忙解决一下，给100分

追答

picUrl = left(picUrl,len(picUrl)-1)
在这行后面输出picUrl，看获取的URL对不对：
picUrl = left(picUrl,len(picUrl)-1)
response.write picrl
response.end

本回答由提问者推荐

已赞过 已踩过<

评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

asp如何删除一个字段里多张图片，是通过后台编辑器上传的图片

为你推荐：