AJAX 응용 초고 자동 저장

Gmail 을 사용 한 사람 은 Gmail 이 초고 자동 저장 기능 이 있다 는 것 을 알 고 있 습 니 다. 시간 이 지나 면 Gmail 은 메 일 초 고 를 자동 으로 저장 합 니 다. 그러면 일부 돌발 상황 에서 신속하게 업 무 를 회복 하여 반나절 동안 쓴 메 일이 눈 깜짝 할 사이 에 없어 지지 않도록 할 수 있 습 니 다.AJAX 를 배 운 후에 나 도 내 블 로그 에 이 기능 을 추가 했다.물론 이 애플 리 케 이 션 은 블 로그 에 만 국한 되 는 것 이 아니 라 비교적 통용 된다 고 해 야 한다.
PS. 개발 의 편 의 를 위해 제 가 쓴 AJAX 류 를 사 용 했 습 니 다. 구체 적 인 내용 과 다운 로드 는 여기 있 습 니 다.
프레젠테이션 주소, 내 블 로그
여전히 코드 에 주석 을 달 아 어떻게 작성 하 는 지 설명 한다.
먼저 양식 작성 페이지 입 니 다. AutoSaveMsg 라 는 ID 의 DIV 로 되 돌아 오 는 정 보 를 표시 하고 하나의 ID 로 Draft 입 니 다.AutoSave 의 CheckBox 는 자동 저장 여 부 를 확인 한 다음 Textarea 의 ID 를 message 라 고 명명 합 니 다.또한 다 중 사용자 가 동시에 사용 해 야 하 는 수요 에 대응 하기 위해 사용자 이름 을 더 해 각 사용자 의 초 고 를 따로 저장 합 니 다.편 의 를 설명 하기 위해 서 나 는 수식 적 인 것들 을 없 애 버 렸 다. 이렇게 하면 비교적 명확 해 보인다.

 
  
AJAX         
 
  
 
  
   ：     
  
 
  
    ？
 
  
  ： 
  
<br/> 
  <br/><!-- AutoSaveMsg       --> 
  <br/><div/> 
  <br/><input/>   
  <br/><!--               --> 
  <br/><input/> 
  <br/></code></pre> 
  <br/></div> 
  <br/><!--  JS          ，                      --> 
  <br/><!-- AJAX  --> 
  <br/><script/> 
  <br/><!--        --> 
  <br/><script/> 
  <br/> 
  <br/> 
 </div> 
 <br/> 
 <strong>    autosave.js </strong> 
 <br/> 
   
 <pre><code> 
  <br/>//          
  <br/>//         FormContent 
  <br/>var FormContent=document.getElementById("message"); 
  <br/>//           
  <br/>var AutoSaveMsg=document.getElementById("AutoSaveMsg"); 
  <br/>//     
  <br/>var memName=document.getElementById("memName").value; 
  <br/>//          
  <br/>var AutoSaveTime=60000; 
  <br/>//       
  <br/>var AutoSaveTimer; 
  <br/> 
  <br/>//              
  <br/>SetAutoSave(); 
  <br/> 
  <br/>//        
  <br/>function AutoSave() { 
  <br/>    //           ，      ，     
  <br/>    if(!FormContent.value||!memName) return; 
  <br/>    //   AJAXRequest  ，             
  <br/>    var ajaxobj=new AJAXRequest; 
  <br/>    ajaxobj.url="autosave.asp"; 
  <br/>    ajaxobj.content="memname="+escape(memName)+"&postcontent="+escape(FormContent.value); 
  <br/>    ajaxobj.callback=function(xmlObj) { 
  <br/>        //        
  <br/>        AutoSaveMsg.innerHTML=xmlObj.responseText; 
  <br/>    } 
  <br/>    ajaxobj.send(); 
  <br/>} 
  <br/> 
  <br/>//            
  <br/>function SetAutoSave() { 
  <br/>    //       ？ 
  <br/>    if(document.getElementById("Draft_AutoSave").checked==true) 
  <br/>        //  ，      
  <br/>        AutoSaveTimer=setInterval("AutoSave()",AutoSaveTime); 
  <br/>    else 
  <br/>        //  ，      
  <br/>        clearInterval(AutoSaveTimer); 
  <br/>} 
  <br/> 
  <br/>//           
  <br/>function AutoSaveRestore() { 
  <br/>    //   AJAXRequest   
  <br/>    var ajaxobj=new AJAXRequest; 
  <br/>    //          
  <br/>    AutoSaveMsg.innerHTML="    ，   ……" 
  <br/>    ajaxobj.url="autosave.asp"; 
  <br/>    ajaxobj.content="action=restore&memname="+escape(memName); 
  <br/>    ajaxobj.callback=function(xmlObj) { 
  <br/>        //          
  <br/>        AutoSaveMsg.innerHTML="        "; 
  <br/>        //           textarea    
  <br/>        if(xmlObj.responseText!="") { 
  <br/>            //      
  <br/>            FormContent.value=xmlObj.responseText; 
  <br/>        } 
  <br/>    } 
  <br/>    ajaxobj.send() 
  <br/>} 
  <br/> 
  <br/> 
 </code></pre> 
 <br/> 
 <strong>   autosave.asp，         ：</strong> 
 <br/> 
   
 <pre><code> 
  <br/> 
  <br/> 
  <br/>'    VBScript，   UTF-8，       
  <br/>'        ，     
  <br/>On Error Resume Next 
  <br/> 
  <br/>'        
  <br/>Dim PostContent,memName,action,objStream 
  <br/> 
  <br/>'     ，            
  <br/>action=Request.Form("action") 
  <br/>'       
  <br/>memName=Request.Form("memname") 
  <br/>'        
  <br/>PostContent=Request.Form("postcontent") 
  <br/>IF action="restore" Then 
  <br/>    '     ，                
  <br/>    IF memName<>Empty Then 
  <br/>        '    ADODB.Stream         
  <br/>        Set objStream = Server.CreateObject("ADODB.Stream") 
  <br/>        With objStream 
  <br/>            .Type = 2 
  <br/>            .Mode = 3 
  <br/>            .Open 
  <br/>            '      autosave_ +     + .txt 
  <br/>            .LoadFromFile(Server.MapPath("autosave_"&memName&".txt")) 
  <br/>            .Charset = "utf-8" 
  <br/>            '.Position = 0 
  <br/>            PostContent = .ReadText() 
  <br/>            .Close 
  <br/>        End With 
  <br/>        Set objStream = NoThing 
  <br/>        '      
  <br/>        IF PostContent<>"" Then Response.Write(PostContent) 
  <br/>    End IF 
  <br/>Else 
  <br/>    '     ，                      
  <br/>    IF PostContent<>Empty AND memName<>Empty Then 
  <br/>        '    ADODB.Stream         
  <br/>        Set objStream = Server.CreateObject("ADODB.Stream") 
  <br/>        With objStream 
  <br/>            .Type = 2 
  <br/>            .Mode = 3 
  <br/>            .Open 
  <br/>            .Charset = "utf-8" 
  <br/>            .Position = objStream.Size 
  <br/>            .WriteText= PostContent 
  <br/>            .SaveToFile Server.MapPath("autosave_"&memName&".txt"),2 
  <br/>            .Close 
  <br/>        End With 
  <br/>        Set objStream = NoThing 
  <br/>        '            
  <br/>        If Err.Number=0 then 
  <br/>            Response.Write("    "&Now()&"       ") 
  <br/>        Else 
  <br/>            Response.Write("    "&Now()&"       ，   ："&Err.Number&"，    ："&Err.Dscription) 
  <br/>        End If 
  <br/>    End IF 
  <br/>End IF 
  <br/>%> 
  <br/> 
 </code></pre> 
 <br/>  ，AJAX         。 
 <br/>    ： http://www.xujiwei.cn/blog/blogview.asp?logID=585 
 <div class="clearfix"> 
  <span id="art_bot" class="jbTestPos"/> 
 </div> 
</div>