www.gusucode.com > 一款经典的Js仿Windows窗口特效集源码程序 > 一款经典的Js仿Windows窗口特效集/仿微软视窗/仿微软视窗/samples/event/store/save.asp
<% filename = Request("winlike_savename") ' for the script kiddies filename = replace(filename,".","") filename = replace(filename,"/","") filename = replace(filename,"\","") filename = replace(filename,"'","") filename = replace(filename,"""","") ' generate the physical filepath path_1 = Request.ServerVariables ("APPL_PHYSICAL_PATH") ' f.e. "E:\www\virtualDir\" path = Request.ServerVariables("PATH_INFO") ' f.e. "/virtual_dir/winlike/samples/store/load.asp" path_array = Split(path, "/") if UBound(path_array)>3 then path_array(1) = "" ' f.e. cut the "virtual_dir" end if path_array(UBound(path_array,1)) = "" ' f.e. cut the "load.asp" path_2 = Join(path_array, "/") folder=path_1+path_2+"files/" ' f.e. "E:\www\virtualDir\//winlike/samples/store/" ' save file Set fs=Server.CreateObject("Scripting.FileSystemObject") Set tf=fs.OpenTextFile(folder+filename+".txt",2,True) tf.Write(Request("winlike_data")) %> <SCRIPT> alert("Successfully saved! - Load this name to see this layout again."); </SCRIPT>