站长论坛

 找回密码
 注册
查看: 2704|回复: 0

文字水印

[复制链接]
发表于 2007-4-16 00:11:57 | 显示全部楼层 |阅读模式
修改说明
打开Ubb_Cls.asp
找到大概第20行的
UBB=Str
替换为
UBB=BBS94KK_UBB_MARK("[MARK]"&Str&"[/MARK]")
然后把
  Private Function BBS94KK_UBB_MARK(strText)
  Dim strContent,strContent2
  dim Test,po,ii,jj,kk,ll
  Set re=new RegExp
  re.IgnoreCase =true
  re.Global=True
  strContent=strText
  do while true
    re.Pattern="\[MARK\]"
    Test=re.Test(strContent)
    if Test then
      re.Pattern="\[\/MARK\]"
      Test=re.Test(strContent)
      if Test then
        re.Pattern="\[MARK\]"
        strContent=re.replace(strContent, chr(1) & "MARK" & chr(2))
        re.Pattern="\[\/MARK\]"
        strContent=re.replace(strContent, chr(1) & "/MARK" & chr(2))
        re.Pattern="(^.*)\x01MARK\x02\x01\/MARK\x02(.*)"
        strContent=re.Replace(strContent,"")
        re.Pattern="(^.*)\x01MARK\x02(.[^\x01]*)\x01\/MARK\x02(.*)"
        strContent2=re.Replace(strContent,"$2")
        ii=1
        do
          po=instr(ii,strContent2,"</P>")
          if po>0 then
            ll=right(strContent2,len(strContent2)-po+1)
            randomize
            kk=int(10*rnd+10)
            strContent2=left(strContent2,po-1)&"<font color=#fffff1>"
            for jj=1 to kk
              randomize
              strContent2=strContent2&chr(int(63*rnd+63))
            next
            ii=len(strContent2)+11
            strContent2=strContent2&"</font>"&ll
          end if
        loop while po>0 and ii+4<len(strContent2)
        ii=1
        do
          po=instr(ii,strContent2,"<BR>")
          if po>0 then
            ll=right(strContent2,len(strContent2)-po+1)
            randomize
            kk=int(10*rnd+10)
            strContent2=left(strContent2,po-1)&"<font color=#fffff1>"
            for jj=1 to kk
              randomize
              strContent2=strContent2&chr(int(63*rnd+63))
            next
            ii=len(strContent2)+11
            strContent2=strContent2&"</font>"&ll
          end if
        loop while po>0 and ii+4<len(strContent2)
        randomize
        kk=int(10*rnd+10)
        strContent2=strContent2&"<font color=#fffff1>"
        for jj=1 to kk
          randomize
          strContent2=strContent2&chr(int(63*rnd+63))
        next
        strContent2=strContent2&"</font>"
        strContent="<span onbeforecopy=""event.returnValue=false;"" onbeforecut=""event.returnValue=false;"" oncopy=""event.returnValue=false;window.clipboardData.setData(&#39;Text&#39;,&#39;"&BBS94KK.BbsCache(0)&"&#39;);"" oncut=""event.returnValue=false;window.clipboardData.setData(&#39;Text&#39;,&#39;"&BBS94KK.BbsCache(0)&"&#39;);"">"&re.Replace(strContent,"$1"&strContent2&"$3")&"</span>"
        re.Pattern="\x02"
        strContent=re.replace(strContent, "]")
        re.Pattern="\x01"
        strContent=re.replace(strContent, "[")
      else
        exit do
      end if
    else
      exit do
    end if
  loop
  set re=Nothing
  BBS94KK_UBB_MARK=strContent
end function
加在End Class 前面。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐上一条 /2 下一条

快速回复 返回顶部 返回列表