西安网站建设asp删除文章以及文章中附带的图片

21742012-09-18

编辑器在网站开发中的作用越来越大,即可以进行文字的排版,也可以插入图片,flash,音乐,表格等信息,让页面越来越丰富,西安网站建设团队点墨网络竭诚为您服务。但是在删除一篇文章的同时,也需要将编辑器中的这些信息给删除,这样可以节约一点服务器空间。这里是一个西安网站建设asp删除文章以及文章中附带的图片的代码,大家可以根据这个去修改一下,删除其它内容。

<!--#include file="conn.asp"-->
<%
'***********************************************
'函数名:getPicUrl
'作  用:获得信息里的图片地址
'参  数:str  ----信息
'***********************************************

Function getPicUrl(Str)
    Dim content, regstr, url
    content = Str&""
    regstr = "src=.+?.(gif|jpg)"
    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 fso.FileExists(File) Then
        fso.DeleteFile server.MapPath(File)
    Else
        response.Write File&"文件不存在"
    End If
    Set fso = Nothing
End Function

'使用举例
Dim id
id = request.QueryString("id")
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from articles where id = "&id&""
rs.Open sql, conn, 1, 3
If rs.bof And rs.EOF Then
    response.Write "<script language=javascript>alert('error!')</script>"
    response.End()
Else
    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), "/编辑器图片上传目录/") > 0 Then
                DeleteFile(picUrlArray(x))
            End If
        Next
    End If

    rs.Delete
    response.Write "<script language=javascript>alert('删除成功')</script>"
End If
rs.Close
%>

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:15229292610

公司注册地址:西安市雁塔区融鑫路丽湾蓝岛1幢3单元16层31605号

临时办公地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

服务热线:15229292610

客服信箱:vip@dianmo.cc

846461336327

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1