zoukankan      html  css  js  c++  java
  • 整理收藏: ASP 三十二条精华代码

       1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键
      <table border oncontextmenu=return(false)><td>no</table> 可用于Table

      2. <body onselectstart="return false"> 取消选取、防止复制

      3. onpaste="return false" 不准粘贴

      4. oncopy="return false;" oncut="return false;" 防止复制

      5. <link rel="Shortcut Icon" href="favicon.ico"> IE地址栏前换成自己的图标

      6. <link rel="Bookmark" href="favicon.ico"> 可以在收藏夹中显示出你的图标

      如何制作将本站设为首页

      你可能已经注意到,现在许多网站的首页上都有这么一个链接"按这里将本站设为首页"(这里的首页指的是浏览器的起始页)。

      不但大的ISP,ICP这么做,一些个人主页也推出这一"服务"以招揽网友,具体是如何实现这个功能的呢?我来帮你剖析一下:

      点击那个超链接会显示下载一个名为lspace.reg的文件,下载后双击它,便会修改你的注册表,然后当你再打开浏览器的时候,起始页就发生了变化。(一听到修改注册表,许多网友就比较"怵",会不会把windows给弄坏了。)

      别怕,我们来打开lspace.reg看看(用最普通的notepad记事本就可以打开),发现内容如下:

    REGEDIT4
    [HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
    "Start Page" = "http://www.aygame.com/";
    [HKEY_CURRENT_USER\Software\Netscape\Netscape Navigator\Main]"Home Page" = "http://www.aygame.com/"; 
     


      原来就两条,第一条设置IE的star page;第二条设置NC的home page(没什么花头噢:)。后面跟的URL就是你主页的网址!

      7. <input style="ime-modeisabled"> 关闭输入法

      8. 永远都会带着框架

      <script language="****"><!--
      if (window == top)top.location.href = "frames.htm"; //frames.htm为框架网页
      // --></script>

      9. 防止被人frame

      <SCRIPT LANGUAGE=****><!--
      if (top.location != self.location)top.location=self.location;
      // --></SCRIPT>

      10. <noscript><iframe src=*.html></iframe></noscript> 网页将不能被另存为

      11. <input type=button value=查看网页源代码
      onclick="window.location = 'view-source:'+ 'http://www.csdn.net/'">

      12. 怎样通过asp的手段来检查来访者是否用了代理

      <% if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then
      response.write "<font color=#FF0000>您通过了代理服务器,"& _
      "真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
      end if
      %>

      13. 取得控件的绝对位置

      //****
      <script language="****">
      function getIE(e){
      var t=e.offsetTop;
      var l=e.offsetLeft;
      while(e=e.offsetParent){
      t+=e.offsetTop;
      l+=e.offsetLeft;
      }
      alert("top="+t+"\nleft="+l);
      }
      </script>

      //VBScript
      <script language="VBScript"><!--
      function getIE()
      dim t,l,a,b
      set a=document.all.img1
      t=document.all.img1.offsetTop
      l=document.all.img1.offsetLeft
      while a.tagName<>"BODY"
      set a = a.offsetParent
      t=t+a.offsetTop
      l=l+a.offsetLeft
      wend
      msgbox "top="&t&chr(13)&"left="&l,64,"得到控件的位置"
      end function
      --></script>
    14. 光标是停在文本框文字的最后
      <script language="****">
      function cc()
      {
      var e = event.srcElement;
      var r =e.createTextRange();
      r.moveStart('character',e.value.length);
      r.collapse(true);
      r.select();
      }
      </script>
      <input type=text name=text1 value="123" onfocus="cc()">

      15. 判断上一页的来源
      asp:
      request.servervariables("HTTP_REFERER")

      ****:
      document.referrer

      16. 最小化、最大化、关闭窗口

      <object id=hh1 classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
      <param name="Command" value="Minimize"></object>
      <object id=hh2 classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
      <param name="Command" value="Maximize"></object>
      <OBJECT id=hh3 classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
      <PARAM NAME="Command" value="Close"></OBJECT>

      <input type=button value=最小化 onclick=hh1.Click()>
      <input type=button value=最大化 onclick=hh2.Click()>
      <input type=button value=关闭 onclick=hh3.Click()>

      本例适用于IE

      17.

      <%
      '定义数据库连接的一些常量
      Const adOpenForwardOnly = 0 '游标只向前浏览记录,不支持分页、Recordset、BookMark
      Const adOpenKeyset = 1 '键集游标,其他用户对记录说做的修改将反映到记录集中,但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark Const adOpenDynamic = 2 '动态游标功能最强,但耗资源也最多。用户对记录说做的修改,增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。

      Const adOpenStatic = 3 '静态游标,只是数据的一个快照,用户对记录说做的修改,增加或删除记录都不会反映到记录集中。支持向前或向后移动

      Const adLockReadOnly = 1 '锁定类型,默认的,只读,不能作任何修改
      Const adLockPessimistic = 2 '当编辑时立即锁定记录,最安全的方式
      Const adLockOptimistic = 3 '只有在调用update方法时才锁定记录集,而在此前的其他操作仍可对当前记录进行更改、插入和删除等
      Const adLockBatchOptimistic = 4 '当编辑时记录不会被锁定,而更改、插入和删除是在批处理方式下完成的

      Const adCmdText = &H0001
      Const adCmdTable = &H0002
      %>

      18. 网页不会被缓存

      HTM网页

      <META HTTP-EQUIV="pragma" CONTENT="no-cache">
      <META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate">
      <META HTTP-EQUIV="expires" CONTENT="Wed, 26 Feb 1997 08:21:57 GMT">
      或者<META HTTP-EQUIV="expires" CONTENT="0">

      ASP网页

      Response.Expires = -1
      Response.ExpiresAbsolute = Now() - 1
      Response.cachecontrol = "no-cache"

      PHP网页
      header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
      header("Cache-Control: no-cache, must-revalidate");
      header("Pragma: no-cache");


      19. 检查一段字符串是否全由数字组成

      <script language="****"><!--
      function checkNum(str){return str.match(/\D/)==null}
      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 (/[^\x00-\xff]/g.test(s)) alert("含有汉字");
      else alert("全是字符");

      22.TEXTAREA自适应文字行数的多少

      <textarea rows=1 name=s1 cols=27 onpropertychange="this.style.posHeight=this.scrollHeight">
      </textarea>

      23. 日期减去天数等于第二个日期

      <script language=****>
      function cc(dd,dadd)
      {
      //可以加上错误处理
      var a = new Date(dd)
      a = a.valueOf()
      a = a - dadd * 24 * 60 * 60 * 1000
      a = new Date(a)
      alert(a.getFullYear() + "年" + (a.getMonth() + 1) + "月" + a.getDate() + "日")
      }
      cc("12/23/2002",2)
      </script>

      24. 选择了哪一个Radio

      <HTML><script language="vbscript">
      function checkme()
      for each ob in radio1
      if ob.checked then window.alert ob.value
      next
      end function
      </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 "<TABLE border=1><!-- Table Header --><TR><TD><B>Variables</B></TD><TD><B>value</B></TD></TR>"
      for each ob in Request.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>区域中:
      <script language=****>
      tim=1
      setInterval("tim++",100)
      b=1

      var autourl=new Array()
      autourl[1]="www.njcatv.net"
      autourl[2]="javacool.3322.net"
      autourl[3]="www.sina.com.cn"
      autourl[4]="www.nuaa.edu.cn"
      autourl[5]=www.cctv.com
    function butt(){
      document.write("<form name=autof>")
      for(var i=1;i<autourl.length;i++)
      document.write("<input type=text name=txt"+i+" size=10 value=测试中……> =》<input type=text name=url"+i+" size=40> =》<input type=button value=GO onclick=window.open(this.form.url"+i+".value)><br/>")
      document.write("<input type=submit value=刷新></form>")
      }
      butt()
      function auto(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++
      }
      function run(){for(var i=1;i<autourl.length;i++)document.write("<img src=http://"+autourl[I+"/"+Math.random()+" width=1 height=1 onerror=auto('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

      30.本地无缓存,每次自动刷新

      response.expires=0
      response.addHeader "pragma" , "no-cache"
      response.addHeader "cache-control" , "private"

      31.修改contentType并下载gif等格式

      <%
      function dl(f,n)
      on error resume next

      set s=createObject("Adodb.Stream")
      S.Mode=3
      S.Type=1
      S.Open
      s.LoadFromFile(server.mappath(f))
      if err.number>0 then
      response.write err.number & ":" & err.description
      else
      response.contentType="application/x-gzip"
      response.addheader "Content-Disposition:","attachment; filename=" & n
      response.binarywrite(s.Read(s.size))
      end if
      end function

      call dl("012922501.gif","t1.gif")
      %>

      32. 检查一段字符串是否全由数字组成

      <script language="****"><!--
      function checkNum(str){return !/\D/.test(str)}
      alert(checkNum("1232142141"))
      alert(checkNum("123214214a1"))
      // --></script>

    申明

    非源创博文中的内容均收集自网上,若有侵权之处,请及时联络,我会在第一时间内删除.再次说声抱歉!!!

    博文欢迎转载,但请给出原文连接。

  • 相关阅读:
    UVALive 6909 Kevin's Problem 数学排列组合
    UVALive 6908 Electric Bike dp
    UVALive 6907 Body Building tarjan
    UVALive 6906 Cluster Analysis 并查集
    八月微博
    hdu 5784 How Many Triangles 计算几何,平面有多少个锐角三角形
    hdu 5792 World is Exploding 树状数组
    hdu 5791 Two dp
    hdu 5787 K-wolf Number 数位dp
    hdu 5783 Divide the Sequence 贪心
  • 原文地址:https://www.cnblogs.com/Athrun/p/1015531.html
Copyright © 2011-2022 走看看