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

月中水

1.oncontextmenu="window.event.returnvalue=false"将彻底屏蔽鼠标右键
) w& p- X; B* r/ G' Q5 ?<tableborderoncontextmenu=return(false)><td>no</table>可用于Table
2.<bodyonselectstart="returnfalse">取消选取、防止复制
0 C3 }1 t6 l0 n" v
3.onpaste="returnfalse"不准粘贴

) N8 M8 h4 G3 m3 k3 W, r& y4.oncopy="returnfalse;"oncut="returnfalse;"防止复制

9 d% |6 @$ t. ]! ~$ U7 z7 Z5.<linkrel="ShortcutIcon"href="favicon.ico">IE地址栏前换成自己的图标
% D7 U. w- T& W, p$ U; ^8 r# X; f! F" f+ s
6.<linkrel="Bookmark"href="favicon.ico">可以在收藏夹中显示出你的图标

7.<inputstyle="ime-mode:disabled">关闭输入法
9 D3 |" R: N& X# ^; p/ W
8.永远都会带着框架
* ^8 \6 ^4 C6 O6 H<scriptlanguage="javascript"><!--
if(window==top)top.location.href="frames.htm";//frames.htm为框架网页
0 }: M% Z5 }/ H% r2 D! b4 T6 V7 C( b" h//--></script>
6 M+ N& C" O2 H/ B( B3 Q5 K3 t
9.防止被人frame
<SCRIPTLANGUAGE=javascript><!--
if(top.location!=self.location)top.location=self.location;
//--></SCRIPT>
, |/ U# c# l' l! c  }
10.<noscript><iframesrc=*.html></iframe></noscript>网页将不能被另存为
8 E0 U- D7 `: F/ M- e# f# W
0 K$ O$ Y4 _5 [3 Y( l: ]11.<inputtype=buttonvalue=查看网页源代码
onclick="window.location='view-source:'+'<IMG src="pic/url.gif" align=absMiddle border=0>' target=_blank>http://www.csdn.net/">

12.怎样通过asp的手段来检查来访者是否用了代理
; J( t! \5 `1 B0 g<%ifRequest.ServerVariables("HTTP_X_FORWARDED_FOR")<>""then
# A! D  |% v8 F* j* O1 H1 Q3 s% gresponse.write"<fontcolor=#FF0000>您通过了代理服务器，"&_
"真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
endif
%>

13.取得控件的绝对位置

! d% M; Y  v$ n' g* h1 ^//javascript
<scriptlanguage="javascript">
functiongetIE(e){
$ `8 Q, v6 J6 H9 qvart=e.offsetTop;
9 q) U( I$ ?0 ~1 z: `* O, Pvarl=e.offsetLeft;
while(e=e.offsetParent){
t+=e.offsetTop;
l+=e.offsetLeft;
}
alert("top="+t+"\nleft="+l);
  k) }+ Z6 d! r. e}
</script>
6 ~' G7 ~  U# a. m
//VBScript
<scriptlanguage="VBScript"><!--
functiongetIE()
dimt,l,a,b
seta=document.all.img1
% w; _9 r/ V( x" B1 ]4 J7 M/ x7 Gt=document.all.img1.offsetTop
- o4 l) a6 f' n+ w, H8 Jl=document.all.img1.offsetLeft
' S: g* I/ q/ h3 U7 `2 X& [whilea.tagName<>"BODY"
6 B# m* J! F3 l! Qseta=a.offsetParent
t=t+a.offsetTop
8 ]) t/ h. f3 n  h4 ol=l+a.offsetLeft
6 r4 Q; f$ z1 c6 Qwend
msgbox"top="&t&chr(13)&"left="&l,64,"得到控件的位置"
$ p2 A' U" L7 p: Yendfunction
--></script>
% [4 V, @8 f. z% Y3 y' C
% l8 M8 I$ X3 v) `+ M14.光标是停在文本框文字的最后
- d0 q0 l8 y4 d- H7 Y- F, p<scriptlanguage="javascript">
functioncc()
{
vare=event.srcElement;
varr=e.createTextRange();
r.moveStart('character',e.value.length);
+ V/ U( I# D  J% c  i; k) \r.collapse(true);
r.select();
}
</script>
<inputtype=textname=text1value="123"onfocus="cc()">
1 ]% b2 ^+ Z7 h( i& q
% W3 d/ S" @3 J2 f1 X15.判断上一页的来源
asp:
request.servervariables("HTTP_REFERER")
1 e& o5 e& N- t8 E# t4 t* Y6 y
* [; N- v9 `1 O+ Sjavascript:
, i! ^: P. u; z6 C. d" q( K: Qdocument.referrer

16.最小化、最大化、关闭窗口
<objectid=hh1classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
& i; E3 @- Z6 x<paramname="Command"value="Minimize"></object>
& h- M- N- _) G, E" U( h<objectid=hh2classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
# }. ]# l2 g- d' L0 @' T! f# h/ r* t<paramname="Command"value="Maximize"></object>
  x9 ]) `+ B6 ]$ I<OBJECTid=hh3classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<PARAMNAME="Command"value="Close"></OBJECT>
" R# j/ a4 F9 ~$ D9 }$ m
<inputtype=buttonvalue=最小化onclick=hh1.Click()>
$ E* S2 B$ k" K* ^<inputtype=buttonvalue=最大化onclick=hh2.Click()>
<inputtype=buttonvalue=关闭onclick=hh3.Click()>
# T5 ~- [+ O% d* G+ Y: {本例适用于IE
+ j' f5 H( U! t9 W' G
17.
3 k2 n3 f# p/ N- M1 T  y9 K<%
! s5 l( f! Z: V1 }6 p) y'定义数据库连接的一些常量
ConstadOpenForwardOnly=0'游标只向前浏览记录，不支持分页、Recordset、BookMark
ConstadOpenKeyset=1'键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark
: V& D3 P! i( N9 K' O5 I& RConstadOpenDynamic=2'动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。
2 _+ T5 b% |, ^/ g" `ConstadOpenStatic=3'静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动
: \1 j8 Y0 l& W8 O! g
ConstadLockReadOnly=1'锁定类型，默认的，只读，不能作任何修改
ConstadLockPessimistic=2'当编辑时立即锁定记录，最安全的方式
ConstadLockOptimistic=3'只有在调用Update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等
ConstadLockBatchOptimistic=4'当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的

- N$ g) O* ~  f) r7 OConstadCmdText=&H0001
ConstadCmdTable=&H0002
%>

18.网页不会被缓存
5 k& G# l! s) P8 THTM网页
5 }' l' w0 e) t! ~<METAHTTP-EQUIV="pragma"CONTENT="no-cache">
# T: ]8 q% F$ \- d* a$ g<METAHTTP-EQUIV="Cache-Control"CONTENT="no-cache,must-revalidate">
<METAHTTP-EQUIV="expires"CONTENT="Wed,26Feb199708:21:57GMT">
或者<METAHTTP-EQUIV="expires"CONTENT="0">
ASP网页
Response.Expires=-1
Response.ExpiresAbsolute=Now()-1
' x3 N7 ?& |5 E1 T4 dResponse.cachecontrol="no-cache"
PHP网页
header("Expires:Mon,26Jul199705:00:00GMT");
header("Cache-Control:no-cache,must-revalidate");
+ K4 j/ G1 p8 g  F& u, mheader("Pragma:no-cache");


; U( l! ]- Y# l9 ^( J" o7 G1 s19.检查一段字符串是否全由数字组成
<scriptlanguage="javascript"><!--
functioncheckNum(str){returnstr.match(/\D/)==null}
$ T; c4 d: W$ w0 P; dalert(checkNum("1232142141"))
! H# J9 y0 e4 _alert(checkNum("123214214a1"))
//--></script>
( v8 E# K, {0 _$ j+ o8 `& z3 E- s20.获得一个窗口的大小
; f, {6 J3 k, n# p% T! a: Bdocument.body.clientWidth,document.body.clientHeight

21.怎么判断是否是字符
  R3 ~. Y7 y/ M) o! `' [if(/[^\x00-\xff]/g.test(s))alert("含有汉字");
elsealert("全是字符");

) z. Y* G' v3 I9 b8 p$ q: d& I22.TEXTAREA自适应文字行数的多少
<textarearows=1 name=s1 cols=27>
</textarea>

23.日期减去天数等于第二个日期
<scriptlanguage=javascript>
functioncc(dd,dadd)
{
//可以加上错误处理
# h7 n- z! g0 N  i& q0 h# Vvara=newDate(dd)
; l6 J: ]& Y! d* F3 ha=a.valueOf()
& a2 t; I( W5 t& Ia=a-dadd*24*60*60*1000
* _# W1 \: Z7 U9 G" L; X2 p8 na=newDate(a)
: b1 L( k& r3 l+ e; Qalert(a.getFullYear()+"年"+(a.getMonth()+1)+"月"+a.getDate()+"日")
}
cc("12/23/2002",2)
( F" @% n4 M7 A. }8 G</script>

24.选择了哪一个Radio
# N6 I) {+ c- w! c( C3 e( o<HTML><scriptlanguage="vbscript">
( g. z2 M# N: E' \& E& L2 Wfunctioncheckme()
( E$ j' B; w# U4 p1 i. Hforeachobinradio1
ifob.checkedthenwindow.alertob.value
next
endfunction
8 M" Y  c  `) ^! I" F</script><BODY>
2 B$ R" W8 u' Q5 M3 g6 J; i<INPUT name="radio1" type="radio" value="style" checked>style
# j2 I7 R" |0 D% @4 ~) W6 f<INPUT name="radio1" type="radio" value="barcode">Barcode
<INPUT type="button" value="check"onclick="checkme()">
4 V6 y% |/ \" B1 R</BODY></HTML>

25.获得本页url的request.servervariables("")集合
8 D% N. E" o# T8 U/ M1 j9 {9 \+ lResponse.Write"<TABLEborder=1><!--TableHeader--><TR><TD><B>Variables</B></TD><TD><B>value</B></TD></TR>"
$ @$ t% q* j  @* X1 OforeachobinRequest.ServerVariables
Response.Write"<TR><TD>"&ob&"</TD><TD>"&Request.ServerVariables(ob)&"</TD></TR>"
next
Response.Write"</TABLE>"

1 z# O$ D0 e: R* z+ {1 z# D+ X26.
- b: u. `4 c6 u$ G6 j5 _本机ip<%=request.servervariables("remote_addr")%>
服务器名<%=Request.ServerVariables("SERVER_NAME")%>
4 |" ~$ @/ e, h2 E% C. O$ D; L% o" k服务器IP<%=Request.ServerVariables("LOCAL_ADDR")%>
9 I( ~# k+ g! T  u9 U服务器端口<%=Request.ServerVariables("SERVER_PORT")%>
服务器时间<%=now%>
( b/ w! I0 ~2 D) z. x) y6 p- {9 RIIS版本<%=Request.ServerVariables"SERVER_SOFTWARE")%>
脚本超时时间<%=Server.ScriptTimeout%>
本文件路径<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>
服务器CPU数量<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
服务器解译引擎<%=ScriptEngine&"/" & ScriptEngineMajorVersion &"." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion%>
7 ]' O' U4 O5 p$ }服务器操作系统<%=Request.ServerVariables("OS")%>
& y/ O4 H# R/ ~& ], M( L
+ S% i4 s. D, _6 `27.ENTER键可以让光标移到下一个输入框
& Q' @' G. d  Y<input>
! K4 ?/ Q1 x/ K1 T
+ A1 o" S1 r+ }$ Q1 Q. l28.检测某个网站的链接速度：
. e5 ^/ I+ ^8 ?: l5 [; e3 V把如下代码加入<body>区域中:
<scriptlanguage=javascript>
# M0 y1 M- }0 J+ etim=1
' Y/ w/ b5 o4 osetInterval("tim++",100)
+ E7 P8 A- H9 `+ r3 Ob=1

1 P8 W4 p0 v: svarautourl=newArray()
autourl[1]="< src="pic/url.gif" align=absMiddle border=0>www.njcatv.net"
autourl[2]="javacool.3322.net"
autourl[3]="< src="pic/url.gif" align=absMiddle border=0>www.sina.com.cn"
- u, \% j4 g9 S' C) Vautourl[4]="www.nuaa.edu.cn"
) A/ a( A; m, `6 Lautourl[5]="< src="pic/url.gif" align=absMiddle border=0>www.cctv.com"

functionbutt(){
) I5 Y- w$ \, z' S+ }( F: udocument.write("<formname=autof>")
9 K5 A; T. ~6 ^' tfor(vari=1;i<autourl.length;i++)
; K; q% N* h, M/ ^0 ?, Rdocument.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()
8 F' }; Y4 U3 B% Wfunctionauto(url){
+ ~9 G& [7 `2 Z  H1 ^, hdocument.forms[0]["url"+b].value=url
8 v+ {9 m4 j1 x# `2 N8 `1 fif(tim>200)
{document.forms[0]["txt"+b].value="链接超时"}
4 [  E# _/ o0 t  F# O. ~" M) Zelse
{document.forms[0]["txt"+b].value="时间"+tim/10+"秒"}
b++
$ i: \2 V1 W4 }9 s/ L}
$ V7 {& p9 a# H" P( B6 qfunctionrun(){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+"')>")}
$ S9 l  H- y8 i8 a; u3 Drun()</script>

! |! [9 q) ~. J& ]/ N) ^
# Z* X. g! n4 N( h29.各种样式的光标
& G# c+ n9 d2 b  Xauto：标准光标
default：标准箭头
hand：手形光标
wait：等待光标
text：I形光标
5 s# a& I0 n8 s3 E1 u# \vertical-text：水平I形光标
: D7 }# m& m: j  `6 M9 M* u: w" P: ]no-drop：不可拖动光标
  h; U+ j0 H6 s+ V  Wnot-allowed：无效光标
help：?帮助光标
' v5 t7 O% k+ {7 t( V1 \' I5 Oall-scroll：三角方向标
move：移动标
crosshair：十字标
4 w6 V8 _+ Q  s& ~+ ae-resize
n-resize
; C0 {1 Y+ r$ q2 y; ynw-resize
w-resize
; T8 }' M& Z, M9 ~& ys-resize
se-resize
8 ~1 B3 A! _% g2 ~sw-resize

$ K  A2 S* r: B8 S/ h) g! z' N1.本地无缓存，每次自动刷新
response.expires=0
response.addHeader"pragma","no-cache"
response.addHeader"cache-control","private"

4 d/ a" O1 k6 y2 h$ y2.修改contentType并下载gif等格式
7 p2 W- `9 n1 y  M<%
functiondl(f,n)
onerrorresumenext

sets=CreateObject("Adodb.Stream")
S.Mode=3
S.Type=1
3 F. ?8 ?9 p9 l; Z8 c0 x$ v- DS.Open
# t: k( h4 U1 x7 w3 W' e: js.LoadFromFile(server.mappath(f))
3 Z6 U5 o( O7 ciferr.number>0then
  k( J7 S  e* fresponse.writeerr.number&":"&err.description
- Y$ i4 ^& J# B! x/ Aelse
response.contentType="application/x-gzip"
response.addheader"Content-Disposition:","attachment;filename="&n
response.binarywrite(s.Read(s.size))
endif
endfunction
% Z$ |, T7 I% X5 R$ }$ F
* z7 C! h  j9 F; \* X" b7 @& Fcalldl("012922501.gif","t1.gif")
%>
) }" t* Z; }2 X+ w) Z+ A( Q
+ m" G7 b/ w, j" q
19.检查一段字符串是否全由数字组成
* t  c7 m3 z, Z: D, Q5 O3 A# d  O<scriptlanguage="javascript"><!--
) _( {0 x: K# VfunctioncheckNum(str){return!/\D/.test(str)}
alert(checkNum("1232142141"))
1 r6 R$ r' v' e+ x- ]  Talert(checkNum("123214214a1"))
//--></script>
7 K5 n# H9 c, h3 U- H$ X5 P
20.获得一个窗口的大小
6 @9 i! H' [& w) O, b, Ndocument.body.clientWidth,document.body.clientHeight
3 U$ `1 Q. I  T. F7 k7 ddocument.body.offsetWidth,document.body.offsetHeight
有时还需要知道window.screenTop,window.screenLeft

; l# N( I+ `) r. K. R0 |4 v3 a' m21.怎么判断是否含有汉字
# v5 l) p* d" R- E: T' |5 Wif(escape(str).indexOf("%u")!=-1)alert("含有汉字");
4 w9 O4 A+ J9 s" c! ?7 D9 _elsealert("全是字符");

22.TEXTAREA自适应文字行数的多少
IE5.5+可以用overflow-y:visible
: J9 h* W) N# ~<textarearows=1name=s1cols=27style="overflow-y:visible">
$ _: |, ^* L. o) L, O</textarea>

, _% N* n8 j9 r3 Y& N23.日期减去天数等于第二个日期
<scriptlanguage=javascript>
4 ?) E# z) }( Z4 v3 h+ Dfunctioncc(dd,dadd)
{
//可以加上错误处理
vard=newDate(dd.replace("-","/"))
! t# R8 ?( q. {8 F7 pd.setDate(d.getDate()+dadd)
alert(d.getFullYear()+"年"+(d.getMonth()+1)+"月"+d.getDate()+"日")
}
3 A2 t7 `! y  v3 s' Ccc("2002-2-28",2)
2 d/ j. Q5 p# L& P7 x</script>