TOMMYHU

'文章内容中的字数
Function ShowImgCount(content,ifincludepic)
    If ifincludepic = 0  Then
        Exit Function
    Else
        Dim Reg,Cols,Mat,str
        set Reg = new RegExp
        Reg.Global = True
        Reg.IgnoreCase = True
        Reg.MultiLine = True
        Reg.Pattern = "<img[^>]+src=""([^"">]+)""[^>]*>"
        Set Cols = Reg.Execute(content)
        For Each Mat In Cols
        str =Mat.SubMatches(0)
        ShowImgCount=ShowImgCount+1
        Next
        ShowImgCount="<span style='color:green'>"&ShowImgCount&"</span>图 "
    End If
End Function

Function Frist_Pic(ByVal t0)
Frist_Pic=""
Dim Regs,Matches
Set Regs=New RegExp
Regs.Ignorecase=True
Regs.Global=True
Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>"
Set Matches=Regs.Execute(t0)
IF Regs.test(t0) Then
Frist_Pic=Matches(0).SubMatches(0)
End IF
Set Matches=Nothing
Set Regs=Nothing
End Function

function user_FieldFun($mid,$f,$isadd,$isq,$value,$cs){
$pattern="/<img.*?src=['|"](.*?(?:[.gif|.jpg]))['|"].*?[/]?>/"; //正则
$str=$_POST['newstext']; //接收到正文的内容
preg_match_all($pattern,$str,$match); //使用PHP正则函数，返回的是数组
//if(count($match[1])>0){//这个是用来判断是否有图片存在
//foreach ( $match[0] as $src) {//使用foreach来遍历数组，显示出图片地址
// $a.=$src; //把地址放到变量$a里
// }