网页制作精华代码集(重新整理)

1. oncontextmenu=”window.event.returnvalue=false” 将彻底屏蔽鼠标右键

no

可用于Table

2. 取消选取、防止复制

3. onpaste=”return false” 不准粘贴

4. oncopy=”return false;” oncut=”return false;” 防止复制

5. IE地址栏前换成自己的图标

6. 可以在收藏夹中显示出你的图标

7. 关闭输入法

8. 永远都会带着框架

9. 防止被人frame

10. 网页将不能被另存为

11. onclick=”window.location = 'view-source:'+ 'http://www.csdn.net/'”>

12. 怎样通过asp的手段来检查来访者是否用了代理
<% if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>“” then
response.write “您通过了代理服务器,”& _
“真实的IP为”&Request.ServerVariables(“HTTP_X_FORWARDED_FOR”)
end if
%>

13. 取得控件的绝对位置

//javascript

//VBScript

14. 光标是停在文本框文字的最后

15. 判断上一页的来源
asp:
request.servervariables(“HTTP_REFERER”)

javascript:
document.referrer

16. 最小化、最大化、关闭窗口





本例适用于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网页



或者
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”);

19. 检查一段字符串是否全由数字组成

20. 获得一个窗口的大小
document.body.clientWidth,document.body.clientHeight

21. 怎么判断是否是字符
if (/[^\x00-\xff]/g.test(s)) alert(“含有汉字”);
else alert(“全是字符”);

22.TEXTAREA自适应文字行数的多少

23. 日期减去天数等于第二个日期

24. 选择了哪一个Radio

Style
Barcode

25.获得本页url的request.servervariables(“”)集合
Response.Write “


for each ob in Request.ServerVariables
Response.Write “


next
Response.Write “

Variables value
“&ob&” “&Request.ServerVariables(ob)&”

26.
本机ip<%=request.servervariables("remote_addr")%>
服务器名<%=Request.ServerVariables("SERVER_NAME")%>
服务器IP<%=Request.ServerVariables("LOCAL_ADDR")%>
服务器端口<%=Request.ServerVariables("SERVER_PORT")%>
服务器时间<%=now%>
IIS版本<%=Request.ServerVariables"SERVER_SOFTWARE")%>
脚本超时时间<%=Server.ScriptTimeout%>
本文件路径<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>
服务器CPU数量<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
服务器解译引擎<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
服务器操作系统<%=Request.ServerVariables("OS")%>

27.ENTER键可以让光标移到下一个输入框

28. 检测某个网站的链接速度:
把如下代码加入区域中:

29. 各种样式的光标
auto :标准光标
default :标准箭头
hand :手形光标
wait :等待光标
text :I形光标
vertical-text :水平I形光标
no-drop :不可拖动光标
not-allowed :无效光标
help :?帮助光标
all-scroll :三角方向标
move :移动标
crosshair :十字标
e-resize
n-resize
nw-resize
w-resize
s-resize
se-resize
sw-resize
—————————————————————————————————————

【1、普通的弹出窗口】
其实代码非常简单:

 因为这是一段javascripts代码,所以它们应该放在之间。是对一些版本低的浏览器起作用,在这些老浏览器中不会将标签中的代码作为文本显示出来。要养成这个好习惯啊。
 window.open ('page.html') 用于控制弹出新的窗口page.html,如果page.html不与主窗口在同一路径下,前面应写明路径,绝对路径(http://)和相对路径(../)均可。
 用单引号和双引号都可以,只是不要混用。
 这一段代码可以加入HTML的任意位置,和之间可以,间也可以,越前越早执行,尤其是页面代码长,又想使页面早点弹出就尽量往前放。

 【2、经过设置后的弹出窗口】
 下面再说一说弹出窗口的设置。只要再往上面的代码中加一点东西就可以了。我们来定制这个弹出的窗口的外观,尺寸大小,弹出的位置以适应该页面的具体情况。

 参数解释:

js脚本结束

 【3、用函数控制弹出窗口】
 下面是一个完整的代码。





..任意的页面内容…

 这里定义了一个函数openwin(),函数内容就是打开一个窗口。在调用它之前没有任何用途。
怎么调用呢?

 方法一: 浏览器读页面时弹出窗口;
 方法二: 浏览器离开页面时弹出窗口;
 方法三:用一个连接调用:

 【4、同时弹出2个窗口】

 对源代码稍微改动一下:

 为避免弹出的2个窗口覆盖,用top和left控制一下弹出的位置不要相互覆盖即可。最后用上面说过的四种方法调用即可。
注意:2个窗口的name(newwindows和newwindow2)不要相同,或者干脆全部为空。OK?

 【5、主窗口打开文件1.htm,同时弹出小窗口page.html】

 如下代码加入主窗口区:


加入区:
open即可。

 【6、弹出的窗口之定时关闭控制】

 下面我们再对弹出的窗口进行一些控制,效果就更好了。如果我们再将一小段代码加入弹出的页面(注意是加入到page.html的HTML中,可不是主页面中,否则…),让它10秒后自动关闭是不是更酷了?

 首先,将如下代码加入page.html文件的区:

 然后,再用 这一句话代替page.html中原有的这一句就可以了。(这一句话千万不要忘记写啊!这一句的作用是调用关闭窗口的代码,10秒钟后就自行关闭该窗口。)

 【7、在弹出窗口中加上一个关闭按钮】


呵呵,现在更加完美了!

 【8、内包含的弹出窗口-一个页面两个窗口】

上面的例子都包含两个窗口,一个是主窗口,另一个是弹出的小窗口。
通过下面的例子,你可以在一个页面内完成上面的效果。








 看看 OpenWindow.document.write()里面的代码不就是标准的HTML吗?只要按照格式写更多的行即可。千万注意多一个标签或少一个标签就会出现错误。记得用OpenWindow.document.close()结束啊。

 【9、终极应用–弹出的窗口之Cookie控制】

 回想一下,上面的弹出窗口虽然酷,但是有一点小毛病(沉浸在喜悦之中,一定没有发现吧?)比如你将上面的脚本放在一个需要频繁经过的页面里(例如首页),那么每次刷新这个页面,窗口都会弹出一次,是不是非常烦人?:-(
 有解决的办法吗?Yes! 😉 Follow me.
 我们使用cookie来控制一下就可以了。
 首先,将如下代码加入主页面HTML的区:

 然后,用(注意不是openwin而是loadpop啊!)替换主页面中原有的这一句即可。你可以试着刷新一下这个页面或重新进入该页面,窗口再也不会弹出了。真正的Pop-Only-Once!

 写到这里弹出窗口的制作和应用技巧基本上算是完成了,俺也累坏了,一口气说了这么多,希望对正在制作网页的朋友有所帮助俺就非常欣慰了。
 需要注意的是,JS脚本中的的大小写最好前后保持一致
06.打开窗口即最大化

12.细线分隔线


13.过度方式


Duration的值为网页动态过渡的时间,单位为秒。
Transition是过渡方式,它的值为0到23,分别对应24种过渡方式。如下表:
0 盒状收缩 1 盒状放射
2 圆形收缩 3 圆形放射
4 由下往上 5 由上往下
6 从左至右 7 从右至左
8 垂直百叶窗 9 水平百叶窗
10 水平格状百叶窗 11垂直格状百叶窗
12 随意溶解 13从左右两端向中间展开
14从中间向左右两端展开 15从上下两端向中间展开
16从中间向上下两端展开 17 从右上角向左下角展开
18 从右下角向左上角展开 19 从左上角向右下角展开
20 从左下角向右上角展开 21 水平线状展开
22 垂直线状展开 23 随机产生一种过渡方式

15.如何控制横向和纵向滚动条的显隐?
去掉x轴
去掉y轴
不显

16.怎样在 FrontPage2000 中加入 Flash 动画?
在 FrontPage2000 中,点击[插入]->[高级]->[插件],在弹出的窗口中,设置一下 Flash 文件的大小及其它信息,确定即可。

17.加入注释的格式是:    
〈!-[注释内容…]–〉

18.怎样在网页中加入 E-mail 链接并显示预定的主题?
〈A href=”mailto:Emailhost@263.net?subject=主题”〉……〈/a〉

19.定义本网页关键字,可以在〈Head〉〈/Head〉中加入如下代码:

〈meta name=”Keywords” content=”china,enterprise,business,net”〉   
Content 中所包含的就是关键字,你可以自行设置。   
这里有个技巧,你可以重复某一个单词,这样可以提高自己网站的排行位置,如:
〈meta name=”Keywords” content=”china,china,china,china”〉

20.IE5.0 的部分快捷键:
A:打开查找功能:Ctrl+F
关闭浏览器窗口:Ctrl+W
打开地址栏下拉列表框:F4
刷 新:F5
将当前Web页保存到收藏夹列表:Ctrl+D
打开当前 IE 窗口的一个拷贝:Ctrl+N
停止下载当前网页:Esc
光标迅速移动到网页的开头:Home
光标迅速移动到网页的尾部:End
打开新的地址键入窗口:Ctrl+O
打开收藏夹:Ctrl+I
打开历史记录文件夹:Ctrl+H
打开浏览器设定的默认主页:Alt+HOME

21.添加到收藏夹:
〈a href=”javascript:window.external.addFavorite('
http://链接','说明');”〉添加到收藏夹〈/a〉

22.设为首页:

〈a href=# onclick=this.style.behavior='url(#default#homepage)';this.setHomePage('http://链接');〉设为首页〈/a〉

23.定制浏览器地址栏前的小图标:

A:在网页的〈head〉〈/head〉间加入以下语句:
〈link rel=”shortcuticon” href=”http://…/icon.ico”〉
即可。其中 icon.ico 为 16×16 的图标文件,颜色不要超过 16 色。

24.把滚动条放在浏览器窗口的左边

A:在 中加 dir=RTL,即 。

根据内容扩大IFRAME的高度
Email 2003-10-23 23:21:29

JS:自动计算数值
Email 2003-10-23 23:21:58

单价:20

数量:

金额:

JS:弹出式窗口自动适应图片大小的代码!
Email 2003-10-23 23:22:18

回复: Js:排序表格(来自WebFx Activex)
Email 2003-10-23 23:22:48



排序列表



点击表头排序

排序表格

选择 字符串 字符串 数字 日期
apple Strawberry 45 2001-03-13
Banana orange 1789-07-14
orange Banana 4546 1949-07-04
Strawberry apple 987 1975-08-19
Pear blueberry 98743 2001-01-01
blueberry Pear 4 2001-04-18



JS:如何把选定的文本内容复制到剪贴板!
Email 2003-10-23 23:23:20

Js:判断radio多个单选按纽中是否有被选中的按纽
Email 2003-10-23 23:23:51







Css:关于Cursor属性提供的各种鼠标形状
Email 2003-10-23 23:25:10

应用时只需

即可,当然TD可以是其他HTML标签

———————————————————————–
Html:绝对与浏览器边框无缝隙的网页效果
Email 2003-10-23 23:25:35

Dhtml:制作的一个完美仿真的window选项卡
Email 2003-10-23 23:26:00



Table_Card


crosshair default hand pointer
move help wait text
w-resize s-resize n-resize e-resize
ne-resize sw-resize se-resize nw-resize
auto http://www.lshdic.com/img/mouse2.cur'); PADDING-TOP: 5px” align=”middle” width=”75%” bgColor=”#ffc080″ colSpan=”3″>
url(http://www.lshdic.com/img/mouse2.cur)<;/td>

Content



————————————————————————————–
Vml:如何做圆角的表格?
Email 2003-10-23 23:26:23


使用FSO修改文件特定内容的函数
Email 2003-10-31 14:18:42

function FSOchange(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.createObject(“Scripting.FileSystemObject”)
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData=Replace(FiletempData,Target,String)
Set objCountFile=objFSO.createTextFile(Server.MapPath(filename),True)
objCountFile.Write FiletempData
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function
''''使用FSO读取文件内容的函数

function FSOFileRead(filename)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.createObject(“Scripting.FileSystemObject”)
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function

''''使用FSO读取文件某一行的函数

function FSOlinedit(filename,lineNum)
if linenum < 1 then exit function
dim fso,f,temparray,tempcnt
set fso = server.createObject(“scripting.filesystemobject”)
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
set f = nothing
temparray = split(tempcnt,chr(13)&chr(10))
if lineNum>ubound(temparray)+1 then
exit function
else
FSOlinedit = temparray(lineNum-1)
end if
end if
end function

''''使用FSO写文件某一行的函数

function FSOlinewrite(filename,lineNum,Linecontent)
if linenum < 1 then exit function
dim fso,f,temparray,tempCnt
set fso = server.createObject(“scripting.filesystemobject”)
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
temparray = split(tempcnt,chr(13)&chr(10))
if lineNum>ubound(temparray)+1 then
exit function
else
temparray(lineNum-1) = lineContent
end if
tempcnt = join(temparray,chr(13)&chr(10))
set f = fso.createtextfile(server.mappath(filename),true)
f.write tempcnt
end if
f.close
set f = nothing
end function

''''使用FSO添加文件新行的函数

function FSOappline(filename,Linecontent)
dim fso,f
set fso = server.createObject(“scripting.filesystemobject”)
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),8,1)
f.write chr(13)&chr(10)&Linecontent
f.close
set f = nothing
end function

''''读文件最后一行的函数

function FSOlastline(filename)
dim fso,f,temparray,tempcnt
set fso = server.createObject(“scripting.filesystemobject”)
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
set f = nothing
temparray = split(tempcnt,chr(13)&chr(10))
FSOlastline = temparray(ubound(temparray))
end if
end function

'还有,创建文件夹:

sub createFolder(Foldername)
Set afso = Server.createObject(“Scripting.FileSystemObject”)
if afso.folderexists(server.mappath(Foldername))=true then
else
afso.createfolder(server.mappath(foldername))
end if
set afso=nothing
end sub

'用法,createfolder(foldername)

From:http://www.showmm.com/blog/blogview.asp?logID=219

此条目发表在点滴 Diary分类目录。将固定链接加入收藏夹。

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注