[點晴永久免費OA]分享一個ASP好東東：動態(tài)Include文件 (Dynamic File Includes)
早在藍色理想上看到過動態(tài)Include的文章，當時已經(jīng)覺得很厲害，但實際應用了一下，不方便而且Include的效果不好。
后來又在一網(wǎng)站上看到了改進版的，但是也不太好用~~~ 哎，當時我真是覺得有點想放棄ASP了，但是由于公司還是用ASP來開發(fā)，我也是沒有辦法... 今天，我一定要記住今天~~~在國外的一個網(wǎng)站上我竟然發(fā)現(xiàn)了這樣一個好東東，太棒了~~~Great works!!! 以前試的一些動態(tài)Include代碼，都無法Include一個類，甚至函數(shù)~~~又或者Include文件中的Include無法被包含... 現(xiàn)在這個鬼佬(dselkirk)寫的類可以為我們做到這些了~~~，代碼如下： <% public include, include_vars set include = new cls_include class cls_include private sub class_initialize() set include_vars = server.createobject("scripting.dictionary") end sub private sub class_deactivate() arr_variables.removeall set include_vars = nothing set include = nothing end sub public default function include(byval str_path) dim str_source if str_path <> "" then str_source = readfile(str_path) if str_source <> "" then processincludes str_source convert2code str_source formatcode str_source if str_source <> "" then if request.querystring("debug") = 1 then response.write str_source response.end else executeglobal str_source 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) if left(str_temp,1) = "=" then 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) 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 private function readfile(str_path) dim objfso, objfile if str_path <> "" then if instr(str_path,":") = 0 then str_path = server.mappath(str_path) set objfso = server.createobject("scripting.filesystemobject") if objfso.fileexists(str_path) then set objfile = objfso.opentextfile(str_path, 1, false) if err.number = 0 then readfile = objfile.readall objfile.close end if set objfile = nothing end if set objfso = nothing end if end function private function getbetween(strdata, strstart, strend) dim lngstart, lngend lngstart = instr(strdata, strstart) + len(strstart) if (lngstart <> 0) then lngend = instr(lngstart, strdata, strend) if (lngend <> 0) then getbetween = mid(strdata, lngstart, lngend - lngstart) end if end if end function end class %> 該文章在 2022/6/22 0:07:37 編輯過 |
關(guān)鍵字查詢
相關(guān)文章
正在查詢... 
|
400 186 1886
