ASP 三十二条精华代码

最新推荐文章于 2024-07-10 17:35:49 发布

yyixin

最新推荐文章于 2024-07-10 17:35:49 发布

阅读量520

点赞数

分类专栏：前端开发文章标签： asp function input button vbscript 服务器

前端开发专栏收录该内容

20 篇文章 0 订阅

订阅专栏

1. οncοntextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键

　　<table border οncοntextmenu=return(false)><td>no</table> 可用于Table

　　2. <body onselectstart="return false"> 取消选取、防止复制

　　3. οnpaste="return false" 不准粘贴

　　4. οncοpy="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. 永远都会带着框架

　　9. 防止被人frame

　　10. <noscript><iframe src=*.html></iframe></noscript> 网页将不能被另存为

　　11. <input type=button value=查看网页源代码　　οnclick="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" οnfοcus="cc()">

　　15. 判断上一页的来源　　asp: 　　request.servervariables("HTTP_REFERER")

　　****: 　　document.referrer

　　16. 最小化、最大化、关闭窗口

　　本例适用于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网页

　　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. 检查一段字符串是否全由数字组成

　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自适应文字行数的多少

　　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" οnclick="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键可以让光标移到下一个输入框

　　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

　　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. 检查一段字符串是否全由数字组成

yyixin

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
ASP 三十二条精华代码

1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键　　no 可用于Table 　　2. 取消选取、防止复制　　3. onpaste="return false" 不准粘贴　　4. oncopy="return false;" oncut="return false;" 防止复制　　5. IE地址栏前
复制链接

扫一扫