ASP 三十二条精华代码

最新推荐文章于 2024-07-08 22:25:54 发布

honew

最新推荐文章于 2024-07-08 22:25:54 发布

阅读量856

点赞数

分类专栏：源码存储文章标签： asp function input button vbscript 服务器

源码存储专栏收录该内容

9 篇文章 0 订阅

订阅专栏

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

以下内容为程序代码:
<SCRIPT defer id=ad_text_pcjob src="http://www.pconline.com.cn/script/ad_text_pcjob.js"><script>

　　<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. 永远都会带着框架　　<script language="****"></script> 　　9. 防止被人frame　　<SCRIPT LANGUAGE=****></SCRIPT>

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

　　11. <input type=button value=查看网页源代码
　　οnclick="window.location = 'view-source:'+ ' " target=_blank __designer:dtid="11794787648667917">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. 最小化、最大化、关闭窗口　　<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=最小化 οnclick=hh1.Click()>
　　<input type=button value=最大化 οnclick=hh2.Click()>
　　<input type=button value=关闭 οnclick=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="****"></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" ο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键可以让光标移到下一个输入框　　<input οnkeydοwn="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 οnclick=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 οnerrοr=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="****"></script>

honew

关注

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.
复制链接

扫一扫