javascript使用技巧大全(编辑修改稿)

javascript使用技巧大全(编辑修改稿)内容摘要：

function () { if (()amp。 amp。 ((==37)|| //屏蔽 Alt+ 方向键 ← (==39))) //屏蔽 Alt+ 方向键 → { alert(不准你使用 ALT+方 向键前进或后退网页。 )。 =false。 } /* 注：这还不是真正地屏蔽 Alt+ 方向键， 因为 Alt+ 方向键弹出警告框时，按住 Alt 键不放， 用鼠标点掉警告框，这种屏蔽方法就失效了。 以后若 有哪位高手有真正屏蔽 Alt 键的方法，请告知。 */ if ((==8) || //屏蔽退格删除键 (==116)|| //屏蔽 F5 刷新键 ( amp。 amp。 ==82)){ //Ctrl + R =0。 =false。 } if (==122){=0。 =false。 } //屏蔽 F11 if ( amp。 amp。 ==78) =false。 //屏蔽 Ctrl+n if ( amp。 amp。 ==121)=false。 //屏蔽 shift+F10 if ( == A amp。 amp。 ) = false。 //屏蔽 shift 加鼠标左键新开一网页 if (()amp。 amp。 (==115)) //屏蔽 Alt+F4 { (about:blank,dialogWidth:1px。 dialogheight:1px)。 return false。 } } /script 屏蔽鼠 标右键、 Ctrl+N、 Shift+F Alt+F F1 F5 刷新、退格键 /body /html //屏蔽打印 style @media print{ * {display:none} } /style //移动的图层，拖动 1.span style=39。 position:absolute。 width:200。 height:200。 background:red39。 onmousedown=MouseDown(this) onmousemove=MouseMove() onmouseup=MouseUp()meizz/span script language=javascript var Obj。 function MouseDown(obj) { Obj=obj。 ()。 =。 =。 } function MouseMove() { if(Obj!=null) { =。 =。 } } function MouseUp() { if(Obj!=null) { ()。 Obj=null。 } } /script 2. div id=myDiv src= ondrag=doDrag()。 onmouseover==39。 hand39。 style=position:absolute。 left=100。 top=100。 onmousedown=doMouseDown()。 a href= onclick=return falseh1wlee/h1/a /div script language=JavaScript type=text/javascript var MouseX。 var MouseY。 var ObjX。 var ObjY。 function doDrag() { var myObject=。 var x=。 var y=。 =x(MouseXObjX)。 =y(MouseYObjY)。 } function doMouseDown() { MouseX=。 MouseY=。 ObjX=parseInt()。 ObjY=parseInt()。 } /script //文档状态改变 iframe src= id=f name=f scrolling=no frameborder=0 marginwidth=0 marginheight=0/iframe script var doc=[f].document。 function s(){ if (==plete){ = = } } =s /script //刷新后不变的文本框 HTML HEAD META NAME=save CONTENT=history STYLE .sHistory {behavior:url(defaultsavehistory)。 } /STYLE /HEAD BODY INPUT class=sHistory type=text id=oPersistInput /BODY /HTML //访问剪贴板 (1)拖拽访问 (URL, )。 sImageURL = (URL) (2)普通访问 (Text,)。 (Text)。 //操作 COOKIE function SetCookie(sName, sValue) { = sName + = + escape(sValue) +。 } function GetCookie(sName) { var aCookie = (。 )。 for (var i=0。 i。 i++) { var aCrumb = aCookie[i].split(=)。 if (sName == aCrumb[0]) return unescape(aCrumb[1])。 } } function DelCookie(sName) { = sName + = + escape(sValue) +。 expires=Fri, 31 Dec 1999 23:59:59 GMT。 } //setTimeout 增加参数 script var _st =。 = function(fRef, mDelay) { if(typeof fRef == 39。 function39。 ){ var argu = (arguments,2)。 var f = (function(){ (null, argu)。 })。 return _st(f, mDelay)。 } return _st(fRef,mDelay)。 } function test(x){ alert(x)。 } (test,1000,39。 fason39。 )。 /script //自定义的 apply,call = function (obj, argu) { if (obj) = this。 var argus = new Array()。 for (var i=0。 i。 i++) argus[i] = argu[ + i + ]。 var r。 eval(r = + (obj ? (( + (,) + )。 ) : (this( + (,) + )。 )))。 return r。 }。 = function (obj) { var argu = new Array()。 for (var i=1。 i。 i++) argu[i1] = arguments[i]。 return (obj, argu)。 }。 //下载文件 function DownURL(strRemoteURL,strLocalURL) { try { var xmlHTTP=new ActiveXObject()。 (Get,strRemoteURL,false)。 ()。 var adodbStream=new ActiveXObject()。 =1。 //1=adTypeBinary ()。 ()。 (strLocalURL,2)。 ()。 adodbStream=null。 xmlHTTP=null。 } catch(e) { (下载 URL 出错 !)。 } //(下载完成 .)。 } //检验连接是否有效 function getXML(URL) { var xml = new ActiveXObject()。 (GET,URL, false)。 try { ()。 } catch(e){} finally { var result =。 if(result) { if(==200) { return(true)。 } else { return(false)。 } } else { return(false)。 } } } //POST 代替 FORM SCRIPT language=VBScript Function URLEncoding(vstrIn) strReturn = For i = 1 To Len(vstrIn) ThisChr = Mid(vStrIn,i,1) If Abs(Asc(ThisChr)) amp。 HFF Then strReturn = strReturn amp。 ThisChr Else innerCode = Asc(ThisChr) If innerCode 0 Then innerCode = innerCode + amp。 H10000 End If Hight8 = (innerCode And amp。 HFF00)\ amp。 HFF Low8 = innerCode And amp。 HFF strReturn = strReturn amp。 % amp。 Hex(Hight8) amp。 % amp。 Hex(Low8) End If Next URLEncoding = strReturn End Function Function bytes2BSTR(vIn) strReturn = For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode amp。 H80 Then strReturn = strReturn amp。 Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn amp。 Chr(CLng(ThisCharCode) * amp。 H100 + CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End Function dim strA,oReq strA。