asp刪除文章時同時刪除文章中在服務器上的圖片

編輯器在網站開發中的作用越來越大，即可以進行文字的排版，也可以插入圖片，Flash，音樂，表格等信息，讓頁面越來越豐富。但是在刪除一篇文章的同時，也需要將編輯器中的這些信息給刪除，這樣可以節約一點服務器空間。這裡是一個ASP網絡編程刪除文章時同時刪除文章中在服務器上的圖片的代碼，大家可以根據這個去修改一下，刪除其它內容。

vIEw source print? 01 <!--#include file="conn.ASP"--> 02 <% 03 '*********************************************** 04 '函數名：getPicUrl 05 '作  用：獲得信息裡的圖片地址 06 '參  數：str  ----信息 07 '*********************************************** 08   09 Function getPicUrl(Str) 10     Dim content, regstr, url 11     content = Str&"" 12     regstr = "src=.+?.(gif|jpg)" 13     url = Replace(Replace(Replace(RegExp_Execute(regstr, content),"'", ""), """", ""), "src=", "") 14     getPicUrl = url 15 End Function 16   17 Function RegExp_Execute(patrn, strng) 18     Dim regEx, Match, Matches, values '建立變量。 19     Set regEx = New RegExp '建立正則表達式。 20     regEx.Pattern = patrn '設置模式。 21     regEx.IgnoreCase = true '設置是否區分字符大小寫。 22     regEx.Global = True '設置全局可用性。 23     Set Matches = regEx.Execute(strng) '執行搜索。 24     For Each Match in Matches '遍歷匹配集合。 25         values = values&Match.Value&"," 26     Next 27     RegExp_Execute = values 28 End Function 29   30 '*********************************************** 31 '函數名：DeleteFile 32 '作  用：刪除文件 33 '參  數：file  ----文件路徑 34 '*********************************************** 35   36 Function DeleteFile(File) 37     Dim fso 38     Set fso = CreateObject("scripting.filesystemobject") 39     If fso.FileExists(File) Then 40         fso.DeleteFile server.MapPath(File) 41     Else 42         response.Write File&"文件不存在" 43     End If 44     Set fso = Nothing 45 End Function 46   47 '使用舉例 48 Dim id 49 id = request.QueryString("id") 50 Set rs = server.CreateObject("adodb.recordset") 51 sql = "select * from articles where id = "&id&"" 52 rs.Open sql, conn, 1, 3 53 If rs.bof And rs.EOF Then 54     response.Write "<script language=Javascript>alert('error!')</script>" 55     response.End() 56 Else 57     Dim picUrl 58     Dim picUrlArray 59     Dim x, y 60     picUrl = getPicUrl(rs("content")) 61     If picUrl <> "" Then 62         picUrl = Left(picUrl, Len(picUrl) -1) 63         picUrlArray = Split(picUrl, ",") 64         For x = 0 To UBound(picUrlArray) 65             If InStr(picUrlArray(x), "/編輯器圖片上傳目錄/") > 0 Then 66                 DeleteFile(picUrlArray(x)) 67             End If 68         Next 69     End If 70   71     rs.Delete 72     response.Write "<script language=Javascript>alert('刪除成功')</script>" 73 End If 74 rs.Close 75 %>