柠檬铺

编辑器在网站开发中的作用越来越大，即可以进行文字的排版，也可以插入图片，flash，音乐，表格等信息，让页面越来越丰富。但是在删除一篇文章的同时，也需要将编辑器中的这些信息给删除，这样可以节约一点服务器空间。这里是一个asp网络编程删除文章时同时删除文章中在服务器上的图片的代码，大家可以根据这个去修改一下，删除其它内容。    view sourceprint?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 %>