Question

ASP删除记录同时如何删除图片

删除记录是exec="delete * from changku where id="&request.querystring("id")
但数据库中有"tupian"字段放图片路径,具体内容比如是"<img src=TBTP/123456.jpg width=80 height=80>"这样的...
请问如何同时删除啊?

Answer 1

空间支持FSO吗？如果支持就简单了
<%
'***********************************************
'函数名：getPicUrl
'作 用：获得信息里的图片地址
'参 数：str ----信息
'***********************************************
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
'***********************************************
'函数名：DeleteFile
'作 用：删除文件
'参 数：file ----文件路径
'***********************************************
Function DeleteFile(file)
dim fso
Set fso = CreateObject("scripting.filesystemobject")
if IsExists(file) then
fso.DeleteFile server.MapPath(file)
end if
Set fso = nothing
End Function
'检测文件是否存在
Function IsExists(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(server.MapPath(filespec))) Then
IsExists = True
Else
IsExists = False
End If
Set fso=nothing
End Function
'-------------------------------实例
dim picUrl
picUrl = getPicUrl("<img src=TBTP/123456.jpg width=80 height=80>")
response.write picUrl
response.write server.MapPath(picUrl)
DeleteFile(picUrl)
%>
以上部分代码来自网络，稍有改动。
希望能解决你的问题.
如果好用，给点分吧！

Answer 2

rs1.exec="select * from changku where id="&request.querystring("id")
FileName=server.MapPath(rs1("tupian"))
Set fso=Server.Createobject("Scripting.Filesystemobject")
if Fso.fileExists(FileName) then
Set f3 = fso.GetFile(FileName)
f3.delete
end if

Answer 3

二楼太复杂。说得麻烦。如一楼所说。