设为首页收藏本站
切换到窄版

 找回密码
 注册
搜索
热搜: 超星 读书 找书
网上读书园地»论坛 › 资源共享区 › 网络资源 › 精华ASP代码
返回列表 发新帖
查看: 1471|回复: 0

[【网站推荐】] 精华ASP代码

[复制链接]
hengji
发表于 2005-9-23 14:55:45 | 显示全部楼层 |阅读模式
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 = &#39;view-source:&#39;+ &#39;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(&#39;character&#39;,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\">
<ARAM 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.
<%
&#39;定义数据库连接的一些常量
Const adOpenForwardOnly    = 0 &#39;游标只向前浏览记录，不支持分页、Recordset、BookMark
Const adOpenKeyset       = 1 &#39;键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark
Const adOpenDynamic      = 2 &#39;动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。
Const adOpenStatic       = 3 &#39;静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动

Const adLockReadOnly      = 1 &#39;锁定类型，默认的，只读，不能作任何修改
Const adLockPessimistic    = 2 &#39;当编辑时立即锁定记录，最安全的方式
Const adLockOptimistic    = 3 &#39;只有在调用Update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等
Const adLockBatchOptimistic = 4 &#39;当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的

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(\"ragma: 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.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 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(&#39;http://\";;+autourl+\"&#39;)>\")}
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>
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|网上读书园地

GMT+8, 2024-11-8 09:13 , Processed in 0.160051 second(s), 4 queries , Redis On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表