站长网_站长创业_站长主页_站长之家_易采站长站

会员投稿 投稿指南 站长资讯通告: 浅谈自动采集程序及入库
搜索:
您的位置: 主页 > 教程 > 网页编程 > ASP编程 > » 正文

分享一个好东东,动态Include文件 (Dynamic File Includes)(3)

来源: 易采站长站

    private sub processincludes(str_source) 
      dim int_start, str_path, str_mid, str_temp 
      str_source = replace(str_source,"<!-- #","<!--#") 
      int_start = instr(str_source,"<!--#include") 
      str_mid = lcase(getbetween(str_source,"<!--#include","-->")) 
      do until int_start = 0 
        str_mid = lcase(getbetween(str_source,"<!--","-->")) 
        int_start = instr(str_mid,"#include") 
        if int_start >  0 then 
          str_temp = lcase(getbetween(str_mid,chr(34),chr(34))) 
          str_temp = trim(str_temp) 
          str_path = readfile(str_temp) 
          str_source = replace(str_source,"<!--" & str_mid & "-->",str_path & vbcrlf) 
        end if 
        int_start = instr(str_source,"#include") 
      loop 
    end sub 

    private sub formatcode(str_code) 
      dim i, arr_temp, int_len 
      str_code = replace(str_code,vbcrlf & vbcrlf,vbcrlf) 
      if left(str_code,2) = vbcrlf then str_code = right(str_code,len(str_code) - 2) 
      str_code = trim(str_code) 
      if instr(str_code,vbcrlf) > 0 then 
        arr_temp = split(str_code,vbcrlf) 
        for i = 0 to ubound(arr_temp) 
          arr_temp(i) = ltrim(arr_temp(i)) 
          if arr_temp(i) <> "" then arr_temp(i) = arr_temp(i) & vbcrlf 
        next 
        str_code = join(arr_temp,"") 
        arr_temp = vbnull 
      end if 
    end sub 
Tags:
最新图文资讯
1 2 3 4 5 6
相关文章列表:
最新文章
易采站长站 - 联系我们 - 广告服务 - 友情链接 - 网站地图 - 版权声明 - 人才招聘 - 帮助 -