asp对象化之:模板操作类

80酷酷网    80kuku.com

  对象|模板<% 

’************************************************************* 
’转发时请保留此声明信息,这段声明不并会影响你的速度! 
’************************************************************* 


’************************************************************* 
’author:                        面条 
’realname:                        徐仁禄 
’email:                        xurenlusohu.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中 
 

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: