精华ASP代码收集

以下内容为程序代码:1.oncontextmenu=window.event.returnvalue=false将彻底屏蔽鼠标右键tableborderoncontextmenu=return(false)tdno/table可用于Table2.bodyonselectstart=returnfalse取消选取、防止复制3.onpaste=returnfalse不准粘贴4.oncopy=returnfalse;oncut=returnfalse;防止复制5.linkrel=ShortcutIconhref=favicon.icoIE地址栏前换成自己的图标6.linkrel=Bookmarkhref=favicon.ico可以在收藏夹中显示出你的图标7.inputstyle=ime-mode:disabled关闭输入法8.永远都会带着框架scriptlanguage=javascript!--if(window==top)top.location.href=frames.htm;//frames.htm为框架网页//--/script9.防止被人frameSCRIPTLANGUAGE=javascript!--if(top.location!=self.location)top.location=self.location;//--/SCRIPT10.noscriptiframesrc=*.html/iframe/noscript网页将不能被另存为11.inputtype=buttonvalue=查看网页源代码onclick=window.location='view-source:'+'怎样通过asp的手段来检查来访者是否用了代理%ifRequest.ServerVariables(HTTP_X_FORWARDED_FOR)thenresponse.writefontcolor=#FF0000您通过了代理服务器，&_真实的IP为&Request.ServerVariables(HTTP_X_FORWARDED_FOR)endif%13.取得控件的绝对位置//javascriptscriptlanguage=javascriptfunctiongetIE(e){vart=e.offsetTop;varl=e.offsetLeft;while(e=e.offsetParent){t+=e.offsetTop;l+=e.offsetLeft;}alert(top=+t+\nleft=+l);}/script//VBScriptscriptlanguage=VBScript!--functiongetIE()dimt,l,a,bseta=document.all.img1t=document.all.img1.offsetTopl=document.all.img1.offsetLeftwhilea.tagNameBODYseta=a.offsetParentt=t+a.offsetTopl=l+a.offsetLeftwendmsgboxtop=&t&chr(13)&left=&l,64,得到控件的位置endfunction--/script14.光标是停在文本框文字的最后scriptlanguage=javascriptfunctioncc(){vare=event.srcElement;varr=e.createTextRange();r.moveStart('character',e.value.length);r.collapse(true);r.select();}/scriptinputtype=textname=text1value=123onfocus=cc()15.判断上一页的来源asp:request.servervariables(HTTP_REFERER)javascript:document.referrer16.最小化、最大化、关闭窗口objectid=hh1classid=clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11paramname=Commandvalue=Minimize/objectobjectid=hh2classid=clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11paramname=Commandvalue=Maximize/objectOBJECTid=hh3classid=clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11PARAMNAME=Commandvalue=Close/OBJECTinputtype=buttonvalue=最小化onclick=hh1.Click()inputtype=buttonvalue=最大化onclick=hh2.Click()inputtype=buttonvalue=关闭onclick=hh3.Click()本例适用于IE17.定义数据库连接的一些常量%ConstadOpenForwardOnly=0'游标只向前浏览记录，不支持分页、Recordset、BookMarkConstadOpenKeyset=1'键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMarkConstadOpenDynamic=2'动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。ConstadOpenStatic=3'静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动ConstadLockReadOnly=1'锁定类型，默认的，只读，不能作任何修改ConstadLockPessimistic=2'当编辑时立即锁定记录，最安全的方式ConstadLockOptimistic=3'只有在调用Update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等ConstadLockBatchOptimistic=4'当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的ConstadCmdText=&H0001ConstadCmdTable=&H0002%18.网页不会被缓存HTM网页METAHTTP-EQUIV=pragmaCONTENT=no-cacheMETAHTTP-EQUIV=Cache-ControlCONTENT=no-cache,must-revalidateMETAHTTP-EQUIV=expiresCONTENT=Wed,26Feb199708:21:57GMT或者METAHTTP-EQUIV=expiresCONTENT=0ASP网页Response.Expires=-1Response.ExpiresAbsolute=Now()-1Response.cachecontrol=no-cachePHP网页header(Expires:Mon,26Jul199705:00:00GMT);header(Cache-Control:no-cache,must-revalidate);header(Pragma:no-cache);19.检查一段字符串是否全由数字组成scriptlanguage=javascript!--functioncheckNum(str){returnstr.match(/\D/)==null}alert(checkNum(1232142141))alert(checkNum(123214214a1))//--/script20.获得一个窗口的大小document.body.clientWidth,document.body.clientHeight21.怎么判断是否是字符if(/[^\x00-\xff]/g.test(s))alert(含有汉字);elsealert(全是字符);22.TEXTAREA自适应文字行数的多少textarearows=1name=s1cols=27onpropertychange=this.style.posHeight=this.scrollHeight/textarea23.日期减去天数等于第二个日期scriptlanguage=javascriptfunctioncc(dd,dadd){//可以加上错误处理vara=newDate(dd)a=a.valueOf()a=a-dadd*24*60*60*1000a=newDate(a)alert(a.getFullYear()+年+(a.getMonth()+1)+月+a.getDate()+日)}cc(12/23/2002,2)/script24.选择了哪一个RadioHTMLscriptlanguage=vbscriptfunctioncheckme()foreachobinradio1ifob.checkedthenwindow.alertob.valuenextendfunction/scriptBODYINPUTname=radio1type=radiovalue=stylecheckedStyleINPUTname=radio1type=radiovalue=barcodeBarcodeINPUTtype=buttonvalue=checkonclick=checkme()/BODY/HTML25.获得本页url的request.servervariables()集合Response.WriteTABLEborder=1!--TableHeader--TRTDBVariables/B/TDTDBvalue/B/TD/TRforeachobinRequest.ServerVariablesResponse.WriteTRTD&ob&/TDTD&Request.ServerVariables(ob)&/TD/TRnextResponse.Write/TABLE26.request.servervariables集合本机ip%=request.servervariables(remote_addr)%服务器名%=Request.ServerVariables(SERVER_NAME)%服务器IP%=Request.ServerVariables(LOCAL_ADDR)%服务器端口%=Request.ServerVariables(SERVER_PORT)%服务器时间%=now%IIS版本%=Request.ServerVariablesSERVER_SOFTWARE)%脚本超时时间%=Server.ScriptTimeout%本文件路径%=server.mappath(Request.ServerVariables(SCRIPT_NAME))%服务器CPU数量%=Request.ServerVariables(NUMBER_OF_PROCESSORS)%服务器解译引擎%=ScriptEngine&/&ScriptEngineMajorVersion&.&ScriptEngineMinorVersion&.&ScriptEngineBuildVersion%服务器操作系统%=Request.ServerVariables(OS)%27.ENTER键可以让光标移到下一个