Set template = New cls_templates µÄÑо¿

Ììɽ»¨Ð¾

Set template = New cls_templates

Class cls_Templates
Public html,Strings,pic
Public Property Let Value(ByVal vNewValue)
  Dim TemplateStr,tmpstr:TemplateStr = vNewValue
  TemplateStr = Replace(TemplateStr,"{$PicUrl}",Dvbbs.Forum_PicUrl)
  tmpstr = Split(TemplateStr,"@@@")
  html = Split(tmpstr(0),"|||"):Strings = Split(tmpstr(1),"|||"):pic = Split(tmpstr(2),"|||")
End Property
End Class

ÏÖÔÚÓöµ½ÕâÑùһЩASP ²»ÖªÊ²Ã´Òâ˼¡£ºÍÔõô±ãÓÃ/