制作网页的23个经典代码(JavaScript)

    1.oncontextmenu="window.event.returnvalue=false"将彻底屏蔽鼠标右键
       <tableborderoncontextmenu=return(false)><td>no</table>可用于Table
    2.<bodyonselectstart="returnfalse">取消选取、防止复制
    3.onpaste="returnfalse"不准粘贴
   
    4.oncopy="returnfalse;"oncut="returnfalse;"防止复制
   
    5.<linkrel="ShortcutIcon"href="favicon.ico">IE地址栏前换成自己的图标
   
    6.<linkrel="Bookmark"href="favicon.ico">可以在收藏夹中显示出你的图标
   
    7.<inputstyle="ime-mode:disabled">关闭输入法
   
    8.永远都会带着框架
    <scriptlanguage="javascript"><!--
    if(window==top)top.location.href="frames.htm";//frames.htm为框架网页
    //--></script>
   
    9.防止被人frame
    <SCRIPTLANGUAGE=javascript><!--
    if(top.location!=self.location)top.location=self.location;
    //--></SCRIPT>
   
    10.<noscript><iframesrc=*.html></iframe></noscript>网页将不能被另存为
   
    11.<inputtype=buttonvalue=查看网页源代码
    onclick="window.location='view-source:'+'<IMG src="pic/url.gif" align=absMiddle border=0>http://www.csdn.net/">
   
    12.怎样通过asp的手段来检查来访者是否用了代理
    <%ifRequest.ServerVariables("HTTP_X_FORWARDED_FOR")<>""then
    response.write"<fontcolor=#FF0000>您通过了代理服务器，"&_
    "真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
    endif
    %>
   
    13.取得控件的绝对位置
   
    //javascript
    <scriptlanguage="javascript">
    functiongetIE(e){
    vart=e.offsetTop;
    varl=e.offsetLeft;
    while(e=e.offsetParent){
    t+=e.offsetTop;
    l+=e.offsetLeft;
    }
    alert("top="+t+"/nleft="+l);
    }
    </script>
   
    //VBScript
    <scriptlanguage="VBScript"><!--
    functiongetIE()
    dimt,l,a,b
    seta=document.all.img1
    t=document.all.img1.offsetTop
    l=document.all.img1.offsetLeft
    whilea.tagName<>"BODY"
    seta=a.offsetParent
    t=t+a.offsetTop
    l=l+a.offsetLeft
    wend
    msgbox"top="&t&chr(13)&"left="&l,64,"得到控件的位置"
    endfunction
    --></script>
   
    14.光标是停在文本框文字的最后
    <scriptlanguage="javascript">
    functioncc()
    {
    vare=event.srcElement;
    varr=e.createTextRange();
    r.moveStart('character',e.value.length);
    r.collapse(true);
    r.select();
    }
    </script>
    <inputtype=textname=text1value="123"onfocus="cc()">
   
    15.判断上一页的来源
    asp:
    request.servervariables("HTTP_REFERER")
   
    javascript:
    document.referrer
   
    16.最小化、最大化、关闭窗口
    <objectid=hh1classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
    <paramname="Command"value="Minimize"></object>
    <objectid=hh2classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
    <paramname="Command"value="Maximize"></object>
    <OBJECTid=hh3classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
    <PARAMNAME="Command"value="Close"></OBJECT>
   
    <inputtype=buttonvalue=最小化onclick=hh1.Click()>
    <inputtype=buttonvalue=最大化onclick=hh2.Click()>
    <inputtype=buttonvalue=关闭onclick=hh3.Click()>
    本例适用于IE
   
    17.
    <%
    '定义数据库连接的一些常量
    ConstadOpenForwardOnly=0'游标只向前浏览记录，不支持分页、Recordset、BookMark
    ConstadOpenKeyset=1'键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark
    ConstadOpenDynamic=2'动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。
    ConstadOpenStatic=3'静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动
   
    ConstadLockReadOnly=1'锁定类型，默认的，只读，不能作任何修改
    ConstadLockPessimistic=2'当编辑时立即锁定记录，最安全的方式
    ConstadLockOptimistic=3'只有在调用Update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等
    ConstadLockBatchOptimistic=4'当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的
   
    ConstadCmdText=&H0001
    ConstadCmdTable=&H0002
    %>
   
    18.网页不会被缓存
    HTM网页
    <METAHTTP-EQUIV="pragma"CONTENT="no-cache">
    <METAHTTP-EQUIV="Cache-Control"CONTENT="no-cache,must-revalidate">
    <METAHTTP-EQUIV="expires"CONTENT="Wed,26Feb199708:21:57GMT">
    或者<METAHTTP-EQUIV="expires"CONTENT="0">
    ASP网页
    Response.Expires=-1
    Response.ExpiresAbsolute=Now()-1
    Response.cachecontrol="no-cache"
    PHP网页
    header("Expires:Mon,26Jul199705:00:00GMT");
    header("Cache-Control:no-cache,must-revalidate");
    header("Pragma:no-cache");
   
   
    19.检查一段字符串是否全由数字组成
    <scriptlanguage="javascript"><!--
    functioncheckNum(str){returnstr.match(//D/)==null}
    alert(checkNum("1232142141"))
    alert(checkNum("123214214a1"))
    //--></script>
   
    20.获得一个窗口的大小
    document.body.clientWidth,document.body.clientHeight
   
    21.怎么判断是否是字符
    if(/[^/x00-/xff]/g.test(s))alert("含有汉字");
    elsealert("全是字符");
   
    22.TEXTAREA自适应文字行数的多少
    <textarearows=1 name=s1 cols=27 onpropertychange="this.style.posHeight=this.scrollHeight">
    </textarea>
   
    23.日期减去天数等于第二个日期
    <scriptlanguage=javascript>
    functioncc(dd,dadd)
    {
    //可以加上错误处理
    vara=newDate(dd)
    a=a.valueOf()
    a=a-dadd*24*60*60*1000
    a=newDate(a)
    alert(a.getFullYear()+"年"+(a.getMonth()+1)+"月"+a.getDate()+"日")
    }
    cc("12/23/2002",2)
    </script>
   
    24.选择了哪一个Radio
    <HTML><scriptlanguage="vbscript">
    functioncheckme()
    foreachobinradio1
    ifob.checkedthenwindow.alertob.value
    next
    endfunction
    </script><BODY>
    <INPUT name="radio1" type="radio" value="style" checked>style
    <INPUT name="radio1" type="radio" value="barcode">Barcode
    <INPUT type="button" value="check"onclick="checkme()">
    </BODY></HTML>
   
    25.获得本页url的request.servervariables("")集合
    Response.Write"<TABLEborder=1><!--TableHeader--><TR><TD><B>Variables</B></TD><TD><B>value</B></TD></TR>"
    foreachobinRequest.ServerVariables
    Response.Write"<TR><TD>"&ob&"</TD><TD>"&Request.ServerVariables(ob)&"</TD></TR>"
    next
    Response.Write"</TABLE>"
   
    26.
    本机ip<%=request.servervariables("remote_addr")%>
    服务器名<%=Request.ServerVariables("SERVER_NAME")%>
    服务器IP<%=Request.ServerVariables("LOCAL_ADDR")%>
    服务器端口<%=Request.ServerVariables("SERVER_PORT")%>
    服务器时间<%=now%>
    IIS版本<%=Request.ServerVariables"SERVER_SOFTWARE")%>
    脚本超时时间<%=Server.ScriptTimeout%>
    本文件路径<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>
    服务器CPU数量<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
     服务器解译引擎<%=ScriptEngine&"/" & ScriptEngineMajorVersion &"." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion%>
    服务器操作系统<%=Request.ServerVariables("OS")%>
   
    27.ENTER键可以让光标移到下一个输入框
    <input onkeydown="if(event.keyCode==13)event.keyCode=9">
   
    28.检测某个网站的链接速度：
    把如下代码加入<body>区域中:
    <scriptlanguage=javascript>
    tim=1
    setInterval("tim++",100)
    b=1
   
    varautourl=newArray()
    autourl[1]="< src="pic/url.gif" align=absMiddle border=0>www.njcatv.net"
    autourl[2]="javacool.3322.net"
    autourl[3]="< src="pic/url.gif" align=absMiddle border=0>www.sina.com.cn"
    autourl[4]="www.nuaa.edu.cn"
    autourl[5]="< src="pic/url.gif" align=absMiddle border=0>www.cctv.com"
   
    functionbutt(){
    document.write("<formname=autof>")
    for(vari=1;i<autourl.length;i++)
    document.write ("<inputtype=textname=txt"+i+"size=10value=测试中……>=》<inputtype= textname=url"+i+"size=40>=》<inputtype=buttonvalue=GOonclick= window.open(this.form.url"+i+".value)><br/>")
    document.write("<inputtype=submitvalue=刷新></form>")
    }
    butt()
    functionauto(url){
    document.forms[0]["url"+b].value=url
    if(tim>200)
    {document.forms[0]["txt"+b].value="链接超时"}
    else
    {document.forms[0]["txt"+b].value="时间"+tim/10+"秒"}
    b++
    }
    functionrun(){for(vari=1;i<autourl.length;i++)document.write("<imgsrc=http://"+autourl[i]+"/"+Math.random()+"width=1height=1onerror=auto('< src="pic/url.gif" align=absMiddle border=0>http://";+autourl[i]+"')>")}
    run()</script>
   
   
    29.各种样式的光标
    auto：标准光标
    default：标准箭头
    hand：手形光标
    wait：等待光标
    text：I形光标
    vertical-text：水平I形光标
    no-drop：不可拖动光标
    not-allowed：无效光标
    help：?帮助光标
    all-scroll：三角方向标
    move：移动标
    crosshair：十字标
    e-resize
    n-resize
    nw-resize
    w-resize
    s-resize
    se-resize
    sw-resize
   
    1.本地无缓存，每次自动刷新
    response.expires=0
    response.addHeader"pragma","no-cache"
    response.addHeader"cache-control","private"
   
    2.修改contentType并下载gif等格式
    <%
    functiondl(f,n)
    onerrorresumenext
   
    sets=CreateObject("Adodb.Stream")
    S.Mode=3
    S.Type=1
    S.Open
    s.LoadFromFile(server.mappath(f))
    iferr.number>0then
    response.writeerr.number&":"&err.description
    else
    response.contentType="application/x-gzip"
    response.addheader"Content-Disposition:","attachment;filename="&n
    response.binarywrite(s.Read(s.size))
    endif
    endfunction
   
    calldl("012922501.gif","t1.gif")
    %>
   
   
    19.检查一段字符串是否全由数字组成
    <scriptlanguage="javascript"><!--
    functioncheckNum(str){return!//D/.test(str)}
    alert(checkNum("1232142141"))
    alert(checkNum("123214214a1"))
    //--></script>
   
    20.获得一个窗口的大小
    document.body.clientWidth,document.body.clientHeight
    document.body.offsetWidth,document.body.offsetHeight
    有时还需要知道window.screenTop,window.screenLeft
   
    21.怎么判断是否含有汉字
    if(escape(str).indexOf("%u")!=-1)alert("含有汉字");
    elsealert("全是字符");
   
    22.TEXTAREA自适应文字行数的多少
    IE5.5+可以用overflow-y:visible
    <textarearows=1name=s1cols=27style="overflow-y:visible">
    </textarea>
   
    23.日期减去天数等于第二个日期
    <scriptlanguage=javascript>
    functioncc(dd,dadd)
    {
    //可以加上错误处理
    vard=newDate(dd.replace("-","/"))
    d.setDate(d.getDate()+dadd)
    alert(d.getFullYear()+"年"+(d.getMonth()+1)+"月"+d.getDate()+"日")
    }
    cc("2002-2-28",2)
    </script>