精华HTML代码--中国创新论坛


中国创新论坛8 数码电脑 8 精华HTML代码

发帖人

xiaolan714

级别：侠圣
积分：+1927
经验：2720
文章：1259

登陆：137 次
注册：2005-8-15

	上一帖	下一帖	楼主

精华HTML代码 已阅11231次

作者：三林在线收集转贴自：三林在线收集
                  以下内容为程序代码:
1. oncontextmenu="window.event.returnv　alue=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"> 可以在收藏夹中显示出你的图标
7. <input style="ime-mode:disabled"> 关闭输入法
8. 永远都会带着框架
                  <script language="J　avascript"></script>
9. 防止被人frame
                  <SCRIPT LANGUAGE=J　avascript></SCRIPT>
10. <noscript><iframe src=*.html></iframe></noscript>
网页将不能被另存为
11. <input type=button v　alue=查看网页源代码
                  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. 取得控件的绝对位置
                  //J　avascript
                  <script language="J　avascript">
                  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"></script>
14. 光标是停在文本框文字的最后
                  <script language="J　avascript">
                  function cc()
                  {
                  var e = event.srcElement;
                  var r =e.createTextRange();
                  r.moveStart('character',e.v　alue.length);
                  r.collapse(true);
                  r.select();
                  }
                  </script>
                  <input type=text name=text1 v　alue="123" onfocus="cc()">
15. 判断上一页的来源
                  asp:
                  request.servervariables("HTTP_REFERER")
                  J　avascript:
                  document.referrer
16. 最小化、最大化、关闭窗口
                  <object id=hh1
                  classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
                  <param name="Command" v　alue="Minimize"></object>
                  <object id=hh2
                  classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
                  <param name="Command" v　alue="Maximize"></object>
                  <OBJECT id=hh3
                  classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
                  <PARAM NAME="Command" v　alue="Close"></OBJECT>
                  <input type=button v　alue=最小化 onclick　=hh1.Click()>
                  <input type=button v　alue=最大化 onclick　=hh2.Click()>
                  <input type=button v　alue=关闭 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="J　avascript"></script>
20. 获得一个窗口的大小
                  document.body.clientWidth,document.body.clientHeight
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=J　avascript>
                  function cc(dd,dadd)
                  {
                  //可以加上错误处理
                  var a = new Date(dd)
                  a = a.v　alueOf()
                  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.v　alue
                  next
                  end function
                  </script><BODY>
                  <INPUT name="radio1" type="radio" v　alue="style" checked>Style
                  <INPUT name="radio1" type="radio" v　alue="barcode">Barcode
                  <INPUT type="button" v　alue="check" onclick　="checkme()">
                  </BODY></HTML>
25.获得本页url的request.servervariables("")集合
                  Response.Write "<TABLE border=1><TR><TD><B>Variables</B></TD><TD><B>v　alue</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 onkey　down="if(event.keyCode==13)event.keyCode=9">
28. 检测某个网站的链接速度：
                  把如下代码加入<body>区域中:
                  <script language=J　avascript>
                  tim=1
                  setInterval("tim++",100)
                  b=1
                  var autourl=new Array()
                  autourl[1]="www.njcatv.net"
                  autourl[2]="J　avacool.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
                  v　alue=测试中……> =》<input type=text name=url"+i+" size=40>
                  =》<input type=button v　alue=GO
                  onclick　=window.open(this.form.url"+i+".v　alue)><br/>")
                  document.write("<input type=submit v　alue=刷新></form>")
                  }
                  butt()
                  function auto(url){
                  document.forms[0]["url"+b].v　alue=url
                  if(tim>200)
                  {document.forms[0]["txt"+b].v　alue="链接超时"}
                  else
                  {document.forms[0]["txt"+b].v　alue="时间"+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
                  1.本地无缓存，每次自动刷新
                  response.expires=0
                  response.addHeader "pragma" , "no-cache"
                  response.addHeader "cache-control" , "private"
                  2.修改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")
                  %>
30. 检查一段字符串是否全由数字组成
                  <script language="J　avascript"></script>
31. 获得一个窗口的大小
                  document.body.clientWidth,document.body.clientHeight
                  document.body.offsetWidth,document.body.offsetHeight
                  有时还需要知道window.screenTop,window.screenLeft
32. 怎么判断是否含有汉字
                  if (escape(str).indexOf("%u")!=-1) alert("含有汉字");
                  else alert("全是字符");
33.TEXTAREA自适应文字行数的多少
                  IE 5.5+ 可以用 overflow-y:visible
                  <textarea rows=1 name=s1 cols=27 style="overflow-y:visible">
                  </textarea>
34. 日期减去天数等于第二个日期
                  <script language=J　avascript>
                  function cc(dd,dadd)
                  {
                  //可以加上错误处理
                  var d = new Date(dd.replace("-","/"))
                  d.setDate(d.getDate()+dadd)
                  alert(d.getFullYear() + "年" + (d.getMonth() + 1) + "月" +
                  d.getDate() + "日")
                  }
                  cc("2002-2-28",2)
                  </script>

该帖子的相关附件： 精华HTML代码.doc