用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