整理收藏: ASP 三十二条精华代码(zz)

opaque · 发表于 2005-5-26 00:15:28

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:'+ '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\">
　　<

ARAM 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(\"

ragma: 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('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=\"****\"></script>

orange · 发表于 2005-5-27 14:41:19

支持

gj2000 · 发表于 2005-5-29 14:43:48

我也来顶哦！！！！

		自动登录	找回密码
密码			注册

整理收藏: ASP 三十二条精华代码(zz)

相关帖子

浏览过的版块

每日推荐 /1