asp對象化之:模板操作類

對象|模板 <% 

’************************************************************* 
’轉寄時請保留此聲明資訊,這段聲明不並會影響你的速度! 
’************************************************************* 


’************************************************************* 
’@author:                        麵條 
’@realname:                        徐仁祿 
’@email:                        xurenlu@sohu.com 
’@QQ:                            55547082 
’@Homepage:                        http://www.ksdn.net 
’@著作權申明: 
’            非盈利性質團體或者個人可以免費使用. 
’************************************************************* 
’   我敢擔保 本程式由本人獨立完成 ，沒有參考他人的任何程式(參考了本人自己的php版本的template，不過那個也是本人獨立完成的 .)同時本人聲明  本class的所有樣本著作權均為本人所有，任何人或者單位實體不得隨意更改 
’ 本template可免費用於： 
’            1.個人的非商業性質應用。 
’            2.公益性質團體，如紅十字會，孤兒院等等 
’  
’具體使用方法請看example.asp檔案. 
’ 
’adSaveCreateOverWrite 

class template 
    dim adSaveCreateOverWrite 
    dim adSaveCreateNotExist 
    public starttag 
    public endtag 
    public filename 
    dim  key_arr() 
    dim  val_arr() 
    public content 
    public total 
    public contenta() 
    public BlockContent ’ 塊的內容(解析後的) 
    public block_begin_delim 
    public block_end_delim 
    public block_begin_word 
    public block_END_word 
    public block_null 
     
sub Class_Initialize()’  類的初始化 
 redim key_arr(0) 
 redim val_arr(0) 
 redim contenta(0) 
 adSaveCreateOverWrite=2 
 adSaveCreateNotExist=1 

 starttag="{" 
 endtag="}" 
 total=0 
 block_begin_word="BEGIN" 
 block_end_word="END" 
 block_begin_delim="<!--" 
 block_end_delim="-->" 
 block_null=" "    ’  begin　和end之間用空格隔開 
end sub 


sub echo (a) 
response.write a 
end sub  


function readfile(filepath) 
    dim stm2 
    on error resume next 
    set stm2 =server.createobject("ADODB.Stream") 
    stm2.Charset = "gb2312" 
    stm2.Open 
    stm2.LoadFromFile filepath 
    readfile = stm2.ReadText 
end function  


function writefile(filepath,str)’ 寫入檔案的函數 
    dim stm 
    on error resume next 
    Set stm = server.createobject("ADODB.Stream") 
    stm.Charset = "gb2312" 
    stm.Open 
    stm.WriteText str 
    stm.SaveToFile filepath, adSaveCreateOverWrite 
end function 

function SetFile(file)’ 設定檔案，讀取檔案內容 
    filename=file 
    content=readfile(file) 
end function  

function inarray(val,arr)’val是否在數組arr中