WEB编程开发常用的代码

Fri, 01 Jun 2007 12:44:25 +0000

记录并显示网页的最后修改时间

2秒后关闭当前页

2秒后载入指定网页

添加到收藏夹

禁止鼠标右键的动作

或

设置该页为首页

设为首页

节日倒计时

单击按钮打印出当前页

单击按钮‘另存为’当前页

显示系统当前日期

不同时间段显示不同问候语

水中倒影效果
　　

慢慢变大的窗口
进入

鼠标指向时弹出信息框
在之间加上如下代码：显示的链接文字

随机变换背景图象（一个可以刷新心情的特效）
在之间加上如下代码：

鼠标一碰就给颜色看的链接在之间加上如下代码：

你敢碰我，我就给点颜色你看！

从天而降并有幻影效果的窗口

　　
　　

能隐藏IFRAME的滚动条吗？我知道的三种方法:
1. 设置iframe scrolling="no"
2. 被包含页body应用overflow:hidden
3. 被包含页的body标签加scroll="no"

加入背景音乐

只适用于IE

对Netscape ,IE 都适用

嵌入网页

跳转

滚动

细线分隔线

过度方式

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 随机产生一种过渡方式

如何控制横向和纵向滚动条的显隐？

去掉x轴
去掉y轴
不显

定义本网页关键字，可以在中加入如下代码：　　
Content 中所包含的就是关键字,你可以自行设置。　　
这里有个技巧,你可以重复某一个单词,这样可以提高自己网站的排行位置,如：

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

添加到收藏夹：

添加到收藏夹

设为首页：

设为首页

定制浏览器地址栏前的小图标：
A:在网页的间加入以下语句

即可。其中 icon.ico 为 16x16 的图标文件，

颜色不要超过 16 色。

把滚动条放在浏览器窗口的左边
A:在中加 dir=RTL，即。

让背景图不滚动
IE浏览器支持一个 Body 属性 bgproperties，它可以让背景不滚动:

删除确认：

隐藏状态栏中的链接地址：

自定义指定区域的文字大小：

sdrrrrrrrrrrrrrrrrrrrrrrrrrrrrr

【大中小】

Input输入框文字效果：

通过层来实现渐淡淡出

ywicc.com

网页屏保

5 秒屏保

让标题动态

隐去浏览器中当鼠标移到图片上跳出的工具栏

或者

在form中只有input输入框的情况下...在这个input输入框中按enter进行提交表单

删除确认

或
删除
或
删除

返回页面顶部：
javascript:window.scroll(0,0)

离开页面时弹出警告：

aa

7:07  |  固定链接 | 评论 (0) | 引用通告 (0) | 记录它 | 计算机与 Internet

固定链接  关闭

http://spaces.msn.com/members/lionyang888/Blog/cns!1pegtqF_uRpLTqjlUYAIJKVQ!179.entry
　

　

WEB编程开发常用的代码

WEB编程开发常用的代码

2005-9-29 15:17:20 编辑：阿志来源：来源网络

1. ASP与Access数据库连接：
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
''conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
conn.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & mdbfile

2. ASP与SQL数据库连接： dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称;"

建立记录集对象： set rs=server.createobject("adodb.recordset")
rs.open SQL语句,conn,3,2

SQL常用命令使用方法：

数据记录筛选： sql="select * from 数据表 where 字段名=字段值 order by 字段名 "
sql="select * from 数据表 where 字段名 like ‘%字段值%‘ order by 字段名 "
sql="select top 10 * from 数据表 where 字段名 order by 字段名 "
sql="select * from 数据表 where 字段名 in (‘值1‘,‘值2‘,‘值3‘)"
sql="select * from 数据表 where 字段名 between 值1 and 值2"
更新数据记录： sql="update 数据表 set 字段名=字段值 where 条件表达式"
sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式"

删除数据记录： sql="delete from 数据表 where 条件表达式"
sql="delete from 数据表" (将数据表所有记录删除)

添加数据记录： sql="insert into 数据表 (字段1,字段2,字段3 …) valuess (值1,值2,值3 …)"
sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表)
数据记录统计函数：
AVG(字段名) 得出一个表格栏平均值
COUNT(*|字段名) 对数据行数的统计或对某一栏有值的数据行数统计
MAX(字段名) 取得一个表格栏最大的值
MIN(字段名) 取得一个表格栏最小的值
SUM(字段名) 把数据栏的值相加

引用以上函数的方法： sql="select sum(字段名) as 别名 from 数据表 where 条件表达式"
set rs=conn.excute(sql)
用 rs("别名") 获取统的计值，其它函数运用同上。

数据表的建立和删除： Create TABLE 数据表名称(字段1 类型1(长度),字段2 类型2(长度) …… )
例：Create TABLE tab01(name varchar(50),datetime default now())
Drop TABLE 数据表名称 (永久性删除一个数据表)

记录集对象的方法：
rs.movenext 将记录指针从当前的位置向下移一行
rs.moveprevious 将记录指针从当前的位置向上移一行
rs.movefirst 将记录指针移到数据表第一行
rs.movelast 将记录指针移到数据表最后一行
rs.absoluteposition=N 将记录指针移到数据表第N行
rs.absolutepage=N 将记录指针移到第N页的第一行
rs.pagesize=N 设置每页为N条记录
rs.pagecount 根据 pagesize 的设置返回总页数
rs.recordcount 返回记录总数
rs.bof 返回记录指针是否超出数据表首端，true表示是，false为否
rs.eof 返回记录指针是否超出数据表末端，true表示是，false为否
rs.delete 删除当前记录，但记录指针不会向下移动
rs.addnew 添加记录到数据表末端
rs.update 更新数据表记录

判断所填数据是数字型
if not isNumeric(request("字段名称")) then
response.write "不是数字"
else
response.write "数字"
end if
页面执行时间：

<%startime = Timer()%>
.... ....
内容
... ...
结尾
<%
Dim Endtime
Endtime = Timer()
response.write "页面执行时间："&FormatNumber((Endtime-Startime)*1000,5)&" 毫秒"
%>
定义打开网页时起始窗口的大小

随机数:
<%randomize%>
<%=(int(rnd()*n)+1)%>

查询数据时得到的记录关键字用红色显示：
replace(RS("字段X"),searchname,"" & searchname & "")

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

判断上一页的来源
request.servervariables("HTTP_REFERER")
javascript: document.referrer

清除缓存，重新加载页面
<%response.expires = 0
response.expiresabsolute = now() - 1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.cachecontrol = "no-cache"
%>

检索并删除数据库里的重复记录
conn.execute("delete from table where id not in (select distinct from table)")

文件删除函数 <%
''文件删除函数
function deletefile(filename)
if filename<>"" then
set fso=server.CreateObject("scripting.filesystemobject")
if fso.FileExists(filename) then
fso.DeleteFile filename
else
Response.Write ""
end if
end if
end function

strfile=server.MapPath("fileName")
deletefile(strfile)
%>

ASP字数计算函数 <%
Function WordCount(strInput)
Dim strTemp
strTemp = Replace(strInput, vbTab, " ")
strTemp = Replace(strTemp, vbCr, " ")
strTemp = Replace(strTemp, vbLf, " ")

'' 删除字首字尾空格
strTemp = Trim(strTemp)

'' 替换为一个空格
Do While InStr(1, strTemp, " ", 1) <> 0
strTemp = Replace(strTemp, " ", " ")
Loop
WordCount = UBound(Split(strTemp, " ", -1, 1)) +1
End Function
%>
全正则的检测IP是否合法的函数 function checkIP2(sIPAddress)
{
var exp=/^(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])$/;
var reg = sIPAddress.match(exp);
var ErrMsg="你输入的是一个非法的IP地址段！\nIP段为：:xxx.xxx.xxx.xxx（xxx为0-255)！"
var Msg="你输入的是一个合法的IP地址段！"
if(reg==null)
{
alert(ErrMsg);
}
else
{
alert(reg);
}
}

关闭子窗口时刷新父窗口在子窗口

文本框输入限制：

小写英文：
onpaste = "return regInput(this, /^[a-z]*$/, window.clipboardData.getData(''Text''))"
ondrop = "return regInput(this, /^[a-z]*$/, event.dataTransfer.getData(''Text''))"
style="ime-mode:Disabled"
>

大写英文：
onpaste = "return regInput(this, /^[A-Z]*$/, window.clipboardData.getData(''Text''))"
ondrop = "return regInput(this, /^[A-Z]*$/, event.dataTransfer.getData(''Text''))"
style="ime-mode:Disabled">

任意数字：
onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData(''Text''))"
ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData(''Text''))"
style="ime-mode:Disabled"
>

限2位小数：
onpaste = "return regInput(this, /^\d*\.?\d{0,2}$/, window.clipboardData.getData(''Text''))"
ondrop = "return regInput(this, /^\d*\.?\d{0,2}$/, event.dataTransfer.getData(''Text''))"
style="ime-mode:Disabled"
> 如: 123.12

日　期：
onpaste = "return regInput(this, /^\d{1,4}([-\/](\d{1,2}([-\/](\d{1,2})?)?)?)?$/, window.clipboardData.getData(''Text''))"
ondrop = "return regInput(this, /^\d{1,4}([-\/](\d{1,2}([-\/](\d{1,2})?)?)?)?$/, event.dataTransfer.getData(''Text''))"
style="ime-mode:Disabled"
> 如: 2002-9-29

任意中文：
onpaste = "return regInput(this, /^[\u4E00-\u9FA5]*$/, window.clipboardData.getData(''Text''))"
ondrop = "return regInput(this, /^[\u4E00-\u9FA5]*$/, event.dataTransfer.getData(''Text''))"
>

部分英文：
onpaste = "return regInput(this, /^[a-e]*$/, window.clipboardData.getData(''Text''))"
ondrop = "return regInput(this, /^[a-e]*$/, event.dataTransfer.getData(''Text''))"
style="ime-mode:Disabled"
> 范围: a,b,c,d,e

部分中文：

onpaste = "return regInput(this, /^[一二三四五六七八九十]*$/, window.clipboardData.getData(''Text''))"
ondrop = "return regInput(this, /^[一二三四五六七八九十]*$/, event.dataTransfer.getData(''Text''))"
> 范围: 一二三四五六七八九十

[Ctrl+A 全选 Ctrl+C 复制]

不能点右键，不用CTRL+A，不能复制作!
onkeypress="window.event.returnValue=false"
onkeydown="window.event.returnValue=false"
onkeyup="window.event.returnValue=false"
ondragstart="window.event.returnValue=false"
onselectstart="event.returnValue=false">

显示状态拦固定文字：
放在body前

用键盘打开网页

根据内容自动调整iframe高度有时为了方便使用Iframe，但被潜入的页面长度不是固定的，显示滚动条不仅影响美观还对用户操作带来不便，自动调整高度可以解决这个问题。^_^

function f_frameStyleResize(targObj)
{
var targWin = targObj.parent.document.all[targObj.name];
if(targWin != null)
{
var HeightValue = targObj.document.body.scrollHeight
if(HeightValue < 600){HeightValue = 600} //不小于600
targWin.style.pixelHeight = HeightValue;
}
}
function f_iframeResize()
{
bLoadComplete = true;
f_frameStyleResize(self);
}

var bLoadComplete = false;
window.onload = f_iframeResize;

禁止页面正文内容被选取

消除ie6自动出现的图像工具栏，设置 GALLERYIMG属性为false或no .

防止点击空链接时，页面往往重置到页首端。

代码“javascript:void(null)”代替原来的“#”标记

如何避免别人把你的网页放在框架中

关闭本窗口

有时候好不容易写出来的程序代码被别人抄去，心里一定不好受。这还是小事，但如果在我们的源代码中有一些不希望让别人知道的内容，比如密码、Action的指向等，这些一旦被人利用，那后果有时是不堪设想的。而网页加密就是我们现在需要解决的问题。下面就我在网页制作中的一些经验向大家介绍一些简单的防范方法。
禁止右键
看到这里大家一定会想，这招有很多人介绍过了，而且破解的方法也有很多。但我这里要说的是另一种方法，而且我试了很多方法都没有能破解。具体如下：

你可以按右键、shift+F10和右ctrl左边的那个键试试！看能不能解。^_^

大家试试，看能不能破解！你可以将alert("试试能破解吗？");这句去掉，这样当按右键时就什么反应也没有了，就好像没有右键功能一样。

禁示查看源代码
我们已经禁了右键，但从"查看"菜单下的"源文件"中同样可以看到源代码，下面我们就来解决这个问题：
其实这只要使用一个含有标记的网页便可以达到目的。

这样当有人使用"查看"下的"源文件"的时候，看到的将是上面的那段代码，而你真正的文件又躲过一劫。

禁示另存为
通过上面的两步好像你的源代码已经安全了，但别忘了，别人还可以将你的页面保存下来，再慢慢分析。不过别担心，下面我们来解决这个问题。
在你要保密的网页中加入以下代码：

彻底屏蔽右键方法。

双击页面后自动滚屏，单击后停止。

设定脚本出错能继续运行

7:00  |  固定链接 | 评论 (0) | 引用通告 (0) | 记录它 | 计算机与 Internet

固定链接  关闭

http://spaces.msn.com/members/lionyang888/Blog/cns!1pegtqF_uRpLTqjlUYAIJKVQ!178.entry
　

　

一些不常用的html代码

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

可用于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、去掉IE的滚动条
有时候做好的网页明明没有超出窗口，可IE却偏偏给加上滚动条，这样看上去很不舒服，其实这也是可以通过一些小技巧避免的。具体如下：
… //去掉X轴方向的滚动条
… //去掉Y轴方向的滚动条
… //去掉全部的滚动条
现在你看到的和你想像中的网页应该一样了吧，如果其中有什么不明白的地方可以参照注释中的说明。

2、使网页中的复制无效
有方法防止网页被保存了（参见《你别看我的源代码》），可不可以也防止网页内容被复制呢？答案是当然可以。看看下面的例子你就会明白的。

copyright by commander.

这其实中是利用了document的一个oncopy事件，也就是说当发生复制事件时，弹出警告框，同时事件（event）的返回值为false使oncopy事件失效，从而达到防止复制的目的。

3、用脚本控制浏览器
看到标题是不是有点不相信，那么试试下面的这几个例子吧！你一定会吃惊的。
在和之间加入如下代码：

上面其实都是利用了document.execCommand()这个内置的函数，其参数为相应的浏览器命令，还有很多命令就留给大家自己发现吧！

4、 IFrame也可以编辑文字
有没有想过除了表单(

)之外还有其它的网页元素可以编辑文字呢？只要使用IFrame的隐藏的一个属性就可以使IFrame成为一个文本编辑器。

其中designMode属性表示IFrame的设计模式的状态（开/关），还在犹豫什么呢，快试试吧！
只要巧妙的利用这一特性就可以制作很多意想不到的效果。如果下面我们来做一个图片编辑器。

用鼠标点击图片是不是有新的发现，其实大家只要利用自己的想象和充分利用这个属性一定能做出更多的花样来，别忘了到时候有什么新的东东，告诉我一声呀！（Email：BluePBoy@yesky.com）

5、打开硬盘
这是打开硬盘的另一种方法，把它写出来只是想告诉大家，要达到同一个目的有很多种方法，这里就是利用了表单的Action属性达到的，其实打开硬盘有很多种方法，只是这种不太被人们注意，所以这里就选择了这种方法。

静怡家园

WEB编程开发常用的代码

[评论] WEB编程开发常用的代码