站长收集asp代码经典集合
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>; 可以在收藏夹中显示出你的图标
7. <;input style=ime-mode:disabled>; 关闭输入法
8. 永远都会带着框架
<;script language=javascript>;<;!--
if (window == top)top.location.href = frames.htm; //frames.htm为框架网页
// -->;<;/script>;
9. 防止被人frame
<;SCRIPT LANGUAGE=javascript>;<;!--
if (top.location != self.location)top.location=self.location;
// -->;<;/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. 取得控件的绝对位置
//javascript
<;script language=javascript>;
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>;<;!--
function getIE()
dim t,l,a,b
set a=document.all.img1
t=document.all.img1.offsetTop
l=document.all.img1.offsetLeft
while a.tagName<;>;BODY
set a = a.offsetParent
t=t+a.offsetTop
l=l+a.offsetLeft
wend
msgbox top=&t&chr(13)&left=&l,64,得到控件的位置
end function
-->;<;/script>;
14. 光标是停在文本框文字的最后
<;script language=javascript>;
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)
javascript:
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=最小化 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(Pragma: no-cache);
19. 检查一段字符串是否全由数字组成
<;script language=javascript>;<;!--
function checkNum(str){return str.match(/\D/)==null}
alert(checkNum(1232142141))
alert(checkNum(123214214a1))
// -->;<;/script>;
20. 获得一个窗口的大小
document.body.clientWidth,document.body.clientHeight
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=javascript>;
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>;<;!-- Table Header -->;<;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.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键可以让光标移到下一个输入框
<;input onkeydown=if(event.keyCode==13)event.keyCode=9>;
28. 检测某个网站的链接速度：
把如下代码加入<;body>;区域中:
<;script language=javascript>;
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+/+Math.random()+ width=1 height=1 onerror=auto('http://;;;+autourl+')>;)}
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)
%>;
.jpeg)
.jpg)
.jpg)
.jpg)
.jpg)
.jpg)
