1 
  2 /**
  3  * @name	CeL function for Ajax
  4  * @fileoverview
  5  * 本檔案包含了 web Ajax 的 functions。
  6  * @since	
  7  */
  8 
  9 if (typeof CeL === 'function'){
 10 
 11 /**
 12  * 本 module 之 name(id)，<span style="text-decoration:line-through;">不設定時會從呼叫時之 path 取得</span>。
 13  * @type	String
 14  * @constant
 15  * @inner
 16  * @ignore
 17  */
 18 var module_name = 'net.Ajax';
 19 
 20 //===================================================
 21 /**
 22  * 若欲 include 整個 module 時，需囊括之 code。
 23  * @type	Function
 24  * @param	{Function} library_namespace	namespace of library
 25  * @param	load_arguments	呼叫時之 argument(s)
 26  * @return
 27  * @name	CeL.net.Ajax
 28  * @constant
 29  * @inner
 30  * @ignore
 31  */
 32 var code_for_including = function(library_namespace, load_arguments) {
 33 
 34 //	requires
 35 if (eval(library_namespace.use_function(
 36 		'code.compatibility.is_DOM')))
 37 	return;
 38 
 39 
 40 /**
 41  * null module constructor
 42  * @class	web Ajax 的 functions
 43  */
 44 CeL.net.Ajax
 45 = function() {
 46 	//	null module constructor
 47 };
 48 
 49 /**
 50  * for JSDT: 有 prototype 才會將之當作 Class
 51  */
 52 CeL.net.Ajax
 53 .prototype = {
 54 };
 55 
 56 
 57 
 58 
 59 
 60 
 61 //	XMLHttp set	ajax通信処理ライブラリ	==================
 62 
 63 
 64 
 65 /*
 66 to use: include in front:
 67 way1(good: 以reg代替functionPath!):
 68 //	[function.js]_iF
 69 //	[function.js]End
 70 
 71 way2(old):
 72 //	[function.js]getU,functionPath,'eval(getU(functionPath));'
 73 //	[function.js]End
 74 
 75 old:
 76 function getU(p){var o;try{o=new ActiveXObject('Microsoft.XMLHTTP');}catch(e){o=new XMLHttpRequest();}if(o)with(o){open('GET',p,false),send(null);return responseText;}}
 77 */
 78 
 79 
 80 
 81 /*	JScript or .wsh only, 能 encode
 82 	http://neural.cs.nthu.edu.tw/jang/books/asp/getWebPage.asp?title=10-1%20%E6%8A%93%E5%8F%96%E7%B6%B2%E9%A0%81%E8%B3%87%E6%96%99
 83 */
 84 function getPage(p,enc,t){	//	page url, encode, POST text
 85 try{
 86  var X=new ActiveXObject('Microsoft.XMLHTTP'),AS;	//	may error
 87  X.open(t?'POST':'GET',p,false);
 88  X.setRequestHeader("Content-Type","application/x-www-form-urlencoded");	//	POST need this
 89  X.send(t||null);	//	Download the file
 90  with(AS=new ActiveXObject("ADODB.Stream")){
 91   Mode=3,	//	可同時進行讀寫
 92   Type=1,	//	以二進位方式操作
 93   Open(),	//	開啟物件
 94   Write(X.responseBody),	//	將 binary 的資料寫入物件內	may error
 95   Position=0,
 96   Type=2;	//	以文字模式操作
 97   if(enc)Charset=enc;	//	設定編碼方式
 98   X=ReadText();	//	將物件內的文字讀出
 99  }
100  AS=0;//AS=null;	//	free
101  return X;
102 }catch(e){
103  //sl('getPage: '+e.message);
104 }}
105 
106 
107 
108 /*	set a new XMLHttp
109 	Ajax程式應該考慮到server沒有回應時之處置
110 
111 return new XMLHttpRequest(for Ajax, Asynchronous JavaScript and XML) controller
112 	http://www.xulplanet.com/references/objref/XMLHttpRequest.html
113 	http://zh.wikipedia.org/wiki/AJAX
114 	http://jpspan.sourceforge.net/wiki/doku.php?id=javascript:xmlhttprequest:behaviour
115 	http://www.scss.com.au/family/andrew/webdesign/xmlhttprequest/
116 	http://developer.apple.com/internet/webcontent/xmlhttpreq.html
117 	http://www.klstudio.com/catalog.asp?cate=4
118 	http://wiki.moztw.org/index.php/AJAX_%E4%B8%8A%E6%89%8B%E7%AF%87
119 	http://www.15seconds.com/issue/991125.htm
120 	http://www.xmlhttp.cn/manual/xmlhttprequest.members.html
121 	http://www.blogjava.net/eamoi/archive/2005/10/31/17489.html
122 	http://www.kawa.net/works/js/jkl/parsexml.html
123 	http://www.twilightuniverse.com/
124 
125 	XMLHttp.readyState 所有可能的值如下：
126 	0 還沒開始
127 	1 讀取中 Sending Data
128 	2 已讀取 Data Sent
129 	3 資訊交換中 interactive: getting data
130 	4 一切完成 Completed
131 
132 	XMLHttp.responseText	會把傳回值當字串用
133 	XMLHttp.responseXML	會把傳回值視為 XMLDocument 物件，而後可用 JavaScript DOM 相關函式處理
134 	IE only(?):
135 	XMLHttp.responseBody	以unsigned array格式表示binary data
136 				try{responseBody=(new VBArray(XMLHttp.responseBody)).toArray();}catch(e){}
137 				http://aspdotnet.cnblogs.com/archive/2005/11/30/287481.html
138 	XMLHttp.responseStream	return AdoStream
139 */
140 function newXMLHttp(enc,isText){
141  //if(typeof XMLHttp=='object')XMLHttp=null;
142  var _new_obj_XMLHttp;
143  if(typeof newXMLHttp.objId=='string')_new_obj_XMLHttp=new ActiveXObject(newXMLHttp.objId);	//	speedy
144  //	jQuery: Microsoft failed to properly implement the XMLHttpRequest in IE7, so we use the ActiveXObject when it is available.
145  else if(typeof ActiveXObject!='undefined')for(var i=0,a=['Msxml2.XMLHTTP','Microsoft.XMLHTTP','Msxml2.XMLHTTP.4.0'];i<a.length;i++)
146   try{_new_obj_XMLHttp=new ActiveXObject(a[i]);newXMLHttp.objId=a[i];break;}catch(e){}//'Msxml2.XMLHTTP.6.0','Msxml2.XMLHTTP.5.0','Msxml2.XMLHTTP.4.0','Msxml2.XMLHTTP.3.0',["MSXML2", "Microsoft", "MSXML"].['XMLHTTP','DOMDocument'][".6.0", ".4.0", ".3.0", ""]
147   //	或直接設定：	XMLHttpRequest=function(){return new ActiveXObject(newXMLHttp.objId);}
148  //	皆無：use XMLDocument. The document.all().XMLDocument is a Microsoft IE subset of JavaScript.	http://www.bindows.net/	http://www.java2s.com/Code/JavaScriptReference/Javascript-Properties/XMLDocument.htm
149  else if(typeof window=='object'&&window.XMLHttpRequest/* && !window.ActiveXObject*/){//typeof XMLHttpRequest!='undefined'
150   _new_obj_XMLHttp=new XMLHttpRequest();
151   //	有些版本的 Mozilla 瀏覽器在伺服器送回的資料未含 XML mime-type 檔頭（header）時會出錯。為了避免這個問題，你可以用下列方法覆寫伺服器傳回的檔頭，以免傳回的不是 text/xml。
152   //	http://squio.nl/blog/2006/06/27/xmlhttprequest-and-character-encoding/
153   //	http://www.w3.org/TR/XMLHttpRequest/	search encoding
154   if(_new_obj_XMLHttp.overrideMimeType)
155    _new_obj_XMLHttp.overrideMimeType('text/'+(isText?'plain':'xml')+(enc?'; charset='+enc:''));//oXML
156  }
157  return _new_obj_XMLHttp;
158 }
159 
160 /*	讀取URL by XMLHttpRequest
161 	http://jck11.pixnet.net/blog/post/11630232
162 
163 * 若有多行程或為各URL設定個別XMLHttp之必要，請在一開始便設定getURL.multi_request，並且別再更改。
164 ** 在此情況下，單一URL仍只能有單一個request!
165 ** 設定 dealFunction 須注意程式在等待回應時若無執行其他程式碼將自動中止！
166 	可設定：
167 	while(getURL.doing)WScript.Sleep(1);	//||timeout
168 
169 arguments f:{
170 	URL:'',	//	The same origin policy prevents document or script loaded from one origin, from getting or setting properties from a of a document from a different origin.(http://www.mozilla.org/projects/security/components/jssec.html#sameorigin)
171 	enc:'UTF-8',	//	encoding: big5, euc-jp,..
172 	fn:(dealFunction),	//	onLoad:function(){},
173 	method:'GET',	//	POST,..
174 	sendDoc:'text send in POST,..'
175 	async:ture/false,	//	true if want to asynchronous(非同期), false if synchronous(同期的,會直到readyState==4才return)	http://jpspan.sourceforge.net/wiki/doku.php?id=javascript:xmlhttprequest:behaviour
176 	user:'userName',
177 	passwd:'****',	//	password
178 
179  //TODO:
180 	parameters:'~=~&~=~', // {a:1,b:2}
181 	header:{contentType:'text/xml'},
182 	contentType:'text/xml',
183 	run:true/false,	//	do eval
184 	update:DOMDocument,	//	use onLoad/onFailed to 加工 return text. onFailed(){throw;} will about change.
185 	interval:\d,
186 	decay:\d,	//	wait decay*interval when no change
187 	maxInterval::\d,
188 	//insertion:top/bottom,..
189 	onFailed:function(error){this.status;},	//	onFailed.apply(XMLHttp,[XMLHttp.status])
190 	onStateChange:function(){},
191  }
192 
193 
194 dealFunction:
195 自行處理	typeof dealFunction=='function':
196 function dealFunction(error){..}
197 代為處理	dealFunction=[d_func,0: responseText,1: responseXML]:
198 	responseXML:	http://msdn2.microsoft.com/en-us/library/ms757878.aspx
199 function d_func(content,head[,XMLHttp,URL]){
200  if(head){
201   //	content,head各為XMLHttp.responseText內容及XMLHttp.getAllResponseHeaders()，其他皆可由XMLHttp取得。
202  }else{
203   //	content為error
204  }
205 }
206 e.g., the simplest: [function(c,h){h&&alert(c);}]
207 
208 )
209 */
210 getURL[generateCode.dLK]='newXMLHttp';
211 function getURL(f){	//	(URL,fn) or flag			URL,dealFunction,method,sendDoc,asyncFlag,userName,password
212  var _f=arguments.callee;
213  if(typeof _f.XMLHttp=='object'){
214   //try{_f.XMLHttp.abort();}catch(e){}
215   _f.XMLHttp=null;	//	此時可能衝突或lose?!
216  }
217  //	處理 arguments
218  if(!(f instanceof Object))a=arguments,f={URL:f,fn:a[1],method:a[2],sendDoc:a[3]};
219 
220  if(!f.URL||!(_f.XMLHttp=newXMLHttp(f.enc,!/\.x(ht)?ml$/i.test(f.URL))))return;//throw
221  //try{_f.XMLHttp.overrideMimeType('text/xml');}catch(e){}
222  if(typeof f.async!='boolean')
223   //	設定f.async
224   f.async=f.fn?true:false;
225  else if(!f.async)f.fn=null;
226  else if(!f.fn)
227   if(typeof _f.HandleStateChange!='function'||typeof _f.HandleContent!='function')
228    // 沒有能處理的function
229    return;//throw
230   else
231    f.fn=_f.HandleContent;//null;
232  if(/*typeof _f.multi_request!='undefined'&&*/_f.multi_request){
233   if(!_f.q)_f.i={},_f.q=[];	//	queue
234   _f.i[f.URL]=_f.q.length;	//	** 沒有考慮到 POST 時 URL 相同的情況!
235   _f.q.push({uri:f.URL,XMLHttp:_f.XMLHttp,func:f.fn,start:_f.startTime=new Date})
236  }else if(_f.q&&typeof _f.clean=='function')_f.clean();
237 
238  //	for Gecko Error: uncaught exception: Permission denied to call method XMLHttpRequest.open
239  if(f.URL.indexOf('://')!=-1&&typeof netscape=='object')
240   if(_f.asked>2){_f.clean(f.URL);return;}
241   else try{
242    if(typeof _f.asked=='undefined')
243     _f.asked=0,alert('我們需要一點權限來使用 XMLHttpRequest.open。\n* 請勾選記住這項設定的方格。');
244    netscape.security.PrivilegeManager.enablePrivilege('UniversalXPConnect');
245   }catch(e){_f.asked++;_f.clean(f.URL);return;}//UniversalBrowserAccess
246 
247  //if(isNaN(_f.timeout))_f.timeout=300000;//5*60*1000;
248  with(_f.XMLHttp)try{	//	IE:404會throw error, timeout除了throw error, 還會readystatechange; Gecko亦會throw error
249   try{setRequestHeader("Accept-Encoding","gzip,deflate");}catch(e){}
250   //	Set header so the called script knows that it's an XMLHttpRequest
251   //setRequestHeader("X-Requested-With","XMLHttpRequest");
252   //	Set the If-Modified-Since header, if ifModified mode.
253   //setRequestHeader("If-Modified-Since","Thu, 01 Jan 1970 00:00:00 GMT");
254   if(f.method=='POST'){//&&_f.XMLHttp.setRequestHeader
255    //setRequestHeader("Content-Length",f.sendDoc.length);	//	use .getAttribute('method') to get	長度不一定如此
256    //	有些CGI會用Content-Type測試是XMLHttp或是regular form
257    //	It may be necessary to specify "application/x-www-form-urlencoded" or "multipart/form-data" for posted XML data to be interpreted on the server.
258    setRequestHeader('Content-Type',f.fn instanceof Array&&f.fn[1]?'text/xml':'application/x-www-form-urlencoded');	//	application/x-www-form-urlencoded;charset=utf-8
259   }
260   abort();
261   open(f.method||'GET',f.URL,f.async,f.user||null,f.passwd||null);
262   //alert((f.method||'GET')+','+f.URL+','+f.async);
263   //	 根據 W3C的 XMLHttpRequest 規格書上說，①在呼叫 open 時，如果readyState是4(Loaded) ②呼叫abort之後 ③發生其他錯誤，如網路問題，無窮迴圈等等，則會重設所有的值。使用全域的情況就只有第一次可以執行，因為之後的readyState是4，所以onreadystatechange 放在open之前會被清空，因此，onreadystatechange 必須放在open之後就可以避免這個問題。	http://www.javaworld.com.tw/jute/post/view?bid=49&id=170177&sty=3&age=0&tpg=1&ppg=1
264   //	每使用一次XMLHttpRequest，不管成功或失敗，都要重設onreadystatechange一次。onreadystatechange 的初始值是 null
265   //	After the initial response, all event listeners will be cleared. Call open() before setting new event listeners.	http://www.xulplanet.com/references/objref/XMLHttpRequest.html
266   if(f.async)
267 	_f.doing=(_f.doing||0)+1,
268 	onreadystatechange=typeof f.fn=='function'?f.fn:function(e){_f.HandleStateChange(e,f.URL,f.fn);},//||null
269 	//	應加 clearTimeout( )
270 	setTimeout('try{getURL.'+(_f.multi_request?'q['+_f.i[f.URL]+']':'XMLHttp')+'.onreadystatechange();}catch(e){}',_f.timeout||3e5);//5*60*1000;
271   send(f.sendDoc||null);
272   if(!f.fn)return responseText;//responseXML: responseXML.loadXML(text)	//	非async(異步的)能在此就得到response。Safari and Konqueror cannot understand the encoding of text files!	http://www.kawa.net/works/js/jkl/parsexml.html
273  }catch(e){if(typeof f.fn=='function')f.fn(e);else if(typeof window=='object')window.status=e.message;return e;}
274 }
275 getURL.timeoutCode=-7732147;
276 
277 //	agent handle function
278 getURL.HandleStateChange=function(e,URL,dealFunction){	//	e: object Error, dealFunction: function(return text, heads, XMLHttpRequest object, URL) | [ function, (default|NULL:responseText, others:responseXML) ]
279  var _t=0,isOKc,m=getURL.multi_request,_oXMLH;
280  if(m)m=getURL.q[isNaN(URL)?getURL.i[URL]:URL],_oXMLH=m.XMLHttp,dealFunction=m.func,URL=m.uri;else _oXMLH=getURL.XMLHttp;
281  if(dealFunction instanceof Array)_t=dealFunction[1],dealFunction=dealFunction[0];
282  if(!dealFunction || typeof dealFunction!='function'){getURL.doing--;getURL.clean(URL);return;}
283  //	http://big5.chinaz.com:88/book.chinaz.com/others/web/web/xml/index1/21.htm
284  if(!e)
285   if(typeof _oXMLH=='object'&&_oXMLH){
286    if(_oXMLH.parseError&&_oXMLH/*.responseXML*/.parseError.errorCode!=0)
287     e=_oXMLH.parseError,e=new Error(e.errorCode,e.reason);
288    else if(_oXMLH.readyState==4){	//	only if XMLHttp shows "loaded"
289     isOKc=_oXMLH.status;	//	condition is OK?
290     isOKc=isOKc>=200&&isOKc<300||isOKc==304||!isOKc&&(location.protocol=="file:"||location.protocol=="chrome:");
291     if(dealFunction==getURL.HandleContent)dealFunction(0,isOKc,_oXMLH,URL);//dealFunction.apply()
292     else dealFunction(
293 	isOKc?_t?_oXMLH.responseXML:
294 		//	JKL.ParseXML: Safari and Konqueror cannot understand the encoding of text files.
295 		typeof window=='object'&&window.navigator.appVersion.indexOf("KHTML")!=-1&&!(e=escape(_oXMLH.responseText)).indexOf("%u")!=-1?e:_oXMLH.responseText
296 	:0
297 	,isOKc?_oXMLH.getAllResponseHeaders():0,_oXMLH,URL);//dealFunction.apply()
298     //	URL之protocol==file: 可能需要重新.loadXML((.responseText+'').replace(/<\?xml[^?]*\?>/,""))
299     //	用 .responseXML.documentElement 可調用
300     getURL.doing--;getURL.clean(URL);
301     return;
302    }
303   }else if(new Date-(m?m.start:getURL.startTime)>getURL.timeout)
304    //	timeout & timeout function	http://www.stylusstudio.com/xmldev/199912/post40380.html
305    e=new Error(getURL.timeoutCode,'Timeout!');//_oXMLH.abort();
306  //alert(URL+'\n'+_t+'\n'+e+'\n'+_oXMLH.readyState+'\n'+dealFunction);
307  if(e){dealFunction(e,0,_oXMLH,URL);getURL.doing--;getURL.clean(URL);}//dealFunction.apply(e,URL);
308 };
309 
310 /*	agent content handle function
311 有head時content包含回應，否則content表error
312 */
313 getURL.HandleContent=function(content,head,_oXMLHttp,URL){
314  if(head){
315   // _oXMLHttp.getResponseHeader("Content-Length")
316   alert("URL:	"+URL+"\nHead:\n"+_oXMLHttp.getAllResponseHeaders()+"\n------------------------\nLastModified: "+_oXMLHttp.getResponseHeader("Last-Modified")+"\nResult:\n"+_oXMLHttp.responseText.slice(0,200));//_oXMLHttp.responseXML.xml
317  }else{
318   //	error	test時，可用getURL.XMLHttp.open("HEAD","_URL_",true);，getURL(url,dealResult,'HEAD',true)。
319   if(content instanceof Error)alert('Error occured!\n'+(typeof e=='object'&&e.number?e.number+':'+e.message:e||''));
320   else if(typeof _oXMLHttp=='object'&&_oXMLHttp)alert((_oXMLHttp.status==404?"URL doesn't exist!":'Error occured!')+'\n\nStatus: '+_oXMLHttp.status+'\n'+_oXMLHttp.statusText);
321  }
322 };
323 
324 //	在MP模式下清乾淨queue
325 getURL.clean=function(i,force){
326  if(force||getURL.multi_request)
327   if(!i&&isNaN(i)){
328    if(getURL.q)
329     for(i in getURL.i)
330      try{
331       getURL.q[getURL.i[i]].XMLHttp.abort();
332       //getURL.q[getURL.i[i]].XMLHttp=null;
333      }catch(e){}
334    getURL.q=getURL.i=0;//null
335   }else if(!isNaN(i)||!isNaN(i=getURL.i[typeof i=='object'?i.uri:i])){
336    try{getURL.q[i].XMLHttp.abort();}catch(e){};
337    //getURL.q[i].XMLHttp=0;
338    delete getURL.i[getURL.q[i].uri];getURL.q[i]=0;
339   }
340 };
341 
342 //	↑XMLHttp set	==================
343 
344 
345 
346 
347 
348 
349 return (
350 	CeL.net.Ajax
351 );
352 };
353 
354 //===================================================
355 
356 CeL.setup_module(module_name, code_for_including);
357 
358 };
359