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

月中水

1.oncontextmenu="window.event.returnvalue=false"将彻底屏蔽鼠标右键
<tableborderoncontextmenu=return(false)><td>no</table>可用于Table
- ^$ i  a$ C4 G( Z2.<bodyonselectstart="returnfalse">取消选取、防止复制
; w' h& r5 u+ b! C. e! a
7 y' ]  s7 g. g3 [3.onpaste="returnfalse"不准粘贴

4.oncopy="returnfalse;"oncut="returnfalse;"防止复制
% s- @; k6 A0 Z) h$ y
1 ?2 @3 |4 L* R& D/ N) N, o5.<linkrel="ShortcutIcon"href="favicon.ico">IE地址栏前换成自己的图标
$ x* |  ]1 L! h  n3 {% g
8 x0 K$ Y1 v- N$ M6 I4 h7 s& T' @" \6.<linkrel="Bookmark"href="favicon.ico">可以在收藏夹中显示出你的图标

) L5 k) c8 h! V4 ?# q' x3 I9 w7.<inputstyle="ime-mode:disabled">关闭输入法
% L  @* J$ r5 ?8 d# X
# \8 m* I" ~- B4 O) v# ^! C8.永远都会带着框架
0 l* Z3 b0 ~7 \" u<scriptlanguage="javascript"><!--
if(window==top)top.location.href="frames.htm";//frames.htm为框架网页
: a% M) B/ l) c" m0 z//--></script>

9.防止被人frame
<SCRIPTLANGUAGE=javascript><!--
- s& N0 G- H- A) L# n0 h1 \if(top.location!=self.location)top.location=self.location;
7 c' c2 z! q. B3 U//--></SCRIPT>

10.<noscript><iframesrc=*.html></iframe></noscript>网页将不能被另存为
' m3 o; a# Z" t% l
11.<inputtype=buttonvalue=查看网页源代码
1 r( z/ u/ j: {8 C7 o* l+ honclick="window.location='view-source:'+'<IMG src="pic/url.gif" align=absMiddle border=0>' target=_blank>http://www.csdn.net/">
! r  u7 P; z- w. [
12.怎样通过asp的手段来检查来访者是否用了代理
$ {2 ?  c& i5 S% @6 i, N0 a# S4 Z<%ifRequest.ServerVariables("HTTP_X_FORWARDED_FOR")<>""then
2 D& [3 e$ F3 B. L* Q" i6 nresponse.write"<fontcolor=#FF0000>您通过了代理服务器，"&_
"真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
endif
: j) b6 l" m+ O$ _%>

13.取得控件的绝对位置

//javascript
+ Z; H! G' y& a. r<scriptlanguage="javascript">
functiongetIE(e){
3 Q3 g2 O- c+ I# U9 S) c* f% ~. W3 Wvart=e.offsetTop;
$ U! t( }% x  |varl=e.offsetLeft;
while(e=e.offsetParent){
t+=e.offsetTop;
1 ^4 s( _2 H% M( J& f( b, D& X+ al+=e.offsetLeft;
}
) K7 [( d3 k# s, z2 r- Palert("top="+t+"\nleft="+l);
) w1 F5 d0 _1 W0 f" S# V}
; G0 F8 S1 C$ S4 d! s</script>

//VBScript
% w" n4 o8 B  n+ ~6 R<scriptlanguage="VBScript"><!--
functiongetIE()
dimt,l,a,b
seta=document.all.img1
  s; p6 [" \- Y# n" |t=document.all.img1.offsetTop
& m4 Y+ u3 D  [, j4 Xl=document.all.img1.offsetLeft
whilea.tagName<>"BODY"
seta=a.offsetParent
t=t+a.offsetTop
$ v" f% L- o, ~& Cl=l+a.offsetLeft
+ x, b6 z" A- x  b' g& t) twend
9 `. y" l  E6 R0 h# W5 q5 W( v  Y6 kmsgbox"top="&t&chr(13)&"left="&l,64,"得到控件的位置"
endfunction
--></script>
% n1 l. T! [4 g' ~
% h  ~& f% O. n# i, `) N14.光标是停在文本框文字的最后
# p" m! P- W! F# ~<scriptlanguage="javascript">
functioncc()
{
  m; q3 W- M! m5 N/ {0 p; Tvare=event.srcElement;
0 P; j8 }* ]; S' v5 j1 w5 wvarr=e.createTextRange();
3 Q3 R6 W8 l8 N* G& V7 cr.moveStart('character',e.value.length);
r.collapse(true);
r.select();
}
* ~6 d$ r$ W' H* C) R" _2 i+ i5 d</script>
<inputtype=textname=text1value="123"onfocus="cc()">
: p1 K3 ?. i, p. t9 f3 d2 V+ i3 [% [
' ]0 h+ r5 I$ _0 _15.判断上一页的来源
0 r8 [- W# a: E5 N. }$ s+ Q8 Hasp:
- U  }4 ?% Q$ H2 w) S* B& xrequest.servervariables("HTTP_REFERER")
- n, X% c* i( P: N  U8 }
javascript:
document.referrer
  R' X3 V( C' {% i# o! ?
, L! E. s0 p2 v' C9 g. s16.最小化、最大化、关闭窗口
<objectid=hh1classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
1 }9 M2 D! }3 }5 }( ?! I$ D<paramname="Command"value="Minimize"></object>
+ {0 }; F& I/ k, C: s<objectid=hh2classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
<paramname="Command"value="Maximize"></object>
<OBJECTid=hh3classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<PARAMNAME="Command"value="Close"></OBJECT>

! U1 [$ h7 G  o! E& z+ i<inputtype=buttonvalue=最小化onclick=hh1.Click()>
* [0 s( ?1 w: w$ z; W3 J<inputtype=buttonvalue=最大化onclick=hh2.Click()>
<inputtype=buttonvalue=关闭onclick=hh3.Click()>
本例适用于IE

3 x; r( N3 d( a; v17.
<%
1 {) o9 A' n: v5 U'定义数据库连接的一些常量
ConstadOpenForwardOnly=0'游标只向前浏览记录，不支持分页、Recordset、BookMark
ConstadOpenKeyset=1'键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark
ConstadOpenDynamic=2'动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。
ConstadOpenStatic=3'静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动

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

3 C! f" V5 g' C/ l1 rConstadCmdText=&H0001
0 a/ V0 K! ]- MConstadCmdTable=&H0002
%>
0 u" L, Y; v7 O5 d8 n4 |! ~
18.网页不会被缓存
HTM网页
2 O; T6 `* N, K5 B<METAHTTP-EQUIV="pragma"CONTENT="no-cache">
: _& F1 c3 w5 o) l% x0 H<METAHTTP-EQUIV="Cache-Control"CONTENT="no-cache,must-revalidate">
* `4 f" i4 N# F; G<METAHTTP-EQUIV="expires"CONTENT="Wed,26Feb199708:21:57GMT">
或者<METAHTTP-EQUIV="expires"CONTENT="0">
: V1 U0 r, X/ h$ }+ h7 N* VASP网页
+ g& M5 I( T& u9 {Response.Expires=-1
Response.ExpiresAbsolute=Now()-1
8 `/ U' G  ^4 `Response.cachecontrol="no-cache"
PHP网页
. F# y4 Y; ]5 L$ k% j5 theader("Expires:Mon,26Jul199705:00:00GMT");
header("Cache-Control:no-cache,must-revalidate");
! Z- q& Y% O7 F1 N* eheader("Pragma:no-cache");


19.检查一段字符串是否全由数字组成
<scriptlanguage="javascript"><!--
# N7 A  V) N" I. g. C3 l% ofunctioncheckNum(str){returnstr.match(/\D/)==null}
: R) y; ~$ m0 Ealert(checkNum("1232142141"))
. F1 R9 f/ B0 t6 R+ ^9 H. P$ `alert(checkNum("123214214a1"))
//--></script>
* {& B+ i. C5 W20.获得一个窗口的大小
: j4 m, h0 x7 H+ V9 bdocument.body.clientWidth,document.body.clientHeight
# f0 j, n2 ?3 g6 s# x
# s* W# d9 w0 E! l7 q$ Z4 a' [21.怎么判断是否是字符
) G5 E& f/ u9 ~' l% O: Z: B4 ^" ~if(/[^\x00-\xff]/g.test(s))alert("含有汉字");
6 w2 ]( u4 n; U0 L4 ]elsealert("全是字符");
' V" ]) y; J1 `
22.TEXTAREA自适应文字行数的多少
<textarearows=1 name=s1 cols=27>
2 J! @  N& n' c: V0 V+ e</textarea>
9 I7 w4 Z6 X. }' b2 t, O3 V  R( U6 K
23.日期减去天数等于第二个日期
" o1 \' }# k$ V+ ~$ `" G" q) }<scriptlanguage=javascript>
functioncc(dd,dadd)
6 }8 R* d, q1 k& U; ]# s5 ^{
//可以加上错误处理
3 ]2 u+ Y8 m* G5 t" p2 B0 ~vara=newDate(dd)
a=a.valueOf()
8 n2 X6 x0 o! S5 p1 I7 J" m( Oa=a-dadd*24*60*60*1000
a=newDate(a)
alert(a.getFullYear()+"年"+(a.getMonth()+1)+"月"+a.getDate()+"日")
}
cc("12/23/2002",2)
</script>
2 i7 V8 D9 h. W+ F9 S& T
24.选择了哪一个Radio
<HTML><scriptlanguage="vbscript">
functioncheckme()
foreachobinradio1
; k! }9 n& }, S# C! n' C2 T! B, Kifob.checkedthenwindow.alertob.value
next
endfunction
</script><BODY>
<INPUT name="radio1" type="radio" value="style" checked>style
<INPUT name="radio1" type="radio" value="barcode">Barcode
<INPUT type="button" value="check"onclick="checkme()">
; c5 L! @' j3 U0 B</BODY></HTML>
9 w2 t+ H, s$ P  D. Q* [
25.获得本页url的request.servervariables("")集合
4 o, x! H/ x/ {- M- x8 iResponse.Write"<TABLEborder=1><!--TableHeader--><TR><TD><B>Variables</B></TD><TD><B>value</B></TD></TR>"
) U2 d8 C7 o  u! vforeachobinRequest.ServerVariables
, |0 @6 W8 Z- B' QResponse.Write"<TR><TD>"&ob&"</TD><TD>"&Request.ServerVariables(ob)&"</TD></TR>"
! X+ X- Q3 M' s4 Lnext
1 [; w5 b* S% F# MResponse.Write"</TABLE>"

  K4 f: O* u* m9 I/ e1 h26.
本机ip<%=request.servervariables("remote_addr")%>
7 a  x) }# g% f. W5 C服务器名<%=Request.ServerVariables("SERVER_NAME")%>
( D4 }( q" Y- z8 C8 R服务器IP<%=Request.ServerVariables("LOCAL_ADDR")%>
服务器端口<%=Request.ServerVariables("SERVER_PORT")%>
服务器时间<%=now%>
IIS版本<%=Request.ServerVariables"SERVER_SOFTWARE")%>
脚本超时时间<%=Server.ScriptTimeout%>
1 V* R0 N0 Z' f/ D本文件路径<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>
服务器CPU数量<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
2 @: K+ o% r7 w5 V* o* t. d服务器解译引擎<%=ScriptEngine&"/" & ScriptEngineMajorVersion &"." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion%>
) @7 ?9 S" u; }服务器操作系统<%=Request.ServerVariables("OS")%>

- `* G) W7 M9 l0 x27.ENTER键可以让光标移到下一个输入框
<input>
8 s6 G  y8 z; L
: J5 j5 {  n0 ?  ]8 A$ B& k28.检测某个网站的链接速度：
把如下代码加入<body>区域中:
( i. d" x9 n8 q% w6 M<scriptlanguage=javascript>
tim=1
1 Y5 ~' _/ N3 n" v% d+ g  M+ }& ^setInterval("tim++",100)
b=1
' S6 `. f3 u) ~, j2 [- [$ l' _# B
1 V+ w1 W# O' S* |2 _varautourl=newArray()
$ a' F$ M2 ?2 V5 e( [autourl[1]="< src="pic/url.gif" align=absMiddle border=0>www.njcatv.net"
autourl[2]="javacool.3322.net"
; O5 t/ q% L6 d7 [autourl[3]="< src="pic/url.gif" align=absMiddle border=0>www.sina.com.cn"
autourl[4]="www.nuaa.edu.cn"
autourl[5]="< src="pic/url.gif" align=absMiddle border=0>www.cctv.com"
5 z% |0 i0 C- W- \& Y4 |- v  h
functionbutt(){
document.write("<formname=autof>")
for(vari=1;i<autourl.length;i++)
7 A0 U& N) D* Q" Adocument.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>")
+ o, U) r' j# _6 }6 i& \}
. p7 e# j2 L$ C% ?! Obutt()
8 O. y% E% B* ^8 R7 s* z. bfunctionauto(url){
document.forms[0]["url"+b].value=url
if(tim>200)
  c$ I8 R" t% J# j# a& T. b{document.forms[0]["txt"+b].value="链接超时"}
else
{document.forms[0]["txt"+b].value="时间"+tim/10+"秒"}
/ x+ z% R8 m7 |7 Z- ~' P: \3 Sb++
}
% I; |! @; y: P9 W2 ofunctionrun(){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>


8 J2 D) \. X1 u29.各种样式的光标
$ ^( U( x) w+ A. F: Oauto：标准光标
default：标准箭头
hand：手形光标
wait：等待光标
text：I形光标
! J! H; V  x# K9 a* d% _) T, P: t6 Yvertical-text：水平I形光标
no-drop：不可拖动光标
. u6 b! ^+ B) O7 ]/ {% ?not-allowed：无效光标
. j. }+ {! X* [0 C$ a  E4 Bhelp：?帮助光标
all-scroll：三角方向标
! x4 L& i% h3 ]move：移动标
6 @' `0 h$ S8 E/ B* I* d4 r4 fcrosshair：十字标
e-resize
9 s. ?6 v* o+ {* N9 Vn-resize
3 b' B8 g7 o7 v" L1 Wnw-resize
w-resize
s-resize
se-resize
3 Q5 S% n- i, w( ^4 x1 c$ m" hsw-resize

% ^/ t3 U8 j7 j1.本地无缓存，每次自动刷新
7 H: P  k7 [4 n+ S  o. @response.expires=0
response.addHeader"pragma","no-cache"
9 V6 v/ q6 v2 c# Z2 Oresponse.addHeader"cache-control","private"

2.修改contentType并下载gif等格式
0 V* ~& H. A% s9 w& L2 v<%
, C; t* B! V6 j: [, o+ ?/ ofunctiondl(f,n)
  Y  C2 o9 u! [1 g& C0 eonerrorresumenext

sets=CreateObject("Adodb.Stream")
# A9 f: Z5 Z! B- T) ~S.Mode=3
! l5 }' d; H6 l% US.Type=1
S.Open
4 Q! Y; a8 o5 Y8 G4 Ns.LoadFromFile(server.mappath(f))
- L4 |/ U! F6 h! o! D  Xiferr.number>0then
& X5 V% y1 X8 K6 m6 M) }# _+ Zresponse.writeerr.number&":"&err.description
else
% v+ i0 o; I# Yresponse.contentType="application/x-gzip"
- T0 J' j6 R( a  ?4 q6 lresponse.addheader"Content-Disposition:","attachment;filename="&n
8 V% h. u% t  z- C- Vresponse.binarywrite(s.Read(s.size))
endif
endfunction

calldl("012922501.gif","t1.gif")
% i" a6 `" i% `5 d%>
7 {/ l# m7 h5 p+ o

19.检查一段字符串是否全由数字组成
<scriptlanguage="javascript"><!--
" ^9 A4 Z. i' O4 e% xfunctioncheckNum(str){return!/\D/.test(str)}
alert(checkNum("1232142141"))
+ h# {* A4 ]$ X! Salert(checkNum("123214214a1"))
//--></script>
( Q' c3 ], C3 Z0 K0 q' ?' I, x
20.获得一个窗口的大小
# P& ^: L5 R% f# d/ Gdocument.body.clientWidth,document.body.clientHeight
: g" u+ d% }4 _- m  P1 b( ddocument.body.offsetWidth,document.body.offsetHeight
+ O" ^* m+ L7 V8 z8 z/ d/ f5 D( s有时还需要知道window.screenTop,window.screenLeft
. X3 e: f$ T4 W
. q& g0 y& Y% @# n) ~21.怎么判断是否含有汉字
if(escape(str).indexOf("%u")!=-1)alert("含有汉字");
+ e0 G3 {" M) C; x; pelsealert("全是字符");

8 Q6 M+ g# T& p22.TEXTAREA自适应文字行数的多少
IE5.5+可以用overflow-y:visible
<textarearows=1name=s1cols=27style="overflow-y:visible">
6 g" ?6 l6 q; [& \# A% {+ q</textarea>
9 L& x6 I( P4 @+ F) U
23.日期减去天数等于第二个日期
<scriptlanguage=javascript>
3 u9 G, ]+ x7 Sfunctioncc(dd,dadd)
1 S/ n1 _3 E& k. N{
//可以加上错误处理
vard=newDate(dd.replace("-","/"))
d.setDate(d.getDate()+dadd)
1 L- O& S8 x  {3 Valert(d.getFullYear()+"年"+(d.getMonth()+1)+"月"+d.getDate()+"日")
}
cc("2002-2-28",2)
</script>