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

              include_vars.removeall 
            end if 
          end if 
        end if 
      end if 
    end function 

    private sub convert2code(str_source) 
      dim i, str_temp, arr_temp, int_len 
      if str_source <> "" then 
        if instr(str_source,"%" & ">") > instr(str_source,"<" & "%") then 
          str_temp = replace(str_source,"<" & "%","|%") 
          str_temp = replace(str_temp,"%" & ">","|") 
          if left(str_temp,1) = "|" then str_temp = right(str_temp,len(str_temp) - 1) 
          if right(str_temp,1) = "|" then str_temp = left(str_temp,len(str_temp) - 1) 
          arr_temp = split(str_temp,"|") 
          int_len = ubound(arr_temp) 
          if (int_len + 1) > 0 then 
            for i = 0 to int_len 
              str_temp = trim(arr_temp(i)) 
              str_temp = replace(str_temp,vbcrlf & vbcrlf,vbcrlf) 
              if left(str_temp,2) = vbcrlf then str_temp = right(str_temp,len(str_temp) - 2) 
              if right(str_temp,2) = vbcrlf then str_temp = left(str_temp,len(str_temp) - 2) 
              if left(str_temp,1) = "%" then 
                str_temp = right(str_temp,len(str_temp) - 1)