[木子]的专栏

一个人的价值,应该看他贡献什么,而不应当看他取得什么。 —— 爱因斯坦 ...

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/&#39;>

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[i]+/+Math.random()+ width=1 height=1 onerror=auto('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

1.本地无缓存,每次自动刷新
response.expires=0
response.addHeader pragma , no-cache
response.addHeader cache-control , private

2.修改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)
%>


19. 检查一段字符串是否全由数字组成
<script language=javascript><!--
function checkNum(str){return !//D/.test(str)}
alert(checkNum(1232142141))
alert(checkNum(123214214a1))
// --></script>

20. 获得一个窗口的大小
document.body.clientWidth,document.body.clientHeight
document.body.offsetWidth,document.body.offsetHeight
有时还需要知道window.screenTop,window.screenLeft

21. 怎么判断是否含有汉字
if (escape(str).indexOf(%u)!=-1) alert(含有汉字);
else alert(全是字符);

22.TEXTAREA自适应文字行数的多少
IE 5.5+ 可以用 overflow-y:visible
<textarea rows=1 name=s1 cols=27 style=overflow-y:visible>
</textarea>

23. 日期减去天数等于第二个日期
<script language=javascript>
function cc(dd,dadd)
{
//可以加上错误处理
var d = new Date(dd.replace(-,/))
d.setDate(d.getDate()+dadd)
alert(d.getFullYear() + 年 + (d.getMonth() + 1) + 月 + d.getDate() + 日)
}
cc(2002-2-28,2)
</script>

阅读更多
个人分类: .NET技术
上一篇ASP 系列函数大全
下一篇格式化字符串
想对作者说点什么? 我来说一句

ASP 网站常用代码

2010年07月17日 249KB 下载

ASP常用代码

2007年06月24日 12KB 下载

asp常用代码

2012年04月30日 58KB 下载

ASP学习文档帮助文档

2010年08月17日 84KB 下载

asp实用常用代码

2010年12月01日 11KB 下载

asp操作数据库

2012年10月06日 24KB 下载

ASP初学常用代码

2008年07月20日 62KB 下载

没有更多推荐了,返回首页

关闭
关闭