pushihao的专栏

//Coded by Windy_sk windy_sk@126.com> 20040214var Agent = null;var AgentID = "Merlin";var AgentACS = "merlin.acs";MSAgent.Connected = true;MSAgent.Characters.Load(AgentID,AgentACS);Agent = MSAgent.

Function DelHtml(ContentStr)    Dim TempLoseStr, regEx   TempLoseStr = CStr(ContentStr)    Set regEx = New RegExp    regEx.Pattern = "]*>"    regEx.IgnoreCase = True    regEx.Global = True    TempLose

 Function cutStr(str,strlen) dim l,t,c  l=len(str)  t=0  for i=1 to l  c=Abs(Asc(Mid(str,i,1)))  if c>255 then   t=t+2  else   t=t+1  end if  if t>=strlen then   cutStr=left(str,i)  exit for  else   c