ASP 三十二条精华代码

2009-8-10 09:53 512 0

摘要: 　　1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键　　<table border oncontextmenu=return...

关键词： 光标 response 服务器 ServerVariables resize 首页 document Request cache 网页

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="****"></script>　　　　9. 防止被人frame　　<SCRIPT LANGUAGE=****></SCRIPT>　　10. <noscript><iframe src=*.html></iframe></noscript> 网页将不能被另存为　　11. <input type=button value=查看网页源代码　　onclick="window.location = 'view-source:'+ '" target=_blank __designer:dtid="11794787648667917">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"></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()>　　　　本例适用于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="****"></script>　　　　20. 获得一个窗口的大小　　　　document.body.clientWidth,document.body.clientHeight　　document.body.offsetWidth,document.body.offsetHeight　　有时还需要知道window.screenTop,window.screenLeft　　　　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=****>　　function cc(dd,dadd)　　{　　//可以加上错误处理　　var a = new Date(dd)　　a = a.valueOf()　　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.value　　next　　end function　　</script><BODY>　　<INPUT name="radio1" type="radio" value="style" checked>Style　　<INPUT name="radio1" type="radio" value="barcode">Barcode　　<INPUT type="button" value="check" onclick="checkme()">　　</BODY></HTML>　　　　25.获得本页url的request.servervariables("")集合　　　　Response.Write "<TABLE border=1><TR><TD><B>Variables</B></TD><TD><B>value</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 onkeydown="if(event.keyCode==13)event.keyCode=9">　　　　28. 检测某个网站的链接速度：　　　　把如下代码加入<body>区域中:　　<script language=****>　　tim=1　　setInterval("tim++",100)　　b=1　　　　var autourl=new Array()　　autourl[1]="www.njcatv.net"　　autourl[2]="javacool.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 value=测试中……> =》<input type=text name=url"+i+" size=40> =》<input type=button value=GO onclick=window.open(this.form.url"+i+".value)><br/>")　　document.write("<input type=submit value=刷新></form>")　　}　　butt()　　function auto(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++　　}　　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('")/" target=_blank __designer:dtid="11794787648667712">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　　　　30.本地无缓存，每次自动刷新　　　　response.expires=0　　response.addHeader "pragma" , "no-cache"　　response.addHeader "cache-control" , "private"　　　　31.修改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.webp","t1.webp")　　%>　　　　32. 检查一段字符串是否全由数字组成　　　　<script language="****"></script>

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除

路过

雷人

握手

鲜花

鸡蛋

收藏分享邀请

ASP 三十二条精华代码

最新评论

相关分类