您的位置：首页 → 网页设计 → ASP实例 → ASP 三十二条精华代码

ASP 三十二条精华代码

时间：2009/11/6 11:49:00来源：本站整理作者：我要评论(0)

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:'+ '" 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="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="****"><!--
　　function checkNum(str){return str.match(/\D/)==null}
　　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 (/[^\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><!-- Table Header --><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.gif","t1.gif")
　　%>

　　32. 检查一段字符串是否全由数字组成

　　<script language="****"><!--
　　function checkNum(str){return !/\D/.test(str)}
　　alert(checkNum("1232142141"))
　　alert(checkNum("123214214a1"))
　　// --></script>

相关视频

    没有数据

相关阅读 asp下面javascript上传图片限制格式大小方法ie6下面asp.net mvc3 部署应用程序ASP网站安装不成功的解决办法asp的日期转换星座函数快速掌握ASP连接11种数据库的常用语法ASP将access数据导出为excel电子表的方法技巧：用ASP在线创建Word与Excel文档ASP木马密码加密的破解方法

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 迅雷新手完全入门手册 asp下面javascript上传图片限制格式大小方法告诉大家网页弹出窗口应用总结ASP常见错误类型大全asp常见错误分析和解决办法

人气排行 总是弹出visual studio 实时调试器 三种解决SQLSERVER存储过程及调用详解Asp获取真实IP地址ASP中连接Mssql的几种方法一个简单好用的UBB编辑器(含代码)如何用Split将字符串转换为数组并获取数组下ASP防止表单重复提交的办法告诉你免费的简单聊天室源代码