ASP代码值得收藏的一些ASP代码
oncontextmenu="windoweventreturnvalue=false" 将彻底屏蔽鼠标右键
<table border oncontextmenu=return(false)><td>no</table> 可用于Table
<body onselectstart="return false"> 取消选取防止复制
onpaste="return false" 不准粘贴
oncopy="return false;" oncut="return false;" 防止复制
<link rel="Shortcut Icon" href="faviconico"> IE地址栏前换成自己的图标
<link rel="Bookmark" href="faviconico"> 可以在收藏夹中显示出你的图标
<input style="imemode:disabled"> 关闭输入法
永远都会带着框架
<script language="javascript"><!
if (window == top)toplocationhref = "frameshtm"; //frameshtm为框架网页
// ></script>
防止被人frame
<SCRIPT LANGUAGE=javascript><!
if (toplocation != selflocation)toplocation=selflocation;
// ></SCRIPT>
<noscript><iframe src=*html></iframe></noscript> 网页将不能被另存为
<input type=button value=查看网页源代码
onclick="windowlocation = viewsource:+ ;">
怎样通过asp的手段来检查来访者是否用了代理
<% if RequestServerVariables("HTTP_X_FORWARDED_FOR")<>"" then
responsewrite "<font color=#FF>您通过了代理服务器"& _
"真实的IP为"&RequestServerVariables("HTTP_X_FORWARDED_FOR")
end if
%>
取得控件的绝对位置
//javascript
<script language="javascript"> function getIE(e){
var t=eoffsetTop;
var l=eoffsetLeft;
while(e=eoffsetParent){
t+=eoffsetTop;
l+=eoffsetLeft;
} alert("top="+t+"nleft="+l);
} </script>
//VBScript
<script language="VBScript"><!
function getIE()
dim tlab
set a=documentallimg
t=documentallimgoffsetTop
l=documentallimgoffsetLeft
while atagName<>"BODY"
set a = aoffsetParent
t=t+aoffsetTop
l=l+aoffsetLeft
wend
msgbox "top="&t&chr()&"left="&l"得到控件的位置"
end function
></script>
光标是停在文本框文字的最后
<script language="javascript"> function cc()
{ var e = eventsrcElement;
var r =ecreateTextRange();
rmoveStart(characterevaluelength);
rcollapse(true);
rselect();
} </script> <input type=text name=text value="" onfocus="cc()">
判断上一页的来源
asp:
requestservervariables("HTTP_REFERER")
javascript:
documentreferrer
最小化最大化关闭窗口
<object id=hh classid="clsid:ADBADFFCFAABA">
<param name="Command" value="Minimize"></object> <object id=hh classid="clsid:ADBADFFCFAABA">
<param name="Command" value="Maximize"></object> <OBJECT id=hh classid="clsid:adbadffcfaaba"> <PARAM NAME="Command" value="Close"></OBJECT>
<input type=button value=最小化 onclick=hhClick()> <input type=button value=最大化 onclick=hhClick()> <input type=button value=关闭 onclick=hhClick()> 本例适用于IE
<%
定义数据库连接的一些常量
Const adOpenForwardOnly = 游标只向前浏览记录不支持分页RecordsetBookMark
Const adOpenKeyset = 键集游标其他用户对记录说做的修改将反映到记录集中但其他用户增加或删除记录不会反映到记录集中支持分页RecordsetBookMark
Const adOpenDynamic = 动态游标功能最强但耗资源也最多用户对记录说做的修改增加或删除记录都将反映到记录集中支持全功能浏览(ACCESS不支持)
Const adOpenStatic = 静态游标只是数据的一个快照用户对记录说做的修改增加或删除记录都不会反映到记录集中支持向前或向后移动
Const adLockReadOnly = 锁定类型默认的只读不能作任何修改
Const adLockPessimistic = 当编辑时立即锁定记录最安全的方式
Const adLockOptimistic = 只有在调用Update方法时才锁定记录集而在此前的其他操作仍可对当前记录进行更改插入和删除等
Const adLockBatchOptimistic = 当编辑时记录不会被锁定而更改插入和删除是在批处理方式下完成的
Const adCmdText = &H
Const adCmdTable = &H
%>
网页不会被缓存
HTM网页
<META HTTPEQUIV="pragma" CONTENT="nocache"> <META HTTPEQUIV="CacheControl" CONTENT="nocache mustrevalidate"> <META HTTPEQUIV="expires" CONTENT="Wed Feb :: GMT"> 或者<META HTTPEQUIV="expires" CONTENT=""> ASP网页
ResponseExpires =
ResponseExpiresAbsolute = Now()
Responsecachecontrol = "nocache"
PHP网页
header("Expires: Mon Jul :: GMT");
header("CacheControl: nocache mustrevalidate");
header("Pragma: nocache");
检查一段字符串是否全由数字组成
<script language="javascript"><!
function checkNum(str){return strmatch(/D/)==null}
alert(checkNum(""))
alert(checkNum("a"))
// ></script>
获得一个窗口的大小
documentbodyclientWidthdocumentbodyclientHeight
怎么判断是否是字符
if (/[^xxff]/gtest(s)) alert("含有汉字");
else alert("全是字符");
TEXTAREA自适应文字行数的多少
<textarea rows= name=s cols= onpropertychange="thisstyleposHeight=thisscrollHeight"> </textarea>
日期减去天数等于第二个日期
<script language=javascript> function cc(dddadd)
{ //可以加上错误处理
var a = new Date(dd)
a = avalueOf()
a = a dadd * * * *
a = new Date(a)
alert(agetFullYear() + "年" + (agetMonth() + ) + "月" + agetDate() + "日")
} cc("//")
</script>
选择了哪一个Radio
<HTML><script language="vbscript"> function checkme()
for each ob in radio
if obchecked then windowalert obvalue
next
end function
</script><BODY> <INPUT name="radio" type="radio" value="style" checked>Style
<INPUT name="radio" type="radio" value="barcode">Barcode
<INPUT type="button" value="check" onclick="checkme()"> </BODY></HTML>
获得本页url的requestservervariables("")集合
ResponseWrite "<TABLE border=><! Table Header ><TR><TD><B>Variables</B></TD><TD><B>value</B></TD></TR>"
for each ob in RequestServerVariables
ResponseWrite "<TR><TD>"&ob&"</TD><TD>"&RequestServerVariables(ob)&"</TD></TR>"
next
ResponseWrite "</TABLE>"
本机ip<%=requestservervariables("remote_addr")%> 服务器名<%=RequestServerVariables("SERVER_NAME")%> 服务器IP<%=RequestServerVariables("LOCAL_ADDR")%> 服务器端口<%=RequestServerVariables("SERVER_PORT")%> 服务器时间<%=now%> IIS版本<%=RequestServerVariables"SERVER_SOFTWARE")%> 脚本超时时间<%=ServerScriptTimeout%> 本文件路径<%=servermappath(RequestServerVariables("SCRIPT_NAME"))%> 服务器CPU数量<%=RequestServerVariables("NUMBER_OF_PROCESSORS")%> 服务器解译引擎<%=ScriptEngine & "/"& ScriptEngineMajorVersion &""&ScriptEngineMinorVersion&""& ScriptEngineBuildVersion %> 服务器操作系统<%=RequestServerVariables("OS")%>
ENTER键可以让光标移到下一个输入框
<input onkeydown="if(eventkeyCode==)eventkeyCode=">
检测某个网站的链接速度
把如下代码加入<body>区域中:
<script language=javascript> tim=
setInterval("tim++")
b=
var autourl=new Array()
autourl[]="wwwjjjnet"
autourl[]="sjjsnet"
autourl[]="wwwjajjjcn"
autourl[]="wwwssscn"
autourl[]="wwwjjcom"
function butt(){
documentwrite("<form name=autof>")
for(var i=;i<autourllength;i++)
documentwrite("<input type=text name=txt"+i+" size= value=测试中……> =》<input type=text name=url"+i+" size=> =》<input type=button value=GO onclick=windowopen(thisformurl"+i+"value)><br/>")
documentwrite("<input type=submit value=刷新></form>")
} butt()
function auto(url){
documentforms[]["url"+b]value=url
if(tim>)
{documentforms[]["txt"+b]value="链接超时"}
else
{documentforms[]["txt"+b]value="时间"+tim/+"秒"}
b++
} function run(){for(var i=;i<autourllength;i++)documentwrite("<img src=http://"+autourl+"/"+Mathrandom()+" width= height= onerror=auto(http://";;+autourl+")>")}
run()</script>
各种样式的光标
auto 标准光标
default 标准箭头
hand 手形光标
wait 等待光标
text I形光标
verticaltext 水平I形光标
nodrop 不可拖动光标
notallowed 无效光标
help ?帮助光标
allscroll 三角方向标
move 移动标
crosshair 十字标
eresize
nresize
nwresize
wresize
sresize
seresize
swresize
