云南天气免费注册登陆发布文章  
网页教程   |   平面教程   |   网络编程   |   数据库   |   服务器
您所在的位置:云港首页 >> 站长学院 >> 网络编程 >> 正文
精华 ASP 代码
文章来源:本站收集 责任编辑:yn47.com 加入时间:2008-4-8 字体显示:
  1.oncontextmenu="window.event.returnvalue=false"将彻底屏蔽鼠标右键
  
  <tableborderoncontextmenu=return(false)><td>no</table>可用于Table
  
  2.<bodyonselectstart="returnfalse">取消选取、防止复制
  
  3.onpaste="returnfalse"不准粘贴
  
  4.oncopy="returnfalse;"oncut="returnfalse;"防止复制
  
  5.<linkrel="ShortcutIcon"href="favicon.ico">IE地址栏前换成自己的图标
  
  6.<linkrel="Bookmark"href="favicon.ico">可以在收藏夹中显示出你的图标
  
  7.<inputstyle="ime-mode:disabled">关闭输入法
  
  8.永远都会带着框架
  
  <scriptlanguage="javascript"><!--
  
  if(window==top)top.location.href="frames.htm";//frames.htm为框架网页
  
  //--></script>
  
  9.防止被人frame
  
  <SCRIPTLANGUAGE=javascript><!--
  
  if(top.location!=self.location)top.location=self.location;
  
  //--></SCRIPT>
  
  10.<noscript><iframesrc=*.html></iframe></noscript>网页将不能被另存为
  
  11.<inputtype=buttonvalue=查看网页源代码
  
  onclick="window.location='view-source:'+'<IMGsrc="pic/url.gif"align=absMiddleborder=0>http://www.csdn.net/">
  
  12.怎样通过asp的手段来检查来访者是否用了代理
  
  <%ifRequest.ServerVariables("HTTP_X_FORWARDED_FOR")<>""then
  
  response.write"<fontcolor=#FF0000>您通过了代理服务器,"&_
  
  "真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
  
  endif
  
  %>
  
  13.取得控件的绝对位置
  
  //javascript
  
  <scriptlanguage="javascript">
  
  functiongetIE(e){
  
  vart=e.offsetTop;
  
  varl=e.offsetLeft;
  
  while(e=e.offsetParent){
  
  t+=e.offsetTop;
  
  l+=e.offsetLeft;
  
  }
  
  alert("top="+t+"\nleft="+l);
  
  }
  
  </script>
  
  //VBScript
  
  <scriptlanguage="VBScript"><!--
  
  functiongetIE()
  
  dimt,l,a,b
  
  seta=document.all.img1
  
  t=document.all.img1.offsetTop
  
  l=document.all.img1.offsetLeft
  
  whilea.tagName<>"BODY"
  
  seta=a.offsetParent
  
  t=t+a.offsetTop
  
  l=l+a.offsetLeft
  
  wend
  
  msgbox"top="&t&chr(13)&"left="&l,64,"得到控件的位置"
  
  endfunction
  
  --></script>
  
  14.光标是停在文本框文字的最后
  
  <scriptlanguage="javascript">
  
  functioncc()
  
  {
  
  vare=event.srcElement;
  
  varr=e.createTextRange();
  
  r.moveStart('character',e.value.length);
  
  r.collapse(true);
  
  r.select();
  
  }
  
  </script>
  
  <inputtype=textname=text1value="123"onfocus="cc()">
  
  15.判断上一页的来源
  
  asp:
  
  request.servervariables("HTTP_REFERER")
  
  javascript:
  
  document.referrer
  
  16.最小化、最大化、关闭窗口
  
  <objectid=hh1classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
  
  <paramname="Command"value="Minimize"></object>
  
  <objectid=hh2classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
  
  <paramname="Command"value="Maximize"></object>
  
  <OBJECTid=hh3classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
  
  <PARAMNAME="Command"value="Close"></OBJECT>
  
  <inputtype=buttonvalue=最小化onclick=hh1.Click()>
  
  <inputtype=buttonvalue=最大化onclick=hh2.Click()>
  
  <inputtype=buttonvalue=关闭onclick=hh3.Click()>
  
  本例适用于IE
  
  17.
  
  <%
  
  '定义数据库连接的一些常量
  
  ConstadOpenForwardOnly=0'游标只向前浏览记录,不支持分页、Recordset、BookMark
  
  ConstadOpenKeyset=1'键集游标,其他用户对记录说做的修改将反映到记录集中,但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark
  
  ConstadOpenDynamic=2'动态游标功能最强,但耗资源也最多。用户对记录说做的修改,增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。
  
  ConstadOpenStatic=3'静态游标,只是数据的一个快照,用户对记录说做的修改,增加或删除记录都不会反映到记录集中。支持向前或向后移动
  
  ConstadLockReadOnly=1'锁定类型,默认的,只读,不能作任何修改
  
  ConstadLockPessimistic=2'当编辑时立即锁定记录,最安全的方式
  
  ConstadLockOptimistic=3'只有在调用Update方法时才锁定记录集,而在此前的其他操作仍可对当前记录进行更改、插入和删除等
  
  ConstadLockBatchOptimistic=4'当编辑时记录不会被锁定,而更改、插入和删除是在批处理方式下完成的
  
  ConstadCmdText=&H0001
  
  ConstadCmdTable=&H0002
  
  %>
  
  18.网页不会被缓存
  
  HTM网页
  
  <METAHTTP-EQUIV="pragma"CONTENT="no-cache">
  
  <METAHTTP-EQUIV="Cache-Control"CONTENT="no-cache,must-revalidate">
  
  <METAHTTP-EQUIV="expires"CONTENT="Wed,26Feb199708:21:57GMT">
  
  或者<METAHTTP-EQUIV="expires"CONTENT="0">
  
  ASP网页
  
  Response.Expires=-1
  
  Response.ExpiresAbsolute=Now()-1
  
  Response.cachecontrol="no-cache"
  
  PHP网页
  
  header("Expires:Mon,26Jul199705:00:00GMT");
  
  header("Cache-Control:no-cache,must-revalidate");
  
  header("Pragma:no-cache");
  
  19.检查一段字符串是否全由数字组成
  
  <scriptlanguage="javascript"><!--
  
  functioncheckNum(str){returnstr.match(/\D/)==null}
  
  alert(checkNum("1232142141"))
  
  alert(checkNum("123214214a1"))
  
  //--></script>
  
  20.获得一个窗口的大小
  
  document.body.clientWidth,document.body.clientHeight
  
  21.怎么判断是否是字符
  
  if(/[^\x00-\xff]/g.test(s))alert("含有汉字");
  
  elsealert("全是字符");
  
  22.TEXTAREA自适应文字行数的多少
  
  <textarearows=1name=s1cols=27onpropertychange="this.style.posHeight=this.scrollHei-ght">
  
  </textarea>
  
  23.日期减去天数等于第二个日期
  
  <scriptlanguage=javascript>
  
  functioncc(dd,dadd)
  
  {
  
  //可以加上错误处理
  
  vara=newDate(dd)
  
  a=a.valueOf()
  
  a=a-dadd*24*60*60*1000
  
  a=newDate(a)
  
  alert(a.getFullYear()+"年"+(a.getMonth()+1)+"月"+a.getDate()+"日")
  
  }
  
  cc("12/23/2002",2)
  
  </script>
  
  24.选择了哪一个Radio
  
  <HTML><scriptlanguage="vbscript">
  
  functioncheckme()
  
  foreachobinradio1
  
  ifob.checkedthenwindow.alertob.value
  
  next
  
  endfunction
  
  </script><BODY>
  
  <INPUTname="radio1"type="radio"value="style"checked>Style
  
  <INPUTname="radio1"type="radio"value="barcode">Barcode
  
  <INPUTtype="button"value="check"onclick="checkme()">
  
  </BODY></HTML>
  
  25.获得本页url的request.servervariables("")集合
  
  Response.Write"<TABLEborder=1><!--TableHeader--><TR><TD><B>Variables</B></TD><TD><B>value</B></TD></TR>"
  
  foreachobinRequest.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&"."&ScriptEn-gineBuildVersion%>
  
  服务器操作系统<%=Request.ServerVariables("OS")%>
  
  27.ENTER键可以让光标移到下一个输入框
  
  <inputonkeydown="if(event.keyCode==13)event.keyCode=9">
  
  28.检测某个网站的链接速度:
  
  把如下代码加入<body>区域中:
  
  <scriptlanguage=javascript>
  
  tim=1
  
  setInterval("tim++",100)
  
  b=1
  
  varautourl=newArray()
  
  autourl[1]="<src="pic/url.gif"align=absMiddleborder=0>www.njcatv.net"
  
  autourl[2]="javacool.3322.net"
  
  autourl[3]="<src="pic/url.gif"align=absMiddleborder=0>www.sina.com.cn"
  
  autourl[4]="www.nuaa.edu.cn"
  
  autourl[5]="<src="pic/url.gif"align=absMiddleborder=0>www.cctv.com"
  
  functionbutt(){
  
  document.write("<formname=autof>")
  
  for(vari=1;i<autourl.length;i++)
  
  document.write("<inputtype=textname=txt"+i+"size=10value=测试中……>=》<inputtype=textname=url"+i+"size=40>=》<inputtype=buttonvalue=GOonclick=window.open(this.form.url"+i+".value)><br/>")
  
  document.write("<inputtype=submitvalue=刷新></form>")
  
  }
  
  butt()
  
  functionauto(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++
  
  }
  
  functionrun(){for(vari=1;i<autourl.length;i++)document.write("<imgsrc=http://"+autourl[i]+"/"+Math.random()+"width=1height=1onerror=auto('<src="pic/url.gif"align=absMiddleborder=0>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等格式
  
  <%
  
  functiondl(f,n)
  
  onerrorresumenext
  
  sets=CreateObject("Adodb.Stream")
  
  S.Mode=3
  
  S.Type=1
  
  S.Open
  
  s.LoadFromFile(server.mappath(f))
  
  iferr.number>0then
  
  response.writeerr.number&":"&err.description
  
  else
  
  response.contentType="application/x-gzip"
  
  response.addheader"Content-Disposition:","attachment;filename="&n
  
  response.binarywrite(s.Read(s.size))
  
  endif
  
  endfunction
  
  calldl("012922501.gif","t1.gif")
  
  %>
  
  19.检查一段字符串是否全由数字组成
  
  <scriptlanguage="javascript"><!--
  
  functioncheckNum(str){return!/\D/.test(str)}
  
  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(escape(str).indexOf("%u")!=-1)alert("含有汉字");
  
  elsealert("全是字符");
  
  22.TEXTAREA自适应文字行数的多少
  
  IE5.5+可以用overflow-y:visible
  
  <textarearows=1name=s1cols=27style="overflow-y:visible">
  
  </textarea>
  
  23.日期减去天数等于第二个日期
  
  <scriptlanguage=javascript>
  
  functioncc(dd,dadd)
  
  {
  
  //可以加上错误处理
  
  vard=newDate(dd.replace("-","/"))
  
  d.setDate(d.getDate()+dadd)
  
  alert(d.getFullYear()+"年"+(d.getMonth()+1)+"月"+d.getDate()+"日")
  
  }
  
  cc("2002-2-28",2)
  
  </script>
返回栏目首页】 【打印此页】 【发表评论】 【发布文章】 【关闭此页
返回云南设计港首页
发表评论 查看评论
您的昵称: 1、遵守中华人民共和国有关法律、法规,尊重网上道德,承担一切因您的行为而直接或间接引起的法律责任。
2、本网拥有管理笔名和留言的一切权力。
3、您在本站留言板发表的言论,本网有权在网站内转载或引用。
4、如您对管理有意见请向留言板管理员或本网反映。
评论内容:
验 证 码: 看不清,请刷新验证码
相关文章
热点推荐
站长在线
网站运营
站长休闲
版权所有 云南设计港 © all Rights Reserved.  为了更好的浏览,建议使用分辨率:1024×768和iE6.0以上的浏览器浏览本网站
  滇icP备06002874号