class template

private m_filename, m_root, m_unknowns, m_lasterror, m_haltonerr

private m_valuelist, m_blocklist

private m_regexp

private sub class_initialize

set m_valuelist = createobject("nary")

set m_blocklist = createobject("nary")

set m_regexp = new regexp

case = true

= true

m_filename = ""

m_root = "."

m_unknowns = "remove"

m_lasterror = ""

m_haltonerr = true

end sub

private sub class_terminate

set m_regexp = nothing

set m_blockmatches = nothing

set m_valuematches = nothing

end sub

public property get classname()

classname = "template"

end property

public property get version()

version = "1.0"

end property

private function loadfile(byval chartype)

dim filename, fso, hndfile

filename = m_root

if right(filename, 1)<>"/" and right(filename, 1)<>"" then filename = filename & "/"

filename = h(filename & m_filename)

set streamobject = object("")

= 1

= 3

on = 0

omfile filename

on = 0

= 2

t = chartype

loadfile = xt()

if loadfile = "" then showerror("0x11

could not load the file " & m_filename & "!")

end function

private sub showerror(byval msg)

m_lasterror = msg

"error id : " & msg & ""

if m_haltonerr then

end sub

public sub set_root(byval value)

m_root = value

end sub

public function get_root()

get_root = m_root

end function

public property let root(byval value)

set_root(value)

end property

public property get root()

root = m_root

end property

public sub set_file(byval handle,byval filename,byval chartype)

m_filename = filename

handle, loadfile(chartype)

end sub

public function get_file()

get_file = m_filename

end function

public sub set_unknowns(byval unknowns)

m_unknowns = unknowns

end sub

public function get_unknowns()

get_unknowns = m_unknowns

end function

public property let unknowns(byval unknown)

m_unknowns = unknown

end property

public property get unknowns()

unknowns = m_unknowns

end property

public sub set_block(byval parent, byval blocktag, byval name)

dim matches

n = "([ss.]*)"

if not (parent) then showerror("0x12

undefined block tag " & parent & "!")

set matches = e((parent))

for each match in matches

blocktag, ches(0)

(parent) = replace((parent), , "{" & name & "}")

next

set matches = nothing

end sub

public sub set_var(byval name, byval value, byval append)

dim val

if isnull(value) then val = "" else val = value

if (name) then

if append then (name) = (name) & val _

else (name) = val

else

name, value

end if

end sub

public sub unset_var(byval name)

if (name) then (name)

end sub

private function instancevalue(byval blocktag)

dim keys, i

instancevalue = (blocktag)

keys =

for i=0 to -1

instancevalue = replace(instancevalue, "{" & keys(i) & "}", (keys(i)))

next

end function

public sub parse(byval name, byval blocktag, byval append)

if not (blocktag) then showerror("0x12

undefined block tag " & parent & "!")

if (name) then

if append then (name) = (name) & instancevalue(blocktag) _

else (name) = instancevalue(blocktag)

else

name, instancevalue(blocktag)

end if

end sub

private function finish(byval content)

select case m_unknowns

case "keep" finish = content

case "remove"

n = "{[^ trn}]+}"

finish = e(content, "")

case "comment"

n = "{([^ trn}]+)}"

finish = e(content, "")

case else finish = content

end select

end function

public sub output(byval name)

if not (name) then showerror("0x13

could not find tag " & name & "!")

(finish((name)))

end sub

end class

【关于asp模板类代码参考】相关文章：

1.asp缓存类代码

2. 操作ini文件读写类实例代码

3.关于ajax类代码

4.asp购物车代码

5.asp分页代码是什么

6.asp加法验证码代码

7.关于asp技术简介参考

8. 组合模式的php代码