[转帖]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()>

你可能感兴趣的:(asp)