[分享]网页建设时常用的代码(页 1) - ※家电数码※ - PC技术交流区 - 〖嘉城社区网〗嘉城社区网|嘉城业主的网上家园

yeego 发表于 2005-12-12 14:01

[分享]网页建设时常用的代码

1.　oncontextmenu=\"window.event.returnvalue=false\"　　　将彻底屏蔽鼠标右键 
　　<table border oncontextmenu=return(false)><td>no</table>　可用于Table 
2.　<body onselectstart=\"return false\">　　　　　　　　取消选取、防止复制 
 
3.　onpaste=\"return false\"　　　　　　　　　　　　　　　　　　　　不准粘贴 
 
4.　oncopy=\"return false;\" oncut=\"return false;\"　　　　　　　　　防止复制 
 
5.　<link rel=\"Shortcut Icon\" href=\"favicon.ico\"> IE地址栏前换成自己的图标 
 
6.　<link rel=\"Bookmark\" href=\"favicon.ico\">　可以在收藏夹中显示出你的图标 
 
7.关闭输入法　 
<input style=\"ime-mode:disabled\"> 
　　　　　　　　　　　　　 
 
8.　永远都会带着框架 
<script language=\"javascript\"></script> 
 
 
9.　防止被人frame 
<SCRIPT LANGUAGE=javascript></SCRIPT> 
 
 
 
10.网页将不能被另存为 
<noscript><iframe src=*.html></iframe></noscript> 
 
 
11. <input type=button value=查看网页源代码 
onclick=\"window.location = \'view-source:\'+ \'<a target=_blank href="http://hk.westxj.com/">http://hk.westxj.com/</a>\'\"> 
 
 
12. 怎样通过asp的手段来检查来访者是否用了代理 
<% if Request.ServerVariables(\"HTTP_X_FORWARDED_FOR\")<>\"\" then 
response.write \"您通过了代理服务器，\"& _ 
\"真实的IP为\"&Request.ServerVariables(\"HTTP_X_FORWARDED_FOR\") 
end if 
%> 
 
 
13. 取得控件的绝对位置 
file://javascript 
<script language=\"javascript\"> 
function getIE(e){ 
　var t=e.offsetTop; 
　var l=e.offsetLeft; 
　while(e=e.offsetParent){ 
　　t+=e.offsetTop; 
　　l+=e.offsetLeft; 
　　} 
　alert(\"top=\"+t+\"\\nleft=\"+l); 
　} 
</script> 
file://VBScript 
<script language=\"VBScript\"></script> 
 
 
14. 光标是停在文本框文字的最后 
<script language=\"javascript\"> 
function cc() 
{ 
　var e = event.srcElement; 
　var r =e.createTextRange(); 
　r.moveStart(\'character\',e.value.length); 
　r.collapse(true); 
　r.select(); 
} 
</script> 
<input type=text name=text1 value=\"123\" onfocus=\"cc()\"> 
 
 
15. 判断上一页的来源 
asp: 
request.servervariables(\"HTTP_REFERER\") 
java script: 
document.referrer 
 
 
16. 最小化、最大化、关闭窗口 
<object id=hh1 classid=\"clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11\"> 
<param name=\"Command\" value=\"Minimize\"></object> 
<object id=hh2 classid=\"clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11\"> 
<param name=\"Command\" value=\"Maximize\"></object> 
<OBJECT id=hh3 classid=\"clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11\"> 
<PARAM NAME=\"Command\" value=\"Close\"></OBJECT> 
<input type=button value=最小化 onclick=hh1.Click()> 
<input type=button value=最大化 onclick=hh2.Click()> 
<input type=button value=关闭 onclick=hh3.Click()> 
 
本例适用于IE 
 
17. 
<% 
\'定义数据库连接的一些常量 
Const adOpenForwardOnly　　 = 0 \'游标只向前浏览记录，不支持分页、Recordset、BookMark 
Const adOpenKeyset　　　　　= 1 \'键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark 
Const adOpenDynamic　　　　 = 2 \'动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。 
Const adOpenStatic　　　　　= 3 \'静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动 
Const adLockReadOnly　　　　= 1 \'锁定类型，默认的，只读，不能作任何修改 
Const adLockPessimistic　　 = 2 \'当编辑时立即锁定记录，最安全的方式 
Const adLockOptimistic　　　= 3 \'只有在调用Update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等 
Const adLockBatchOptimistic = 4 \'当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的 
Const adCmdText　= &H0001 
Const adCmdTable = &H0002 
%> 
 
 
18. 网页不会被缓存 
HTM网页 
<META HTTP-EQUIV=\"pragma\" CONTENT=\"no-cache\"> 
<META HTTP-EQUIV=\"Cache-Control\" CONTENT=\"no-cache, must-revalidate\"> 
<META HTTP-EQUIV=\"expires\" CONTENT=\"Wed, 26 Feb 1997 08:21:57 GMT\"> 
或者<META HTTP-EQUIV=\"expires\" CONTENT=\"0\"> 
 
 
ASP网页 
　Response.Expires = -1 
　Response.ExpiresAbsolute = Now() - 1 
　Response.cachecontrol = \"no-cache\" 
 
PHP网页 
header(\"Expires: Mon, 26 Jul 1997 05:00:00 GMT\"); 
header(\"Cache-Control: no-cache, must-revalidate\"); 
header(\"Pragma: no-cache\"); 
 
一些初学者常用代码引用: 
1.获得系统时间: 
<%=now()%> 
 
 
2.取得来访用的IP: 
<%=request.serverVariables(\"remote_host\")%> 
 
 
3.获得系统,浏览器版本: 
<script> 
window.document.write(\"版本：\"+navigator.appName+navigator.appVersion+\" browser.\") 
</script> 
 
 
4.去除IE混动条: 
<body scroll=\"no\"> 
<body style=\"overflow-y:hidden\"> 
 
 
5.进入网站,跳出广告: 
<script language=\"javascript\"> 
 
window.open(\'\'<a target=_blank href="http://www.">http://www.</a>******.com\'\',\'\'\'\',\'\'height=200,width=300,top=0,left=30\'\'); 
// --> 
</script> 
 
 
6.随机数: 
<%randomize%> 
<%=(int(rnd()*n)+1)%> 
N为可改变数 
 
 
7.向上混动代码: 
<marquee direction=\"up\" scrolldelay=\"200\" style=\"font-size: 9pt; color: #FF0000; line-height: 150%; font-style:italic; font-weight:bold\" scrollamount=\"2\" width=\"206\" height=\"207\" bgcolor=\"#FFFF00\">hhhhhhhhhhhhhhhhhhh</marquee> 
 
 
8.自动关闭网页: 
<script LANGUAGE=\"javascript\"> 
 
</script> 
本页10秒后自动关闭,请注意刷新页面 
 
9.随机背景音乐: 
<%randomize%> 
<bgsound src=\"mids/<%=(int(rnd()*60)+1)%>.mid\" loop=\"-1\"> 
　 
 
可以修改数字，限制调用个数，我这里是６０个． 
 
10.自动刷新本页面: 
<script> 
 
</script> 
 
 
11.ACCESS数据库连接: 
<% 
option explicit 
dim startime,endtime,conn,connstr,db 
startime=timer() 
\'更改数据库名字 
db=\"data/dvBBS5.mdb\" 
Set conn = Server.CreateObject(\"ADODB.Connection\") 
connstr=\"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Server.MapPath(db) 
\'如果你的服务器采用较老版本Access驱动，请用下面连接方法 
\'connstr=\"driver={Microsoft Access Driver (*.mdb)};dbq=\" & Server.MapPath(db) 
conn.Open connstr 
function CloseDatabase 
Conn.close 
Set conn = Nothing 
End Function 
%> 
 
 
12.SQL数据库连接: 
<% 
option explicit 
dim startime,endtime,conn,connstr,db 
startime=timer() 
connstr=\"driver={SQL Server};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs\" 
Set conn = Server.CreateObject(\"ADODB.Connection\") 
conn.Open connstr 
function CloseDatabase 
Conn.close 
Set conn = Nothing 
End Function 
%> 
 
 
13.用键盘打开网页代码: 
<script language=\"javascript\"> 
function ctlent(eventobject) 
{ 
if((event.ctrlKey && window.event.keyCode==13)||(event.altKey && window.event.keyCode==83)) 
{ 
window.open(\'网址\',\'\',\'\') 
} 
} 
</script>

iceantbaby 发表于 2005-12-12 16:59

re:好难,都不懂的

好难,都不懂的

欧欧之神 发表于 2005-12-13 09:48

re:看不懂。。。。

看不懂。。。。

popshen 发表于 2005-12-15 20:06

re:给偶2个月，小研一下要，HOHO

给偶2个月，小研一下要，HOHO

yeego 发表于 2005-12-15 21:22

re:好啊，社区网需要技术人才啊~~~~偶的水...

好啊，社区网需要技术人才啊~~~~偶的水平有限，正努力钻研中，边学边做~~~

dbwyj 发表于 2006-5-2 20:28

re:以后派的到用处啊

以后派的到用处啊

mingxuan 发表于 2006-5-9 23:43

re:好东东

好东东

dbwyj 发表于 2006-5-11 12:45

re:LZ最好做几个范例啊

LZ最好做几个范例啊

mingxuan 发表于 2006-5-12 23:53

re:好建议

好建议

dbwyj 发表于 2006-5-19 14:45

re:跟进

跟进

dbwyj 发表于 2006-6-12 12:49

re:能不能搞点范例给我看看啊？

能不能搞点范例给我看看啊？

页: [1]

〖嘉城社区网〗's Archiver