Set template = New cls_templates 的研究

[复制链接]

天山花芯

电梯直达

1^#

发表于 2010-1-18 03:44:29 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

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 不知什么意思。和怎么便用/

收藏0

使用道具举报

返回列表

GMT+8, 2024-11-19 00:32 , Processed in 0.113319 second(s), 9 queries , Gzip On, Memcache On.

		自动登录	找回密码
密码			注册