首页 > 代码库 > ASP 三十二条精华代码 (1)

ASP 三十二条精华代码 (1)

ASP 三十二条精华代码 (1)

2009-08-10 09:53:03  www.hackbase.com  来源:互联网
  1. oncontextmenu="window.event.returnvalue=http://www.mamicode.com/false" 将彻底屏蔽鼠标右键  <table border oncontextmenu=return(false)><td>no</table> 可用于Table  2. <body onselectstart="return false"> 取消 ...
  1. oncontextmenu="window.event.returnvalue=http://www.mamicode.com/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="http://www.mamicode.com/favicon.ico"> IE地址栏前换成自己的图标
  6. <link rel="Bookmark" href="http://www.mamicode.com/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 = "http://www.mamicode.com/frames.htm"; //frames.htm为框架网页
  // --></script>
  
  9. 防止被人frame
  <SCRIPT LANGUAGE=****><!--
  if (top.location != self.location)top.location=self.location;
  // --></SCRIPT>
  10. <noscript><iframe src=http://www.mamicode.com/*.html></iframe> 网页将不能被另存为
  11. <input type=button value=http://www.mamicode.com/查看网页源代码
  onclick="window.location = ‘view-source:‘+ ‘" target=_blank __designer:dtid="11794787648667917">http://www.csdn.net/&#39;">
  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="http://www.mamicode.com/123" onfocus="cc()">
  
  15. 判断上一页的来源
  asp:
  request.servervariables("HTTP_REFERER")
  
  ****:
  document.referrer
  
  16. 最小化、最大化、关闭窗口
  
  <object id=hh1 classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">