// Version : 1.003
// Original File Name : EinsEMailCheck.js
// Last Modified : 2008/11/20
// Copyright(c) 2007 NewType Inortech. All Rights Reserved. http://www.newtype.com.tw
// Originally published and documented at http://www.einstand.idv.tw
//
function EinsEMailChkF1(a03,a07){var a09=a03;var p=a09.indexOf("%Row");if(p!=-1){var ls="";var rs="";if(p>0)ls=a09.substring(0,p);var a08=p+4;if(a08<a09.length)rs=a09.substring(a08,a09.length);return ls+a07+rs;}return a03;}function EMail_Check2(a02,a03,a01,a07){var a10=a02.value;if(a01!=null){if(a01){if(a10.length==0)return'';}}var a06=a10.length;if(a06==0){a02.focus();if(a07!=null){return EinsEMailChkF1(a03,a07);}return a03;}for(var i=0;i<a06;i++){var c=a10.charAt(i);if(!((c>='A'&&c<='Z')||(c>='a'&&c<='z')||(c>='0'&&c<='9')||(c=='-')||(c=='_')||(c=='.')||(c=='@'))){a02.focus();if(a07!=null){return EinsEMailChkF1(a03,a07);}return a03;}}var p1=a10.indexOf('@');var p2=a10.indexOf('.');if((p1==-1)||(p1==0)||(p1==(a06-1)))return a03;if((p1!=-1)&&(a10.substring(p1+1,a06).indexOf('@')!=-1)){a02.focus();if(a07!=null){return EinsEMailChkF1(a03,a07);}return a03;}if((p2==-1)||(p2==0)||(a10.lastIndexOf('.')==(a06-1))){a02.focus();if(a07!=null){return EinsEMailChkF1(a03,a07);}return a03;}return'';}
function EMail_Check(a04,a05,a03,a01){var a02=eval("document."+a04+"."+a05);return EMail_Check2(a02,a03,a01,null);}