编辑器在网站开发中的作用越来越大，即可以进行文字的排版，也可以插入图片，flash，音乐，表格等信息，让页面越来越丰富。但是在删除一篇文章的同时，也需要将编辑器中的这些信息给删除，这样可以节约一点服务器空间。下面学步园小编来讲解下asp怎么在删除文章时同时删除文章中在服务器上的图片？
asp怎么在删除文章时同时删除文章中在服务器上的图片
这里是一个asp网络编程删除文章时同时删除文章中在服务器上的图片的代码，大家可以根据这个去修改一下，删除其它内容。viewsourceprint?01
02<%
03'***********************************************
04'函数名：getPicUrl
05'作用：获得信息里的图片地址
06'参数：str----信息
07'***********************************************
08
09FunctiongetPicUrl（Str）
10Dimcontent,regstr,url
11content=Str&""
12regstr="src=.+?.（gif|jpg）"
13url=Replace（Replace（Replace（RegExp_Execute（regstr,content），"'",""），"""",""），"src=",""）
14getPicUrl=url
15EndFunction
asp怎么在删除文章时同时删除文章中在服务器上的图片
17FunctionRegExp_Execute（patrn,strng）
18DimregEx,Match,Matches,values'建立变量。
19SetregEx=NewRegExp'建立正则表达式。
20regEx.Pattern=patrn'设置模式。
21regEx.IgnoreCase=true'设置是否区分字符大小写。
22regEx.Global=True'设置全局可用性。
23SetMatches=regEx.Execute（strng）'执行搜索。
24ForEachMatchinMatches'遍历匹配集合。
25values=values&Match.Value&","
26Next
27RegExp_Execute=values
28EndFunction
29
30'***********************************************
31'函数名：DeleteFile
32'作用：删除文件
33'参数：file----文件路径
34'***********************************************
35
36FunctionDeleteFile（File）
37Dimfso
38Setfso=CreateObject（"scripting.filesystemobject"）
39Iffso.FileExists（File）Then
40fso.DeleteFileserver.MapPath（File）
41Else
42response.WriteFile&"文件不存在"
43EndIf
44Setfso=Nothing
45EndFunction
46
47'使用举例
48Dimid
49id=request.QueryString（"id"）
50Setrs=server.CreateObject（"adodb.recordset"）
51sql="select*fromarticleswhereid="&id&""
52rs.Opensql,conn,1,3
53Ifrs.bofAndrs.EOFThen
54response.Write"
55response.End（）
56Else
57DimpicUrl
58DimpicUrlArray
59Dimx,y
60picUrl=getPicUrl（rs（"content"））
61IfpicUrl<>""Then
62picUrl=Left（picUrl,Len（picUrl）-1）
63picUrlArray=Split（picUrl,","）
64Forx=0ToUBound（picUrlArray）
65IfInStr（picUrlArray（x），"/编辑器图片上传目录/"）>0Then
66DeleteFile（picUrlArray（x））
67EndIf
68Next
69EndIf
70
71rs.Delete
72response.Write"
73EndIf
74rs.Close
75%>
以上就是关于“asp怎么在删除文章时同时删除文章中在服务器上的图片”的内容，希望对大家有用。更多资讯请关注学步园。学步园，您学习IT技术的优质平台!