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

2019-04-02 00:53:22丽君

                  str_temp = right(str_temp,len(str_temp) - 1) 
                  str_temp = "response.write " & str_temp 
                end if 
              else 
                if str_temp <> "" then 
                  include_vars.add i, str_temp 
                  str_temp = "response.write include_vars.item(" & i & ")"  
                end if 
              end if 
              str_temp = replace(str_temp,chr(34) & chr(34) & " & ","") 
              str_temp = replace(str_temp," & " & chr(34) & chr(34),"") 
              if right(str_temp,2) <> vbcrlf then str_temp = str_temp 
              arr_temp(i) = str_temp 
            next 
            str_source = join(arr_temp,vbcrlf) 
          end if 
        else 
          if str_source <> "" then 
            include_vars.add "var", str_source 
            str_source = "response.write include_vars.item(""var"")" 
          end if 
        end if 
      end if 
    end sub 

    private sub processincludes(str_source)