删除文章时同时删除图片文件
偶像天堂流星修改，无名被自由的飞强迫调试，: ）现适合版本V3.1sp2。
找到文件/Foosun/Admin/Info/DelContent.asp
文件中找到代码：
End If
End If
'------------自由JS相关删除及重新生成----------------
在此代码之前添加以下代码：
'----------------------天堂流星添加代码，删除相关图片文件
Dim tempstr,tempstrnum,tempstr1,tempstr2 '天堂流星添加临时变量
tempstr=LCase(TempContentStr)
do while InStr(tempstr,"src=")>0
tempstr1 =mid(tempStr,InStr(tempstr,"src=") + 21 ) 'src="http://127.0.0.1/的长度=21只填域名长度，不要包含虚拟目录长度
tempstr2=left(tempstr1,InStr(tempstr1,"""") - 1 )
If MyFile.FileExists(Server.Mappath(tempstr2)) then
MyFile.DeleteFile(Server.Mappath(tempstr2))
End if
tempstr=mid(tempstr,instr(tempstr,tempstr2)+len(tempstr2))
loop
DelNewsFileObj.Close '天堂流星添加，优化的，
Set DelNewsFileObj = Nothing '天堂流星添加，优化的，
'--------------------天堂流星添加结束
其中红色的数字是你域名加上src="的长度。
[此贴子已经被作者于2006-5-24 17:43:53编辑过]
