推荐比较精华的asp代码.docx

1、推荐比较精华的asp代码推荐比较精华的asp代码因为是收集的,所以可能有个别重复.1. oncontextmenu=window.event.returnvalue=false 将彻底屏蔽鼠标右键 no 可用于Table2. 取消选取、防止复制3. onpaste=return false 不准粘贴4. oncopy=return false; oncut=return false; 防止复制5. IE地址栏前换成自己的图标6. 可以在收藏夹中显示出你的图标7. 关闭输入法8. 永远都会带着框架9. 防止被人frame10. 网页将不能被另存为11. input type=button val

2、ue=查看网页源代码onclick=window.location = view-source:+ 12. 怎样通过asp的手段来检查来访者是否用了代理% if Request.ServerVariables(HTTP_X_FORWARDED_FOR) thenresponse.write 您通过了代理服务器，& _真实的IP为&Request.ServerVariables(HTTP_X_FORWARDED_FOR)end if%13. 取得控件的绝对位置/javascriptfunction getIE(e) var t=e.offsetTop; var l=e.offsetLeft; w

3、hile(e=e.offsetParent) t+=e.offsetTop; l+=e.offsetLeft; alert(top=+t+nleft=+l); /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.tagNameBODY set a = a.offsetParent t=t+a.offsetTop l=l+a.offsetLeft wend msgbox top=&t&

4、chr(13)&left=&l,64,得到控件的位置end function-14. 光标是停在文本框文字的最后function cc() var e = event.srcElement; var r =e.createTextRange(); r.moveStart(character,e.value.length); r.collapse(true); r.select();15. 判断上一页的来源asp:request.servervariables(HTTP_REFERER)javascript:document.referrer16. 最小化、最大化、关闭窗口本例适用于IE17.

5、定义数据库连接的一些常量18. 网页不会被缓存HTM网页或者ASP网页 Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.cachecontrol = no-cachePHP网页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.c

6、lientWidth,document.body.clientHeight21. 怎么判断是否是字符if (/x00-xff/g.test(s) alert(含有汉字);else alert(全是字符);22.TEXTAREA自适应文字行数的多少23. 日期减去天数等于第二个日期function cc(dd,dadd)/可以加上错误处理var a = new Date(dd)a = a.valueOf()a = a - dadd * 24 * 60 * 60 * 1000a = new Date(a)alert(a.getFullYear() + 年 + (a.getMonth() + 1)

7、+ 月 + a.getDate() + 日)cc(12/23/2002,2)24. 选择了哪一个Radiofunction checkme() for each ob in radio1 if ob.checked then window.alert ob.value nextend functionStyleBarcode25.获得本页url的request.servervariables()集合Response.Write Variablesvaluefor each ob in Request.ServerVariablesResponse.Write &ob&Request.Serve

8、rVariables(ob)&nextResponse.Write 26.本机ip服务器名服务器IP服务器端口服务器时间IIS版本脚本超时时间本文件路径服务器CPU数量服务器解译引擎服务器操作系统27.ENTER键可以让光标移到下一个输入框28. 检测某个网站的链接速度：把如下代码加入区域中:tim=1setInterval(tim+,100)b=1var autourl=new Array()autourl1=autourl2=autourl3=autourl4=autourl5=function butt()document.write()for(var i=1;iautourl.leng

9、th;i+)document.write( = =)document.write()butt()function auto(url)document.forms0url+b.value=urlif(tim200)document.forms0txt+b.value=链接超时elsedocument.forms0txt+b.value=时间+tim/10+秒b+function run()for(var i=1;iautourl.length;i+)document.write()run()29. 各种样式的光标auto ：标准光标default ：标准箭头hand ：手形光标wait ：等待光

10、标text ：I形光标vertical-text ：水平I形光标no-drop ：不可拖动光标not-allowed ：无效光标help ：?帮助光标all-scroll ：三角方向标move ：移动标crosshair ：十字标e-resizen-resizenw-resizew-resizes-resizese-resizesw-resize30. 获得一个窗口的大小document.body.clientWidth,document.body.clientHeightdocument.body.offsetWidth,document.body.offsetHeight有时还需要知道wi

11、ndow.screenTop,window.screenLeft31.本地无缓存，每次自动刷新response.expires=0response.addHeader pragma , no-cacheresponse.addHeader cache-control , private32.修改contentType并下载gif等格式0 then response.write err.number & : & err.descriptionelse response.contentType=application/x-gzip response.addheader Content-Dispos

12、ition:,attachment; filename= & n response.binarywrite(s.Read(s.size)end ifend functioncall dl(012922501.gif,t1.gif)%33. 检查一段字符串是否全由数字组成34.如何静止页面缓存答：htm网页或者asp网页response.expires=-1response.expiresabsolute=now()-1response.cachecontrol=no-cachephp网页header(expires:mon,26jul199705:00:00gmt);header(cache-

13、control:no-cache,must-revalidate);header(pragma:no-cache);35.如何检查一段字符串是否全由数字组成36.如何获取机器信息答本机ip服务器名服务器ip服务器端口服务器时间iis版本脚本超时时间本文件路径服务器cpu数量服务器解译引擎服务器操作系统37.如何让日期相减日期减去天数等于第二个日期functioncc(dd,dadd)/可以加上错误处理vard=newdate(dd.replace(-,/)d.setdate(d.getdate()+dadd)alert(d.getfullyear()+年+(d.getmonth()+1)+月+

14、d.getdate()+日)cc(2002-2-28,2)38.怎样通过asp的手段来检查来访者是否用了代理39.获得窗口的大小document.body.clientWidth,document.body.clientHeightdocument.body.offsetWidth,document.body.offsetHeight40.判断一个表是否存在：if exists (select * from dbo.sysobjects where id = object_id(表名) and OBJECTPROPERTY(id, NIsUserTable) = 1)drop table 表名

15、GO从publish 表中取出第 n 条到第 m 条的记录：SELECT TOP m-n+1 *FROM publishWHERE (id NOT IN(SELECT TOP n-1 id FROM publish)id 为publish 表的关键字41.如何实现连续滚动数据里面读出来的marqueesHeight=200;stopscroll=false;with(marquees)style.width=0;style.height=marqueesHeight;style.overflowX=visible;style.overflowY=hidden;noWrap=true;onmouseover=new Function(stopscroll=true);onmouseout=new Function(stopscroll=false);document.write();preTop=0