asp 里正则

Set r = new RegExp
   r.Pattern = "<META content=(.*?)[/s]*name=description>"
  r.IgnoreCase=True
  'r.Global = True
  Set m = r.Execute(sContent)

  'Response.Write(m.count)
  if m.count>0 then
    For each match in m
      OldSubKey=Match.SubMatches(0)
    next  
    OldKey=m(0).value
    NewKey="<META name=description content="&OldSubKey&">"

    sContent=replace(sContent,OldKey,"")
  
    if instr(sContent,"</TITLE>")>0 then
      sContent=replace(sContent,"</TITLE>","</TITLE>"&NewKey)
    else
      sContent=replace(sContent,"<BODY>","<BODY>"&NewKey)
    end if
  end if 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值