[建站技术]制作网页时的几个经典代码

月中水

1.oncontextmenu="window.event.returnvalue=false"将彻底屏蔽鼠标右键
. m" [! c  d  i/ B) _3 ^<tableborderoncontextmenu=return(false)><td>no</table>可用于Table
2.<bodyonselectstart="returnfalse">取消选取、防止复制

3.onpaste="returnfalse"不准粘贴
4 S) q6 w3 |6 ~  Q! z
  A( {4 g9 u- M$ H7 K( A4.oncopy="returnfalse;"oncut="returnfalse;"防止复制

5.<linkrel="ShortcutIcon"href="favicon.ico">IE地址栏前换成自己的图标
8 B" v# y8 X9 e: K8 e# d
6.<linkrel="Bookmark"href="favicon.ico">可以在收藏夹中显示出你的图标

$ c8 B# S& T8 T; h2 ]% l" q2 c7.<inputstyle="ime-mode:disabled">关闭输入法
, I- \. ~  P! x2 o
4 g3 F) ?5 G- P* P6 H5 [8 e6 z. E% w) `8.永远都会带着框架
<scriptlanguage="javascript"><!--
  _' K/ _, h. l, h( E! |if(window==top)top.location.href="frames.htm";//frames.htm为框架网页
//--></script>
' b, \. ^) b: M$ ?
9.防止被人frame
<SCRIPTLANGUAGE=javascript><!--
$ |( V- C1 g: \' Qif(top.location!=self.location)top.location=self.location;
6 f8 W* G8 x5 G! h$ z//--></SCRIPT>

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

+ B3 @5 D. G. {+ V* v11.<inputtype=buttonvalue=查看网页源代码
onclick="window.location='view-source:'+'<IMG src="pic/url.gif" align=absMiddle border=0>' target=_blank>http://www.csdn.net/">

12.怎样通过asp的手段来检查来访者是否用了代理
- X) n, c+ h4 ~! L% ~. ]<%ifRequest.ServerVariables("HTTP_X_FORWARDED_FOR")<>""then
response.write"<fontcolor=#FF0000>您通过了代理服务器，"&_
9 m0 \; O) F8 z"真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
2 u6 y  Q. v( I/ Q3 P7 s3 D, w& Sendif
%>

; Q; r' N7 V# t7 Y( ?! t13.取得控件的绝对位置

//javascript
<scriptlanguage="javascript">
functiongetIE(e){
vart=e.offsetTop;
varl=e.offsetLeft;
while(e=e.offsetParent){
t+=e.offsetTop;
l+=e.offsetLeft;
}
9 |5 X6 e" U0 t6 h  yalert("top="+t+"\nleft="+l);
4 a- ?% q5 i1 A}
</script>
: A* d1 \! |. K7 M3 c" Y; r6 ]
+ ], G. ~3 C3 ^( x1 B+ M5 y//VBScript
% p  @. ]; ]8 k<scriptlanguage="VBScript"><!--
& G2 }% ]" p9 `: e' G2 R4 J9 R. hfunctiongetIE()
dimt,l,a,b
: q8 p( v  _$ }* k* xseta=document.all.img1
t=document.all.img1.offsetTop
l=document.all.img1.offsetLeft
% G* G* T9 c) dwhilea.tagName<>"BODY"
seta=a.offsetParent
# K) H9 E3 j) G+ f3 s& ?6 Zt=t+a.offsetTop
$ j/ u4 `" W) q- ?! a5 B4 Z9 Cl=l+a.offsetLeft
- F. Y5 o+ X  k* h7 `wend
msgbox"top="&t&chr(13)&"left="&l,64,"得到控件的位置"
endfunction
--></script>

3 e  e1 k  s- s) h- r* t6 B7 S14.光标是停在文本框文字的最后
& a( s' \( d: ^  `+ H! z<scriptlanguage="javascript">
9 j2 y% }' u/ E4 P! [8 o" ?" V" f' Kfunctioncc()
{
$ K$ o5 I5 s2 xvare=event.srcElement;
varr=e.createTextRange();
r.moveStart('character',e.value.length);
r.collapse(true);
1 E& W" }& [5 F6 X4 j( e, _r.select();
}
</script>
<inputtype=textname=text1value="123"onfocus="cc()">
" B0 s+ p0 q; D) r( K5 E; J
( |7 f# Y/ e; B- O* U15.判断上一页的来源
8 B( Z) B. x1 k2 }& r" ?. w6 Dasp:
request.servervariables("HTTP_REFERER")

javascript:
, A4 s8 ?! u, I- x) S) I8 {7 bdocument.referrer

( ~6 w2 S8 i( P$ g4 i3 r16.最小化、最大化、关闭窗口
# T0 G- `8 C, I<objectid=hh1classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
6 R# U) o/ J) n$ k% K<paramname="Command"value="Minimize"></object>
<objectid=hh2classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
7 |" J7 |& }* a* H<paramname="Command"value="Maximize"></object>
/ |& K* V3 g1 |  X, U- s5 v<OBJECTid=hh3classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
6 ?5 T# }3 c2 w; b4 [" V<PARAMNAME="Command"value="Close"></OBJECT>
. g# v2 C8 x- G. f/ u* g
5 r6 D( l$ x% [, b' u$ u<inputtype=buttonvalue=最小化onclick=hh1.Click()>
<inputtype=buttonvalue=最大化onclick=hh2.Click()>
- l: Y3 l2 R# `" z. L<inputtype=buttonvalue=关闭onclick=hh3.Click()>
本例适用于IE
& M5 h' U! H6 g; I
: f1 W. ~  y  z0 C! ]1 G. u17.
- L4 V' I% J  u" e<%
: }' L6 @/ Z' W! s'定义数据库连接的一些常量
" S- L3 b9 ]$ ?ConstadOpenForwardOnly=0'游标只向前浏览记录，不支持分页、Recordset、BookMark
6 z7 s- g; F2 X7 ~- i' B9 dConstadOpenKeyset=1'键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark
ConstadOpenDynamic=2'动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。
ConstadOpenStatic=3'静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动
4 G( _0 c: Z8 H7 [, H1 f5 _
5 N$ V" X+ U! D% w- l( _  FConstadLockReadOnly=1'锁定类型，默认的，只读，不能作任何修改
ConstadLockPessimistic=2'当编辑时立即锁定记录，最安全的方式
ConstadLockOptimistic=3'只有在调用Update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等
ConstadLockBatchOptimistic=4'当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的

. J) r5 S! W- [" [9 zConstadCmdText=&H0001
ConstadCmdTable=&H0002
%>

. b" s! r5 m; Q) w18.网页不会被缓存
+ m) ^1 p8 t' y' s# PHTM网页
<METAHTTP-EQUIV="pragma"CONTENT="no-cache">
- t" j: |$ u  }, W) G" Y  ]<METAHTTP-EQUIV="Cache-Control"CONTENT="no-cache,must-revalidate">
<METAHTTP-EQUIV="expires"CONTENT="Wed,26Feb199708:21:57GMT">
或者<METAHTTP-EQUIV="expires"CONTENT="0">
8 |9 e$ P1 M4 X9 LASP网页
; g! r/ g- s% [3 \: j9 h7 LResponse.Expires=-1
Response.ExpiresAbsolute=Now()-1
Response.cachecontrol="no-cache"
- l" n  Y& `7 D" tPHP网页
# w8 |( }% g* r8 ]' k) E0 ^8 n) nheader("Expires:Mon,26Jul199705:00:00GMT");
header("Cache-Control:no-cache,must-revalidate");
+ ]9 I7 Z, B' U6 o5 U6 S# k; i# xheader("Pragma:no-cache");

; @/ I1 L0 Q! U  H
19.检查一段字符串是否全由数字组成
<scriptlanguage="javascript"><!--
functioncheckNum(str){returnstr.match(/\D/)==null}
3 U5 b& T! B8 N% Q1 G7 Ealert(checkNum("1232142141"))
! t7 C2 W( ~. |' m5 ralert(checkNum("123214214a1"))
//--></script>
20.获得一个窗口的大小
document.body.clientWidth,document.body.clientHeight
) |, n9 X3 u$ I% T" _# O
21.怎么判断是否是字符
1 |5 q7 _1 e/ w* ]" w" c9 Wif(/[^\x00-\xff]/g.test(s))alert("含有汉字");
elsealert("全是字符");

6 R2 E' P- Q) w( t* o22.TEXTAREA自适应文字行数的多少
<textarearows=1 name=s1 cols=27>
+ r9 _. y( Q; I  p</textarea>
4 l, V+ |7 C7 U# M( y! }
23.日期减去天数等于第二个日期
<scriptlanguage=javascript>
functioncc(dd,dadd)
+ `: @9 u( w* J8 X{
//可以加上错误处理
7 p" J8 ]  _( kvara=newDate(dd)
" ?$ [( c! t$ u. La=a.valueOf()
- @7 d! C, f* F6 _! }a=a-dadd*24*60*60*1000
' b4 O+ W1 y" \8 a4 H- Pa=newDate(a)
' T& C* L2 R/ V- [, u1 }9 ealert(a.getFullYear()+"年"+(a.getMonth()+1)+"月"+a.getDate()+"日")
' V3 A" U. p: i( {* l}
cc("12/23/2002",2)
</script>
9 U. S  c" h! A! S5 `( N0 h
24.选择了哪一个Radio
<HTML><scriptlanguage="vbscript">
functioncheckme()
foreachobinradio1
ifob.checkedthenwindow.alertob.value
next
endfunction
</script><BODY>
<INPUT name="radio1" type="radio" value="style" checked>style
<INPUT name="radio1" type="radio" value="barcode">Barcode
2 s+ T0 ~" C2 ~9 z: o<INPUT type="button" value="check"onclick="checkme()">
</BODY></HTML>

; s8 ~! r5 Q9 Q/ Z. p/ ^4 i9 c! y25.获得本页url的request.servervariables("")集合
Response.Write"<TABLEborder=1><!--TableHeader--><TR><TD><B>Variables</B></TD><TD><B>value</B></TD></TR>"
foreachobinRequest.ServerVariables
Response.Write"<TR><TD>"&ob&"</TD><TD>"&Request.ServerVariables(ob)&"</TD></TR>"
( y/ {2 f' p6 Q# x) m$ _9 \next
Response.Write"</TABLE>"

% u5 `- @6 i" C* h  {26.
2 t% }& x+ E5 m% E2 t本机ip<%=request.servervariables("remote_addr")%>
) t7 ?6 n6 u4 a6 g. U8 k6 _服务器名<%=Request.ServerVariables("SERVER_NAME")%>
服务器IP<%=Request.ServerVariables("LOCAL_ADDR")%>
服务器端口<%=Request.ServerVariables("SERVER_PORT")%>
服务器时间<%=now%>
6 l* a9 J2 Y8 ^' S" kIIS版本<%=Request.ServerVariables"SERVER_SOFTWARE")%>
脚本超时时间<%=Server.ScriptTimeout%>
本文件路径<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>
服务器CPU数量<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
服务器解译引擎<%=ScriptEngine&"/" & ScriptEngineMajorVersion &"." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion%>
9 u- P0 j# U% U7 ?0 d; c" [( b服务器操作系统<%=Request.ServerVariables("OS")%>

27.ENTER键可以让光标移到下一个输入框
3 @5 h) _" K1 _% L% O+ Q<input>

' P' v7 c" l4 W28.检测某个网站的链接速度：
* L3 V7 ^& I4 z4 r把如下代码加入<body>区域中:
<scriptlanguage=javascript>
2 T1 P# r' P) ztim=1
setInterval("tim++",100)
b=1

varautourl=newArray()
autourl[1]="< src="pic/url.gif" align=absMiddle border=0>www.njcatv.net"
autourl[2]="javacool.3322.net"
; M6 e4 M" Q% k' zautourl[3]="< src="pic/url.gif" align=absMiddle border=0>www.sina.com.cn"
( v. ]- L% C; S5 Lautourl[4]="www.nuaa.edu.cn"
autourl[5]="< src="pic/url.gif" align=absMiddle border=0>www.cctv.com"
; `' K; Z* s! r7 u
( v8 l" x6 v+ a0 s6 qfunctionbutt(){
document.write("<formname=autof>")
for(vari=1;i<autourl.length;i++)
$ j! |2 q& Z  p5 I5 X5 J! H3 Kdocument.write("<inputtype=textname=txt"+i+"size=10value=测试中……>=》<inputtype=textname=url"+i+"size=40>=》<inputtype=buttonvalue=GOonclick=window.open(this.form.url"+i+".value)><br/>")
document.write("<inputtype=submitvalue=刷新></form>")
  @% C  _4 N5 N}
( S5 U; E6 W. J) Lbutt()
0 x( u# d9 ]) G: B. a( ~6 Afunctionauto(url){
document.forms[0]["url"+b].value=url
* X  r/ r& H2 f* [! e$ g+ Gif(tim>200)
{document.forms[0]["txt"+b].value="链接超时"}
3 A- L8 A' j2 ^7 ]9 u$ Selse
{document.forms[0]["txt"+b].value="时间"+tim/10+"秒"}
, {2 U) Y3 E7 c# N7 e1 m9 |2 h. Db++
}
" N3 I# X* J+ W. dfunctionrun(){for(vari=1;i<autourl.length;i++)document.write("<imgsrc=http://"+autourl+"/"+Math.random()+"width=1height=1onerror=auto('< src="pic/url.gif" align=absMiddle border=0>http://";+autourl+"')>")}
, H+ T$ ~7 p. W& F2 n) k4 Z, }; {run()</script>
: Q0 [. P; s$ ^/ |
8 O1 ?% C3 q6 A! w4 v3 J3 K
* b1 u" `" l6 ]1 S4 I4 Q29.各种样式的光标
auto：标准光标
% [0 B& k- t7 {: e" z# mdefault：标准箭头
hand：手形光标
* m4 x; m3 T5 v  {: m+ F& `! K, o- |wait：等待光标
& j, J- m% g& G7 ~) S; Dtext：I形光标
/ q- r  ~/ b4 k# ]vertical-text：水平I形光标
+ @/ `) N' i5 z& p8 Nno-drop：不可拖动光标
not-allowed：无效光标
help：?帮助光标
6 ?* o/ Q4 I; C+ L& L& Q) xall-scroll：三角方向标
+ x5 K8 p9 u4 wmove：移动标
crosshair：十字标
e-resize
* N, r3 E6 T9 h4 o/ Pn-resize
nw-resize
w-resize
# U( H" s- v+ d/ c. gs-resize
se-resize
sw-resize

1.本地无缓存，每次自动刷新
; `* U+ r8 ~5 j+ {response.expires=0
response.addHeader"pragma","no-cache"
5 _% z; h  w3 c/ F! Z+ cresponse.addHeader"cache-control","private"
- z$ U- j& f% e3 I" Z
2.修改contentType并下载gif等格式
<%
5 L* I  \: |5 @0 q. u) bfunctiondl(f,n)
# b7 D' w. v% x' Xonerrorresumenext

sets=CreateObject("Adodb.Stream")
' G1 _8 S- F* @  LS.Mode=3
S.Type=1
S.Open
" R4 R+ f+ G& D0 p0 ~s.LoadFromFile(server.mappath(f))
iferr.number>0then
response.writeerr.number&":"&err.description
7 d- b% ^* Q' c4 }9 U) ?0 qelse
response.contentType="application/x-gzip"
1 D4 T+ k& @. L0 y$ z1 Q% [) jresponse.addheader"Content-Disposition:","attachment;filename="&n
; x8 Z  ~( @0 I2 }3 Aresponse.binarywrite(s.Read(s.size))
( ^/ d2 p, _: F5 f. dendif
endfunction
: n1 U; D' d! X0 Y
0 B2 G; v0 ~4 o1 X8 @- ncalldl("012922501.gif","t1.gif")
. R& d: a9 c7 F$ h1 I5 ?( I%>
6 m$ b$ z# W) l1 \9 Q5 i

, ^" {0 R. J# S! s8 y19.检查一段字符串是否全由数字组成
<scriptlanguage="javascript"><!--
+ I& D. k! C! `functioncheckNum(str){return!/\D/.test(str)}
5 ~+ F* O; F: \7 }: qalert(checkNum("1232142141"))
alert(checkNum("123214214a1"))
//--></script>
2 J  z  X% m1 X
- e" V" j9 w7 k  p, `3 _, L( C+ V20.获得一个窗口的大小
* a& ~) F5 F0 \# j. H  ndocument.body.clientWidth,document.body.clientHeight
document.body.offsetWidth,document.body.offsetHeight
& Y3 y* A4 o+ Q5 I+ Z有时还需要知道window.screenTop,window.screenLeft

2 n  a7 ^/ \! I% g: w1 N, s+ u5 W21.怎么判断是否含有汉字
if(escape(str).indexOf("%u")!=-1)alert("含有汉字");
elsealert("全是字符");
5 a! e. ]7 [! L% o1 q/ [
' l2 v+ X- ]  C  K; b$ A22.TEXTAREA自适应文字行数的多少
* O2 J' B( M: g7 K1 vIE5.5+可以用overflow-y:visible
<textarearows=1name=s1cols=27style="overflow-y:visible">
" ?# J$ p$ `, b- ^7 x) @</textarea>

3 S- c! J; p1 x6 R23.日期减去天数等于第二个日期
<scriptlanguage=javascript>
" `% s$ K1 P9 G& Y9 }% }* Bfunctioncc(dd,dadd)
" ~: R. J7 R  j% r4 E, z' Q. K{
//可以加上错误处理
vard=newDate(dd.replace("-","/"))
* Q: R( j! k6 c; i) y" ld.setDate(d.getDate()+dadd)
alert(d.getFullYear()+"年"+(d.getMonth()+1)+"月"+d.getDate()+"日")
}
cc("2002-2-28",2)
% d; }- S, n1 }% C" z: d</script>