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

月中水

1.oncontextmenu="window.event.returnvalue=false"将彻底屏蔽鼠标右键
<tableborderoncontextmenu=return(false)><td>no</table>可用于Table
2.<bodyonselectstart="returnfalse">取消选取、防止复制
$ O& A0 M2 w4 @5 y1 _
% U7 y* S0 d9 _/ l3.onpaste="returnfalse"不准粘贴

4 ?) d- v3 v9 j9 m$ u' \4.oncopy="returnfalse;"oncut="returnfalse;"防止复制

5.<linkrel="ShortcutIcon"href="favicon.ico">IE地址栏前换成自己的图标
9 [% U+ V  c8 i0 v! `
6.<linkrel="Bookmark"href="favicon.ico">可以在收藏夹中显示出你的图标
4 ]$ E) n6 n' m  ^9 N+ U7 I3 Y; d
7.<inputstyle="ime-mode:disabled">关闭输入法
3 R$ D, O) C8 g" P+ J
! B: h# Z/ c' g: z& T" {' U8.永远都会带着框架
* ^8 A& ~5 ~2 k4 K4 C1 O<scriptlanguage="javascript"><!--
2 M5 W3 ^1 f: x8 N0 x! [if(window==top)top.location.href="frames.htm";//frames.htm为框架网页
+ Y# \( n4 ?7 A: Q% }6 I  e, n1 D//--></script>
0 T8 f* T+ t5 j0 U' y  B
9.防止被人frame
2 [" ]! c9 V1 _0 B  f; \<SCRIPTLANGUAGE=javascript><!--
; U( I, y7 ^* p% ~: o1 o2 }if(top.location!=self.location)top.location=self.location;
//--></SCRIPT>
1 e  p0 I: b; d0 M
! a- r7 F1 u1 w10.<noscript><iframesrc=*.html></iframe></noscript>网页将不能被另存为
1 n. n4 f( q) I: a
* d& t  J" Z" a4 R/ }11.<inputtype=buttonvalue=查看网页源代码
onclick="window.location='view-source:'+'<IMG src="pic/url.gif" align=absMiddle border=0>' target=_blank>http://www.csdn.net/">
: K: `( p) \0 j( C  Y
/ L9 i3 A* s2 t+ h& \) J: x7 o12.怎样通过asp的手段来检查来访者是否用了代理
<%ifRequest.ServerVariables("HTTP_X_FORWARDED_FOR")<>""then
response.write"<fontcolor=#FF0000>您通过了代理服务器，"&_
"真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
: l( |9 D( a# K3 X( ^: zendif
%>
1 @0 T$ {" j3 E- o* z3 H3 u
# K  g5 y5 k9 {6 L+ S" a13.取得控件的绝对位置
6 d' `) ^: U" R. l9 X9 y. t" Z
# a0 b$ M/ H4 H( t) i//javascript
; e! m* v9 J  d9 N$ s% U% a<scriptlanguage="javascript">
functiongetIE(e){
3 a, O* W% ]5 s. f% Kvart=e.offsetTop;
$ _5 W0 z. _. f9 ~4 X- Jvarl=e.offsetLeft;
0 K/ Y7 d7 f1 w9 ?* j% i7 Dwhile(e=e.offsetParent){
t+=e.offsetTop;
! ^- I- Z4 L. |, v* x5 `l+=e.offsetLeft;
% X/ ]8 X2 T- @: u3 O& [! ?}
6 M# `5 I) ^: P! M1 g1 Valert("top="+t+"\nleft="+l);
}
% i$ ]; r; Z7 z9 ^2 j  Y</script>

. M, j" @: X6 F( o; o1 i- c//VBScript
# j* r7 a4 O& P2 M<scriptlanguage="VBScript"><!--
& z8 o8 `6 d: n+ b5 K- dfunctiongetIE()
dimt,l,a,b
seta=document.all.img1
5 T# z. F3 r+ Y. l) ?4 y7 jt=document.all.img1.offsetTop
" y; R8 q$ y+ D3 m. j0 D& [l=document.all.img1.offsetLeft
& G9 ~8 b) e5 C0 O' \& {  s+ }whilea.tagName<>"BODY"
+ }! B  |+ h' Useta=a.offsetParent
/ X: d/ J4 n+ u6 ?3 Rt=t+a.offsetTop
: |  \1 x( @# d  c3 l9 ^& ~l=l+a.offsetLeft
wend
% P( G6 D, ~6 e  G1 v$ ?msgbox"top="&t&chr(13)&"left="&l,64,"得到控件的位置"
endfunction
- O  |, z, v3 \--></script>
9 P/ g0 c8 ~1 t1 V; g9 r$ o
, n- x. |4 n& U) P, |4 [& D. E14.光标是停在文本框文字的最后
& g/ r4 ?9 C) L  |+ f9 x) i2 V<scriptlanguage="javascript">
4 h5 J9 q! w* m% ^functioncc()
{
. C0 s4 [5 N) bvare=event.srcElement;
varr=e.createTextRange();
8 n- r- R6 T) M2 u( E! }: cr.moveStart('character',e.value.length);
r.collapse(true);
5 R' U8 r* P7 h9 f% wr.select();
}
</script>
<inputtype=textname=text1value="123"onfocus="cc()">
. D3 s1 J' M4 z4 o( G4 J1 u
' ~2 z2 _4 b' x  E# d# j6 _4 Z15.判断上一页的来源
. V" X, m! Q4 |. k/ S. N/ H% dasp:
request.servervariables("HTTP_REFERER")

% }0 j! j+ K+ q9 Pjavascript:
document.referrer

16.最小化、最大化、关闭窗口
<objectid=hh1classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
1 M. d* Z% i. ^$ l<paramname="Command"value="Minimize"></object>
<objectid=hh2classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
9 {" H5 P0 z5 J9 j- v+ u! B7 i; g<paramname="Command"value="Maximize"></object>
<OBJECTid=hh3classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
% x4 A& ]. A% e4 x. Q; j' D<PARAMNAME="Command"value="Close"></OBJECT>
* M# U  ^6 e/ z' h. S
<inputtype=buttonvalue=最小化onclick=hh1.Click()>
<inputtype=buttonvalue=最大化onclick=hh2.Click()>
<inputtype=buttonvalue=关闭onclick=hh3.Click()>
本例适用于IE
9 f+ y- K# A4 E/ }
6 T- M/ P7 C; `3 W, U  @, h! `6 @17.
) A* N0 U3 N0 d0 x. L- f, a3 h3 l<%
'定义数据库连接的一些常量
ConstadOpenForwardOnly=0'游标只向前浏览记录，不支持分页、Recordset、BookMark
ConstadOpenKeyset=1'键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark
ConstadOpenDynamic=2'动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。
ConstadOpenStatic=3'静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动

" ~7 U; K  r. Q: P! aConstadLockReadOnly=1'锁定类型，默认的，只读，不能作任何修改
ConstadLockPessimistic=2'当编辑时立即锁定记录，最安全的方式
ConstadLockOptimistic=3'只有在调用Update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等
ConstadLockBatchOptimistic=4'当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的

ConstadCmdText=&H0001
( T6 v$ @% L/ P) J) d% z! NConstadCmdTable=&H0002
%>
+ U$ B  V$ {3 |) \5 Q9 \
3 j! Q- \% ?/ t- ^6 W: K& ~9 X18.网页不会被缓存
- I0 C; x- K* g; j; t2 V- X. yHTM网页
<METAHTTP-EQUIV="pragma"CONTENT="no-cache">
" [; v) ]% {8 d( A' `<METAHTTP-EQUIV="Cache-Control"CONTENT="no-cache,must-revalidate">
0 C, a& G1 b5 I3 a<METAHTTP-EQUIV="expires"CONTENT="Wed,26Feb199708:21:57GMT">
7 v/ z8 g. {* r/ _( A  ^或者<METAHTTP-EQUIV="expires"CONTENT="0">
9 _- |8 Q) |- |$ ~ASP网页
Response.Expires=-1
  {, g) ]* P& T! Z* tResponse.ExpiresAbsolute=Now()-1
, Y; y- c8 U  n: A  aResponse.cachecontrol="no-cache"
/ u, E/ P* l7 JPHP网页
% R* M' G3 [8 D* h6 n% C% v7 iheader("Expires:Mon,26Jul199705:00:00GMT");
3 \6 w3 U  Y; x; ~. Zheader("Cache-Control:no-cache,must-revalidate");
header("Pragma:no-cache");

& k& T" _1 }8 n
/ @) n  J$ u9 O, g* N19.检查一段字符串是否全由数字组成
# V* n0 Y1 v6 o<scriptlanguage="javascript"><!--
functioncheckNum(str){returnstr.match(/\D/)==null}
alert(checkNum("1232142141"))
alert(checkNum("123214214a1"))
//--></script>
" c9 T& R% Q. E20.获得一个窗口的大小
document.body.clientWidth,document.body.clientHeight

5 @8 h2 w* K, o% t( h" i. B( V3 }2 D21.怎么判断是否是字符
if(/[^\x00-\xff]/g.test(s))alert("含有汉字");
- Q$ f9 H% M0 \: ielsealert("全是字符");
/ c! p0 n/ Q5 y0 n  `; [1 Z
( H  m% q& q6 T3 c9 n  g( J5 h- r22.TEXTAREA自适应文字行数的多少
! M4 w! T5 a* _6 V<textarearows=1 name=s1 cols=27>
1 j- g+ s7 f8 y) `9 m1 C7 J6 v</textarea>

23.日期减去天数等于第二个日期
<scriptlanguage=javascript>
functioncc(dd,dadd)
{
% V& M6 I% I+ e9 S: E//可以加上错误处理
8 u+ \; H5 o% w6 Tvara=newDate(dd)
9 r5 V; @! m$ o) t+ c- la=a.valueOf()
a=a-dadd*24*60*60*1000
a=newDate(a)
alert(a.getFullYear()+"年"+(a.getMonth()+1)+"月"+a.getDate()+"日")
" r! t' m8 x' s}
cc("12/23/2002",2)
</script>
8 O7 j& S+ _( O* f
& f6 l; R/ h" P8 ^8 `4 ]24.选择了哪一个Radio
<HTML><scriptlanguage="vbscript">
8 Z" {" c, L- q) B* n  \functioncheckme()
3 X) G, T  @2 k, b0 [foreachobinradio1
5 x# r, n2 {9 n9 c2 W8 k% Gifob.checkedthenwindow.alertob.value
) q% H' \) f. m. _4 Unext
endfunction
# [/ G% n# [7 i. w/ P4 ~</script><BODY>
<INPUT name="radio1" type="radio" value="style" checked>style
' O3 c- R$ s* W2 D( a/ z; l<INPUT name="radio1" type="radio" value="barcode">Barcode
! T# ~. s9 E" `. {: o8 ?<INPUT type="button" value="check"onclick="checkme()">
% i1 Q& ~' O( }: S</BODY></HTML>

25.获得本页url的request.servervariables("")集合
3 c0 Y: D$ i& t# A- f* R& @Response.Write"<TABLEborder=1><!--TableHeader--><TR><TD><B>Variables</B></TD><TD><B>value</B></TD></TR>"
1 T2 W: O1 I& u6 \9 u# Z% XforeachobinRequest.ServerVariables
Response.Write"<TR><TD>"&ob&"</TD><TD>"&Request.ServerVariables(ob)&"</TD></TR>"
next
3 L  F& a8 m. k9 ^; _Response.Write"</TABLE>"

26.
本机ip<%=request.servervariables("remote_addr")%>
服务器名<%=Request.ServerVariables("SERVER_NAME")%>
( h1 H7 _! o- L, i) |服务器IP<%=Request.ServerVariables("LOCAL_ADDR")%>
/ e/ S4 A, P5 O服务器端口<%=Request.ServerVariables("SERVER_PORT")%>
服务器时间<%=now%>
/ f# y: _% g7 q0 g% s  LIIS版本<%=Request.ServerVariables"SERVER_SOFTWARE")%>
* L' Z2 h) J9 A$ L6 E6 U3 h脚本超时时间<%=Server.ScriptTimeout%>
本文件路径<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>
服务器CPU数量<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
$ Q, [) w& K  I1 v" Y服务器解译引擎<%=ScriptEngine&"/" & ScriptEngineMajorVersion &"." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion%>
服务器操作系统<%=Request.ServerVariables("OS")%>
' F# J6 U6 `' b
# I2 I. \* ]# v8 j( C  a' Y$ a2 f27.ENTER键可以让光标移到下一个输入框
, t' _5 W1 K0 ~$ e+ _<input>

28.检测某个网站的链接速度：
+ M. `+ }9 b  _# p3 Q# o把如下代码加入<body>区域中:
<scriptlanguage=javascript>
) P& L$ A7 n  T! X3 G- Q4 L# Mtim=1
6 W9 m4 D" m3 k; H2 ?  `3 fsetInterval("tim++",100)
# [% G5 s7 h/ I" Qb=1
5 l$ \1 ?: ^7 g6 J) v  }% o8 e
* i+ o& X* ~* X5 p8 Z1 Xvarautourl=newArray()
autourl[1]="< src="pic/url.gif" align=absMiddle border=0>www.njcatv.net"
& g' r! N* `+ ?+ e1 ^5 F+ q) D5 Dautourl[2]="javacool.3322.net"
' s' @7 i4 V' oautourl[3]="< src="pic/url.gif" align=absMiddle border=0>www.sina.com.cn"
autourl[4]="www.nuaa.edu.cn"
' n8 ~+ l% `$ Z4 C3 ]autourl[5]="< src="pic/url.gif" align=absMiddle border=0>www.cctv.com"

functionbutt(){
+ M- r! Z9 f( q2 t6 e/ {document.write("<formname=autof>")
/ w$ {) j- u/ p9 J! x/ ifor(vari=1;i<autourl.length;i++)
9 }& B1 D& G. s# t1 s: s0 pdocument.write("<inputtype=textname=txt"+i+"size=10value=测试中……>=》<inputtype=textname=url"+i+"size=40>=》<inputtype=buttonvalue=GOonclick=window.open(this.form.url"+i+".value)><br/>")
8 D; H( B3 \" ^; w6 E, Udocument.write("<inputtype=submitvalue=刷新></form>")
}
butt()
+ o, e5 d: B" V4 l" ^! L* N5 jfunctionauto(url){
document.forms[0]["url"+b].value=url
8 {) I+ t' n  Aif(tim>200)
' W. c- d) D5 k6 ]0 {8 R5 q* A{document.forms[0]["txt"+b].value="链接超时"}
else
{document.forms[0]["txt"+b].value="时间"+tim/10+"秒"}
b++
}
; m( m* m9 X6 d! j% Jfunctionrun(){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+"')>")}
run()</script>


29.各种样式的光标
auto：标准光标
% v  r2 g" y, }& t9 \+ E/ gdefault：标准箭头
hand：手形光标
+ z! N6 ]0 h/ |$ uwait：等待光标
text：I形光标
vertical-text：水平I形光标
no-drop：不可拖动光标
6 S/ m( [2 r9 W6 K0 D, E- ]not-allowed：无效光标
4 Q8 g! c& H2 Y0 k0 nhelp：?帮助光标
7 f0 M+ j% g1 q$ v/ j. H1 rall-scroll：三角方向标
move：移动标
crosshair：十字标
) D8 `3 _) B* O. l- pe-resize
n-resize
nw-resize
w-resize
s-resize
6 k  l/ O/ W6 u# R% @) |9 ^se-resize
; o; t! S) \6 S7 N% C$ Nsw-resize

; Y$ B; W1 I; q0 N* u1.本地无缓存，每次自动刷新
- }5 Q  G- @1 j! Gresponse.expires=0
/ W+ w8 ]; J' A! N) V' X, eresponse.addHeader"pragma","no-cache"
1 E# Y: C/ O3 o3 ~  rresponse.addHeader"cache-control","private"
! h  M, y" A) g+ q, X" V
2.修改contentType并下载gif等格式
<%
functiondl(f,n)
- @- x& W5 e9 @& J; Konerrorresumenext

0 N; c# }/ i  s& D: c7 _6 zsets=CreateObject("Adodb.Stream")
S.Mode=3
S.Type=1
* f, Y1 C0 c+ A7 U" x) ]S.Open
s.LoadFromFile(server.mappath(f))
iferr.number>0then
! c" f& C1 P7 `" Wresponse.writeerr.number&":"&err.description
) x2 ?$ T3 g8 L# U' Qelse
response.contentType="application/x-gzip"
  t$ e! ]* ~% aresponse.addheader"Content-Disposition:","attachment;filename="&n
response.binarywrite(s.Read(s.size))
endif
endfunction
% P' R3 m7 Q" s* D- ]
calldl("012922501.gif","t1.gif")
%>
9 q6 I8 i. J7 Q- V
9 b9 H! n- v* a' ^% {0 ^' s
19.检查一段字符串是否全由数字组成
<scriptlanguage="javascript"><!--
functioncheckNum(str){return!/\D/.test(str)}
$ Z% p; s- L3 ~  Talert(checkNum("1232142141"))
alert(checkNum("123214214a1"))
//--></script>

20.获得一个窗口的大小
document.body.clientWidth,document.body.clientHeight
, g3 E, `1 m7 @  A$ Sdocument.body.offsetWidth,document.body.offsetHeight
+ _. P% E# @! B: `" ?' g6 r有时还需要知道window.screenTop,window.screenLeft
! N: G! C  ?# \. X8 t. K
  f. ^5 K+ s6 [' h* Y21.怎么判断是否含有汉字
+ r' a! C5 e7 q: L' c1 K' L' M" yif(escape(str).indexOf("%u")!=-1)alert("含有汉字");
elsealert("全是字符");
8 z. T& H, f9 M, A( N4 }
3 ^  G' O, E' p22.TEXTAREA自适应文字行数的多少
IE5.5+可以用overflow-y:visible
<textarearows=1name=s1cols=27style="overflow-y:visible">
</textarea>

+ D- R2 E8 o. _23.日期减去天数等于第二个日期
<scriptlanguage=javascript>
; ?0 I' n+ ^6 T( z1 P; D& {functioncc(dd,dadd)
* L5 E/ ?- d0 q{
( Z, Q: q/ Q+ S8 K% t# E//可以加上错误处理
vard=newDate(dd.replace("-","/"))
( t$ f9 d. H# j+ ud.setDate(d.getDate()+dadd)
' N/ Z3 X$ t: H8 Zalert(d.getFullYear()+"年"+(d.getMonth()+1)+"月"+d.getDate()+"日")
}
2 X+ m& M& k2 i" J7 ~cc("2002-2-28",2)
</script>