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

月中水

1.oncontextmenu="window.event.returnvalue=false"将彻底屏蔽鼠标右键
5 O) b2 P# w) `- p( |" o, N, g<tableborderoncontextmenu=return(false)><td>no</table>可用于Table
2.<bodyonselectstart="returnfalse">取消选取、防止复制
, T  A9 F& ^) Q, V* Y7 u
3.onpaste="returnfalse"不准粘贴
1 R. A6 C' b; Q+ A9 F9 p! r) m
) k& Z, k% P/ V; o4.oncopy="returnfalse;"oncut="returnfalse;"防止复制

5.<linkrel="ShortcutIcon"href="favicon.ico">IE地址栏前换成自己的图标
# `1 ~% R1 n: b
" {  K( X3 s: f2 Q- ^3 z6.<linkrel="Bookmark"href="favicon.ico">可以在收藏夹中显示出你的图标
8 W8 I0 ?- H& }9 o; b- g
3 \6 D/ t5 A  ^/ p7.<inputstyle="ime-mode:disabled">关闭输入法

8.永远都会带着框架
<scriptlanguage="javascript"><!--
1 R' i0 |% X; T) e" fif(window==top)top.location.href="frames.htm";//frames.htm为框架网页
//--></script>
6 `7 N1 C$ a1 N# H9 |2 l; n
9.防止被人frame
<SCRIPTLANGUAGE=javascript><!--
if(top.location!=self.location)top.location=self.location;
0 J! @( F3 P( F& C$ i; O//--></SCRIPT>
# X% p- Y2 L( {! H$ o: s6 {
10.<noscript><iframesrc=*.html></iframe></noscript>网页将不能被另存为

, }# f! {( S* l3 F3 |11.<inputtype=buttonvalue=查看网页源代码
onclick="window.location='view-source:'+'<IMG src="pic/url.gif" align=absMiddle border=0>' target=_blank>http://www.csdn.net/">
3 ?. P0 M6 v$ |& n$ a* q( H
12.怎样通过asp的手段来检查来访者是否用了代理
* x$ X/ B1 x2 `5 N7 s4 _<%ifRequest.ServerVariables("HTTP_X_FORWARDED_FOR")<>""then
! `! m- @: l, ?& q2 C6 Y1 {response.write"<fontcolor=#FF0000>您通过了代理服务器，"&_
( l/ ~+ \# w9 H* f6 D2 V9 ]"真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
endif
9 @! \" ?! v% R2 x% E% B%>

13.取得控件的绝对位置

9 c0 r3 P2 `- q+ W# H//javascript
! L% n3 i: \% e9 a5 ]$ Y# A<scriptlanguage="javascript">
0 ~+ L% c: x% k, E2 @functiongetIE(e){
vart=e.offsetTop;
varl=e.offsetLeft;
while(e=e.offsetParent){
4 C# G' {/ n& \- Kt+=e.offsetTop;
/ L$ z9 o6 [! i" {  q$ R4 Tl+=e.offsetLeft;
}
alert("top="+t+"\nleft="+l);
. t. s+ k$ u3 V, j4 ^8 M) i3 p6 _4 a}
6 F, x6 f7 s) P/ }- q</script>
  m- E2 e5 _* [! p2 Z
) U: E- h, Q5 L1 N) A8 `/ @//VBScript
/ w2 q' g" Q  F# R5 n. B( h<scriptlanguage="VBScript"><!--
( `- I/ z% m% z# hfunctiongetIE()
dimt,l,a,b
. @( t/ O5 S7 r% K7 ]0 Wseta=document.all.img1
t=document.all.img1.offsetTop
. A9 r- B7 {! Y4 n5 _4 L! i4 Ll=document.all.img1.offsetLeft
whilea.tagName<>"BODY"
seta=a.offsetParent
0 x7 B' `3 V5 `7 s1 F9 a4 `t=t+a.offsetTop
l=l+a.offsetLeft
0 s+ G0 V) j0 ?) c* L- D- Iwend
  q3 L2 D) G0 J: dmsgbox"top="&t&chr(13)&"left="&l,64,"得到控件的位置"
; r% H; M, K- a% |( vendfunction
8 J2 ]# T, L3 G3 m, B% ~- X- d--></script>
# p( g% Q. _+ N, H3 y
; ?8 x# c0 K/ A2 k# N7 x$ q. F1 K14.光标是停在文本框文字的最后
<scriptlanguage="javascript">
( X4 Y! [2 ?$ {+ Ofunctioncc()
{
vare=event.srcElement;
varr=e.createTextRange();
$ T9 O5 u- m0 X4 ^9 k& Y3 L7 U; @( nr.moveStart('character',e.value.length);
r.collapse(true);
r.select();
}
</script>
, f. I" N4 m0 j2 B<inputtype=textname=text1value="123"onfocus="cc()">
( a# N! B2 n% F, |0 I. C8 w6 C
15.判断上一页的来源
' f( Z3 J$ A+ r4 z4 D3 q" I% kasp:
5 Y0 r* V( X* d  ~7 z% S! z2 Mrequest.servervariables("HTTP_REFERER")
7 ^7 u/ q4 w% b- R9 }
6 z: g1 \4 t" L3 q, R5 b, y" C" Y! Ujavascript:
document.referrer

! V- y; `+ J4 I/ b5 }1 L) d' H  D6 K16.最小化、最大化、关闭窗口
( P! }4 H) a, e: `7 M* r<objectid=hh1classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
<paramname="Command"value="Minimize"></object>
<objectid=hh2classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
' Y; h$ i: ~% `+ j7 j8 ~% ?# {<paramname="Command"value="Maximize"></object>
; ^5 {8 w: D# R<OBJECTid=hh3classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<PARAMNAME="Command"value="Close"></OBJECT>

<inputtype=buttonvalue=最小化onclick=hh1.Click()>
<inputtype=buttonvalue=最大化onclick=hh2.Click()>
. D4 d) K+ q3 U/ U/ H<inputtype=buttonvalue=关闭onclick=hh3.Click()>
本例适用于IE

5 r$ G" Q+ U0 e$ M+ t6 J% V17.
1 l: {) N% x* K" Y<%
'定义数据库连接的一些常量
ConstadOpenForwardOnly=0'游标只向前浏览记录，不支持分页、Recordset、BookMark
9 ^- ~; P7 @1 s0 s* a0 |ConstadOpenKeyset=1'键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark
ConstadOpenDynamic=2'动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。
ConstadOpenStatic=3'静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动

ConstadLockReadOnly=1'锁定类型，默认的，只读，不能作任何修改
6 ^% j2 A6 R) p) ^ConstadLockPessimistic=2'当编辑时立即锁定记录，最安全的方式
6 S. C/ \( [# A: H* tConstadLockOptimistic=3'只有在调用Update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等
ConstadLockBatchOptimistic=4'当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的
2 [- w# t3 }. S5 }4 M+ `0 Q9 p
ConstadCmdText=&H0001
6 s* k1 @2 R! y9 l1 PConstadCmdTable=&H0002
9 J9 Z+ i% r" G2 L%>
& m6 `4 M- T2 k
6 p, r  L" L! q: Q18.网页不会被缓存
, u  a( @5 {# H- [( eHTM网页
! K' L9 t' }' }0 s' I<METAHTTP-EQUIV="pragma"CONTENT="no-cache">
<METAHTTP-EQUIV="Cache-Control"CONTENT="no-cache,must-revalidate">
<METAHTTP-EQUIV="expires"CONTENT="Wed,26Feb199708:21:57GMT">
$ k8 n, w) R& W" g或者<METAHTTP-EQUIV="expires"CONTENT="0">
4 O* p1 s! R* P" oASP网页
5 A0 K2 x  @8 \3 j% HResponse.Expires=-1
: H+ f, G) r; ?8 Y' T8 wResponse.ExpiresAbsolute=Now()-1
" R2 s: K4 O) P2 Y- M: E# @6 _! uResponse.cachecontrol="no-cache"
, l* Z, A6 B& p: GPHP网页
# b( m2 j9 X* N9 G' U+ ^1 Gheader("Expires:Mon,26Jul199705:00:00GMT");
header("Cache-Control:no-cache,must-revalidate");
header("Pragma:no-cache");
) y5 u' ]5 I6 u8 C9 G( w$ b

19.检查一段字符串是否全由数字组成
<scriptlanguage="javascript"><!--
functioncheckNum(str){returnstr.match(/\D/)==null}
0 V4 a9 w) B& b7 Z4 E# B/ v2 Salert(checkNum("1232142141"))
4 ]% w; {6 Z- nalert(checkNum("123214214a1"))
//--></script>
8 v7 \! _+ J1 S20.获得一个窗口的大小
8 l' t- J" {" @' P4 {# o+ ndocument.body.clientWidth,document.body.clientHeight

/ U- t3 i" K7 C' e' A21.怎么判断是否是字符
if(/[^\x00-\xff]/g.test(s))alert("含有汉字");
elsealert("全是字符");
* V. Q( e# C0 A1 {& d
- ~3 X5 \) x, l1 G" D22.TEXTAREA自适应文字行数的多少
- O! L- j9 W, K5 P9 V<textarearows=1 name=s1 cols=27>
</textarea>
! q6 {) E5 L% }/ A" ?
8 ?; Y( X) |6 i* a7 r23.日期减去天数等于第二个日期
, k  b, z! j* q- J) {1 X<scriptlanguage=javascript>
/ R0 v5 q$ q: O6 c; X, Afunctioncc(dd,dadd)
{
  Y' O) v9 f! W) v1 _, P: c& G5 A//可以加上错误处理
2 G# n, _$ Z+ \' D3 vvara=newDate(dd)
a=a.valueOf()
a=a-dadd*24*60*60*1000
  n$ ^$ G, H" a& k7 o3 Ta=newDate(a)
alert(a.getFullYear()+"年"+(a.getMonth()+1)+"月"+a.getDate()+"日")
}
/ k0 \' {7 i7 s0 C7 v8 rcc("12/23/2002",2)
</script>

24.选择了哪一个Radio
<HTML><scriptlanguage="vbscript">
5 ]; h) `* g. [' Yfunctioncheckme()
( F. ?. L8 p8 E6 v4 u4 \; Nforeachobinradio1
ifob.checkedthenwindow.alertob.value
, S7 ]7 l2 T7 |& f( z# D# Rnext
4 |; _( n: P5 o5 h9 z2 oendfunction
, y7 r1 `' x; q+ r7 a/ P</script><BODY>
# S5 G0 v1 R4 b# H+ i<INPUT name="radio1" type="radio" value="style" checked>style
/ v) @% ~9 Q$ C% s<INPUT name="radio1" type="radio" value="barcode">Barcode
5 y- g5 @& N3 F0 ]0 e<INPUT type="button" value="check"onclick="checkme()">
</BODY></HTML>

25.获得本页url的request.servervariables("")集合
Response.Write"<TABLEborder=1><!--TableHeader--><TR><TD><B>Variables</B></TD><TD><B>value</B></TD></TR>"
foreachobinRequest.ServerVariables
# D' s' [) O1 ^" N! WResponse.Write"<TR><TD>"&ob&"</TD><TD>"&Request.ServerVariables(ob)&"</TD></TR>"
) H7 }. S8 b/ `' F1 ]9 p* fnext
Response.Write"</TABLE>"

/ |; O0 A' ?/ U0 y6 o% N26.
本机ip<%=request.servervariables("remote_addr")%>
服务器名<%=Request.ServerVariables("SERVER_NAME")%>
服务器IP<%=Request.ServerVariables("LOCAL_ADDR")%>
服务器端口<%=Request.ServerVariables("SERVER_PORT")%>
, Z/ a' N6 v$ B8 a' |服务器时间<%=now%>
: K  b9 e4 N( F; x( W, _  YIIS版本<%=Request.ServerVariables"SERVER_SOFTWARE")%>
脚本超时时间<%=Server.ScriptTimeout%>
本文件路径<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>
8 h/ P3 P0 [- C服务器CPU数量<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
$ J; I0 B' R! ~! \: B服务器解译引擎<%=ScriptEngine&"/" & ScriptEngineMajorVersion &"." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion%>
服务器操作系统<%=Request.ServerVariables("OS")%>
3 k5 l1 V1 h: O6 K5 h
27.ENTER键可以让光标移到下一个输入框
<input>
: H- w+ r& d  H; O2 j8 d6 L. P
28.检测某个网站的链接速度：
% K2 K9 h& u7 p' y& A5 D6 z把如下代码加入<body>区域中:
2 E4 e6 {' k6 ~: X6 q<scriptlanguage=javascript>
tim=1
5 ]& z3 n- {, X1 NsetInterval("tim++",100)
1 z& c, D1 v# b- Jb=1
/ ]5 c1 z6 _" H* i
varautourl=newArray()
) I+ R" a& U" A( A1 g* Eautourl[1]="< src="pic/url.gif" align=absMiddle border=0>www.njcatv.net"
autourl[2]="javacool.3322.net"
0 g+ `  Q& A; xautourl[3]="< src="pic/url.gif" align=absMiddle border=0>www.sina.com.cn"
# K) k2 G, \1 y/ O) c5 w' C9 oautourl[4]="www.nuaa.edu.cn"
! P4 Y5 p2 f- u' W* Yautourl[5]="< src="pic/url.gif" align=absMiddle border=0>www.cctv.com"

functionbutt(){
document.write("<formname=autof>")
for(vari=1;i<autourl.length;i++)
- n3 @- p2 k! `0 m6 _document.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>")
}
butt()
functionauto(url){
document.forms[0]["url"+b].value=url
if(tim>200)
+ E: v! f$ ]2 g3 F& x- U{document.forms[0]["txt"+b].value="链接超时"}
else
{document.forms[0]["txt"+b].value="时间"+tim/10+"秒"}
* o( Z6 J; C5 ?9 [: ]1 ?b++
}
functionrun(){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>
& Y$ [  }% h; @+ I8 s

) ]/ Y$ l0 B9 L. x29.各种样式的光标
auto：标准光标
default：标准箭头
1 F1 z# F8 E6 t. B. F" xhand：手形光标
wait：等待光标
text：I形光标
vertical-text：水平I形光标
; a' X$ A* j& ~, rno-drop：不可拖动光标
not-allowed：无效光标
: j8 A  t2 V; j" |0 X8 C1 C6 X! \" \8 }help：?帮助光标
all-scroll：三角方向标
move：移动标
' _6 s3 j6 i# X+ H. acrosshair：十字标
e-resize
. M/ v; N; z7 D. F3 _. A  |0 qn-resize
nw-resize
w-resize
' G2 W4 Y/ e& G4 k. ^( @s-resize
2 g5 `( |1 y1 c4 t/ W) ]se-resize
0 ^# E  k  L2 e8 w( }- osw-resize
5 J# C2 M0 e9 X7 G4 V
1.本地无缓存，每次自动刷新
1 v8 b+ D7 U1 |response.expires=0
" ^) I* f" j8 i* n4 N1 }9 Jresponse.addHeader"pragma","no-cache"
response.addHeader"cache-control","private"

1 j- Q2 B: d! M( x( V! B3 u+ `2.修改contentType并下载gif等格式
<%
functiondl(f,n)
; C; o+ r$ m  Z$ N# g+ ^. i! Monerrorresumenext
$ Q: J1 r( d" I2 x, g
sets=CreateObject("Adodb.Stream")
6 z* j+ _$ Y! U, E7 H& s2 o0 OS.Mode=3
# |. q6 w( _: N( s7 _# W3 ~S.Type=1
. d8 r3 Y4 X. _0 E- t7 k9 Z8 ^' xS.Open
4 N) Q# q2 O/ \# Z! Cs.LoadFromFile(server.mappath(f))
6 u+ D) O) A) z( t. R" j7 ciferr.number>0then
. d: l& _, h0 a1 }! f. |* ^/ a* @response.writeerr.number&":"&err.description
else
7 i) r3 H* o# X! F" q: eresponse.contentType="application/x-gzip"
1 s  m6 w8 C; D  }; B) c  }response.addheader"Content-Disposition:","attachment;filename="&n
- D! }6 x+ F" j( t9 l9 z9 ~response.binarywrite(s.Read(s.size))
endif
endfunction
1 H! g2 c8 ?0 H! u/ O8 P, v2 @
7 z5 ~# S4 `; E4 J# L# y/ I( g! ~calldl("012922501.gif","t1.gif")
%>

6 A& q/ l" R8 _% S; v8 ?: o" w. {
19.检查一段字符串是否全由数字组成
% m( i/ r% A3 K2 x3 ^1 A% J! b<scriptlanguage="javascript"><!--
functioncheckNum(str){return!/\D/.test(str)}
alert(checkNum("1232142141"))
& H" u, r* P1 g1 yalert(checkNum("123214214a1"))
7 G/ H6 M: k+ i" M& N2 S9 Q$ D//--></script>

20.获得一个窗口的大小
document.body.clientWidth,document.body.clientHeight
! \5 {8 a- ]6 t0 odocument.body.offsetWidth,document.body.offsetHeight
/ f7 ~: y* v0 m1 x, @' i& @3 l有时还需要知道window.screenTop,window.screenLeft
/ c7 O+ o+ o' ]0 E2 E6 m- n0 D5 s' X
21.怎么判断是否含有汉字
/ q0 X: z, L/ t0 Mif(escape(str).indexOf("%u")!=-1)alert("含有汉字");
2 E. g3 @0 z2 M: _elsealert("全是字符");

22.TEXTAREA自适应文字行数的多少
IE5.5+可以用overflow-y:visible
. o/ L" j" S8 M( R5 \7 C( r<textarearows=1name=s1cols=27style="overflow-y:visible">
4 u0 z) q6 Y$ d# d' [& K: J* R8 |" Q</textarea>

23.日期减去天数等于第二个日期
<scriptlanguage=javascript>
functioncc(dd,dadd)
{
//可以加上错误处理
' i5 Y8 X2 t* o' ]4 V3 qvard=newDate(dd.replace("-","/"))
d.setDate(d.getDate()+dadd)
alert(d.getFullYear()+"年"+(d.getMonth()+1)+"月"+d.getDate()+"日")
}
cc("2002-2-28",2)
</script>