WEB编程开发常用的代码.doc

《WEB编程开发常用的代码.doc》由会员分享，可在线阅读，更多相关《WEB编程开发常用的代码.doc（35页珍藏版）》请在装配图网上搜索。

1、WEB编程开发常用的代码- -最小化、最大化、关闭窗口 本例适用于IE记录并显示网页的最后修改时间 document.write(最后更新时间: + document.lastModified + ) 2秒后关闭当前页 2秒后载入指定网页 添加到收藏夹 function bookmarkit() window.external.addFavorite(http:/你的网址,你的网站名称) if (document.all)document.write(加入收藏夹) 禁止鼠标右键的动作 function click() if (event.button=2|event.button=3) ale

2、rt(禁止鼠标右键); document.onmousedown=click / - 或 function click() if (event.button=2) alert(*_*); document.onmousedown=click / - 设置该页为首页 设为首页 节日倒计时 var timedate= new Date(October 1,2002); var times=国庆节; var now = new Date(); var date = timedate.getTime() - now.getTime(); var time = Math.floor(date / (10

3、00 * 60 * 60 * 24); if (time = 0) document.write(现在离+times+还有: +time +天) 单击按钮打印出当前页 if (window.print) document.write( + ); 单击按钮另存为当前页 显示系统当前日期 today=new Date(); function date() this.length=date.arguments.length for(var i=0;ithis.length;i+) thisi+1=date.arguments var d=new date(星期日,星期一,星期二,星期三,星期四,星期

4、五,星期六); document.write( , today.getYear(),年,today.getMonth()+1,月,today.getDate(),日, dtoday.getDay()+1, ); 不同时间段显示不同问候语 var text=; day = new Date( ); time = day.getHours( ); if ( time=0) & (time = 7 ) & (time = 12) & (time =14) & (time = 18) & (time = 22) & (time 24) text=您应该休息了！ document.write(text)

5、 水中倒影效果 function f1() setInterval(mdiv.filters.wave.phase+=10,100); if (document.all) document.write() window.onload=f1 慢慢变大的窗口 =screen.availHeight-3) numx=0 windowsize.resizeBy(5,numx) Windowsheight+=5 Windowswidth+=5 if (Windowswidth=screen.width-5) windowsize.location=temploc Windowsheight=100 Wi

6、ndowswidth=100 numx=5 return setTimeout(tenumxt(),50) /- 进入鼠标指向时弹出信息框 在之间加上如下代码： 显示的链接文字 随机变换背景图象（一个可以刷新心情的特效） 在之间加上如下代码： image = new Array(4); /定义image为图片数量的数组 image 0 = tu0.gif /背景图象的路径 image 1 = tu1.gif image 2 = tu2.gif image 3 = tu3.gif image 4 = tu4.gif number = Math.floor(Math.random() * imag

7、e.length); document.write(); 鼠标一碰就给颜色看的链接 在之间加上如下代码： 你敢碰我，我就给点颜色你看！ sub anniu document.fgColor=int(256*256*256*rnd) end sub 从天而降并有幻影效果的窗口 function move(x) if(self.moveBy) self.moveBy (0,-800); for(i = x; i 0; i-) self.moveBy(0,3); for(j = 200; j 0; j-) /如果你认为窗口抖动厉害，就200换成个位数 self.moveBy(0,j); self.m

8、oveBy(j,0); self.moveBy(0,-j); self.moveBy(-j,0); 表格的半透明显示效果 在之间加上如下代码： .alphafilter: Alpha(Opacity=50) /50表示50%的透明度 在之间加上如下代码： 很酷吧! 锁定状态栏文字防止显示地址禁止图片下载在这里的最后加入： oncontextmenu=return false ondragstart=return false onselectstart=return false scroll=auto禁止缓存 加在HEAD里使用包含页面加密所包含页面地址，使用工具 htmlguardian5.3

9、.5目前功能最强的html代码加密软件,可以保护连接和html代码被盗。1.锁右键。2.禁鼠标圈选。3.不允许离线使用。4.密码保护。5.不显示状态栏url地址。6.全代码 或 局部代码保护。7.链接跟踪。8.禁止打印(IE5+)。9.压缩代码( 未加密前)。10.可加密*.html *.js *.asp *.vbs。11.两种不同加密算法。12.加密 frameset 结构。13.某些功能支持几个不同版本的浏览器。 下载flash我的三种方法：-查看源文件，找出flash的绝对路径，复制，在flashget（或蚂蚁）中点任务，然后点新建下载任务即可。-在IE的临时文件夹Temporary I

10、nternet Files里把所有的东西都删掉，然后刷新你想要下载flash的网页，即可得到你所要的flash-使用外部软件，推荐使用Flash Catcher,安装后只需在你所要下载的flash上右键，save即可。让IFRAME框架内的文档的背景透明iframe src=about: allowtransparency进入页面后立即自动刷新？http:/ 能隐藏IFRAME的滚动条吗？我知道的三种方法:1. 设置iframe scrolling=no2. 被包含页body应用overflow:hidden3. 被包含页的body标签加scroll=no加入背景音乐 只适用于IE 对Nets

11、cape ,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 从左

12、下角向右上角展开 21 水平线状展开 22 垂直线状展开 23 随机产生一种过渡方式如何控制横向和纵向滚动条的显隐？ 去掉x轴 去掉y轴 不显定义本网页关键字，可以在中加入如下代码： Content 中所包含的就是关键字,你可以自行设置。 这里有个技巧,你可以重复某一个单词,这样可以提高自己网站的排行位置,如： IE5.0 的部分快捷键： A:打开查找功能：Ctrl+F 关闭浏览器窗口：Ctrl+W 打开地址栏下拉列表框：F4 刷 新：F5 将当前Web页保存到收藏夹列表：Ctrl+D 打开当前 IE 窗口的一个拷贝：Ctrl+N 停止下载当前网页：Esc 光标迅速移动到网页的开头：Home

13、光标迅速移动到网页的尾部：End 打开新的地址键入窗口：Ctrl+O 打开收藏夹：Ctrl+I 打开历史记录文件夹：Ctrl+H 打开浏览器设定的默认主页：Alt+HOME 添加到收藏夹：添加到收藏夹设为首页：设为首页 定制浏览器地址栏前的小图标：A:在网页的间加入以下语句即可。其中 icon.ico 为 16x16 的图标文件，颜色不要超过 16 色。 把滚动条放在浏览器窗口的左边A:在 中加 dir=RTL，即 。让背景图不滚动IE浏览器支持一个 Body 属性 bgproperties，它可以让背景不滚动: 删除确认：隐藏状态栏中的链接地址： kstatus(); function ks

14、tatus() self.status=GBlog () ; setTimeout(kstatus(),0); 自定义指定区域的文字大小：sdrrrrrrrrrrrrrrrrrrrrrrrrrrrrr 【大 中 小】 function doZoom(size) document.getElementById(zoom).style.fontSize=size+px Input输入框文字效果：通过层来实现渐淡淡出 function makevisible(cur,which) if (which=0) cur.filters.alpha.opacity=100 else cur.filters.

15、alpha.opacity=50 网页屏保 function screensave() test.value+; if(test.value=5) test.style.display=none; document.all4.bgColor=black; function screenopen() test.value=0; test.style.display=; document.all4.bgColor=; 5 秒屏保让标题动态 !- var tx = new Array ( :网页制作学习园地:欢迎您!, 欢迎大家光临网页制作学习园地网站!, 大量供应网页制作教材,资料,源代码,网页

16、制作软件,相关插件光盘!, 最可怕的敌人，就是没有坚强的信念!, 应该让别人的生活因为有了你的生存而更加美好! ); var txcount=5; var i=1; var wo=0; var ud=1; function animatetitle() window.document.title=txwo.substr(0, i)+_; if (ud=0) i-; if (ud=1) i+; if (i=-1) ud=1;i=0;wo+;wo=wo%txcount; if (i=txwo.length+10) ud=0;i=txwo.length; / if (window.document.

17、title.length 隐去浏览器中当鼠标移到图片上跳出的工具栏或者 在form中只有input输入框的情况下.在这个input输入框中按enter进行提交表单 删除确认或删除 或删除返回页面顶部：javascript:window.scroll(0,0)离开页面时弹出警告：function checkclose()event.returnValue = 测试啊 /XXX可以改为任何文本信息也可以是空aa12:58 | 固定链接 | 评论 (0) | 引用通告 (0) | 记录它 固定链接 关闭 http:/ WEB编程开发常用的代码1 1. ASP与Access数据库连接： dim con

18、n,mdbfile mdbfile=server.mappath(数据库名称.mdb) set conn=server.createobject(adodb.connection) conn.open driver=microsoft access driver (*.mdb);uid=admin;pwd=数据库密码;dbq=&mdbfileconn.open Provider = Microsoft.Jet.OLEDB.4.0;Data Source = & mdbfile2. ASP与SQL数据库连接： dim conn set conn=server.createobject(ADODB

19、.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 字段名

20、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 fr

21、om 数据表 (将数据表所有记录删除)添加数据记录： sql=insert into 数据表 (字段1,字段2,字段3 ) valuess (值1,值2,值3 ) sql=insert into 目标数据表 select * from 源数据表 (把源数据表的记录添加到目标数据表) 数据记录统计函数： AVG(字段名) 得出一个表格栏平均值 COUNT(*|字段名) 对数据行数的统计或对某一栏有值的数据行数统计 MAX(字段名) 取得一个表格栏最大的值 MIN(字段名) 取得一个表格栏最小的值 SUM(字段名) 把数据栏的值相加 引用以上函数的方法： sql=select sum(字段名) a

22、s 别名 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.mo

23、vefirst 将记录指针移到数据表第一行 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 删除当前记录，但记录指针不会

24、向下移动 rs.addnew 添加记录到数据表末端 rs.update 更新数据表记录 判断所填数据是数字型 if not isNumeric(request(字段名称) then response.write 不是数字 else response.write 数字 end if页面执行时间： . . 内容 . . 结尾 % Dim Endtime Endtime = Timer() response.write 页面执行时间：&FormatNumber(Endtime-Startime)*1000,5)& 毫秒 %定义打开网页时起始窗口的大小 window.resizeTo(500,300)

25、 随机数: 查询数据时得到的记录关键字用红色显示：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: docum

26、ent.referrer清除缓存，重新加载页面检索并删除数据库里的重复记录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 Respons

27、e.Write alert(该文件不存在); 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) 替换

28、为一个空格 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=/(d1,2|1dd|20-4d|250-5).(d1,2|1dd|20-4d|250-5).(d1,2|1dd|20-4d|250-5).(d1,2|1dd|20-4d|250-5)$/;var reg = sIPAdd

29、ress.match(exp);var ErrMsg=你输入的是一个非法的IP地址段！nIP段为：:xxx.xxx.xxx.xxx（xxx为0-255)！ var Msg=你输入的是一个合法的IP地址段！ if(reg=null)alert(ErrMsg);elsealert(reg);关闭子窗口时刷新父窗口 在子窗口window.opener.location=父窗口页面window.close() 文本框输入限制： function regInput(obj, reg, inputStr) var docSel = document.selection.createRange() if (

30、docSel.parentElement().tagName != INPUT) return false oSel = docSel.duplicate() oSel.text = var srcRange = obj.createTextRange() oSel.setEndPoint(StartToStart, srcRange) var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length) return reg.test(str) 小写英文： 大写英文： 任意数字： 限2位小数： 如: 123.12 日

31、期： input onkeypress = return regInput(this, /d1,4(-/(d1,2(-/(d1,2)?)?)?)?$/, String.fromCharCode(event.keyCode) onpaste = return regInput(this, /d1,4(-/(d1,2(-/(d1,2)?)?)?)?$/, window.clipboardData.getData(Text) ondrop = return regInput(this, /d1,4(-/(d1,2(-/(d1,2)?)?)?)?$/, event.dataTransfer.getData(Text) s