用asp获取内容中的图片与获取内容中的第一个图片地址，主要用在删除内容中的图片，或者是将内容中的图片放到幻灯片中，使用的原理是用正则表达式的方法获取，具体代码如下： view sourceprint?01 '=====================================

02 '获取内容中所有图片

03 '=====================================

04 Function Get_ImgSrc（ByVal t0）

05 Dim t1,Regs,Matches,Match

06 t1=""

07 IF Not（IsNull（t0） Or Len（t0）=0） Then

08 Set Regs=New RegExp

09 Regs.Pattern="<img[^>]+src=""（[^"">]+）""[^>]*>"

10 Regs.Ignorecase=True

11 Regs.Global=True

12 Set Matches=Regs.Execute（t0）

13 IF Matches.Count>0 Then

14 For Each Match In Matches

15 IF Left（Match.SubMatches（0），7）<>"http://" Then

16 t1=t1&"<option value="""&Match.SubMatches（0）&""">"&Match.SubMatches（0）&"</option>"

17 End IF

18 Next

19 End IF

20 End IF

21 Get_ImgSrc=t1

22 Set Matches=Nothing

23 Set Regs=Nothing

24 End Function

25

26 '=====================================

27 '获取内容中第一个图片

28 '=====================================

29 Function Frist_Pic（ByVal t0）

30 Frist_Pic=""

31 Dim Regs,Matches

32 Set Regs=New RegExp

33 Regs.Ignorecase=True

34 Regs.Global=True

35 Regs.Pattern="<img[^>]+src=""（[^"">]+）""[^>]*>"

36 Set Matches=Regs.Execute（t0）

37 IF Regs.test（t0） Then

38 Frist_Pic=Matches（0）。SubMatches（0）

39 End IF

40 Set Matches=Nothing

41 Set Regs=Nothing

42 End Function

【责编:cc】