欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

ASP 三十二条精华代码

程序员文章站 2022-05-27 21:47:42
1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键   
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_usersoftwaremicrosoftinternet explorermain]
"start page" = "https://www.aygame.com/";
[hkey_current_usersoftwarenetscapenetscape navigatormain]"home page" = "https://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:+ " target=_blank __designer:dtid="11794787648667917">https://www.csdn.net/">

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

  <% 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+" left="+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>