WEB编程开发常用的代码

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 alert 禁止鼠标右键 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 1000 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 i this length i this i 1 date arguments var d new date 星期日 星期一 星期二 星期三 星期四 星期五 星期六 document write today getYear 年 today getMonth 1 月 today getDate 日 d today getDay 1 不同时间段显示不同问候语 var text day new Date time day getHours if time 0 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 Windowswidth 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 image 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 moveBy j 0 self moveBy 0 j self moveBy j 0 表格的半透明显示效果 在之间加上如下代码 alpha filter Alpha Opacity 50 50 表示 50 的透明度 在之间加上如下代码 很酷吧 锁定状态栏文字防止显示地址 禁止图片下载 在这里的最后加入 oncontextmenu return false ondragstart return false onselectstart return false scroll auto 禁止缓存 加在 HEAD 里 使用包含页面 加密所包含页面地址 使用工具 htmlguardian5 3 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 Internet Files 里把所有的东西都删掉 然后 刷新你想要下载 flash 的网页 即可得到你所要的 flash 使用外部软件 推荐使用 Flash Catcher 安装后只需在你所要下载的 flash 上右键 save 即 可 让 IFRAME 框架内的文档的背景透明 iframe src about allowtransparency 进入页面后立即自动刷新 打开窗口即最大化 能隐藏 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 它可以让背景不滚动 删除确认 隐藏状态栏中的链接地址 kstatus function kstatus 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 alpha opacity 50 网页屏保 function screensave test value if test value 5 test style display none document all 4 bgColor black function screenopen test value 0 test style display document all 4 bgColor 5 秒屏保 让标题动态 var tx new Array 网页制作学习园地 欢迎您 欢迎大家光临网页制作学习园地网站 大量供应网页制作教材 资料 源代码 网页制作软件 相关插件光盘 最可怕的敌人 就是没有坚强的信念 应该让别人的生活因为有了你的生存而更加美好 var txcount 5 var i 1 var wo 0 var ud 1 function animatetitle window document title tx wo substr 0 i if ud 0 i if ud 1 i if i 1 ud 1 i 0 wo wo wo txcount if i tx wo length 10 ud 0 i tx wo length if window document title length 隐去浏览器中当鼠标移到图片上跳出的工具栏 或者 在 form 中只有 input 输入框的情况下 在这个 input 输入框中按 enter 进行提交表单 删除确认 或 删除 或 删除 返回页面顶部 javascript window scroll 0 0 离开页面时弹出警告 function checkclose event returnValue 测试啊 XXX 可以改为任何文本信息也可以是空 aa 12 58 固定链接 评论 0 引用通告 0 记录它 固定链接 关闭 WEB 编程开发常用的代码 1 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 Data Source 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 页面执行时间 内容 结尾 Dim Endtime Endtime Timer 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 关闭子窗口时刷新父窗口 在子窗口 window opener location 父窗口页面 window close 文本框输入限制 function regInput obj reg inputStr var docSel document selection createRange if 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 日 期 如 2002 9 29 任意中文 部分英文 范围 a b c d e 部分中文 function checkChinese oldLength obj var oTR window document selection createRange var reg 一二三四五六七八九十 g oTR moveStart character 1 obj value length oldLength oTR text oTR text replace reg 范围 一二三四五六七八九十 Ctrl A 全选 Ctrl C 复制 不能点右键 不用 CTRL A 不能复制作 显示状态拦固定文字 放在 body 前 用键盘打开网页 document onkeydown gopage var add Admin AddArticle asp var logon Admin Logon asp function gopage if event keyCode 13 location add if event keyCode 38 location logon 根据内容自动调整 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 代替原来的 标记 如何避免别人把你的网页放在框架中 页面定时刷新 页面定时转向新的地址 关闭窗口 这个是不会弹出提示直接关的 把如下代码加入区域中 function shutwin closes Click return 关闭本窗口 有时候好不容易写出来的程序代码被别人抄去 心里一定不好受 这还是小事 但如果在 我们的源代码中有一些不希望让别人知道的内容 比如密码 Action 的指向等 这些一旦 被人利用 那后果有时是不堪设想的 而网页加密就是我们现在需要解决的问题 下面就 我在网页制作中的一些经验向大家介绍一些简单的防范方法 禁止右键 看到这里大家一定会想 这招有很多人介绍过了 而且破解的方法也有很多 但我这里要 说的是另一种方法 而且我试了很多方法都没有能破解 具体如下 function stop alert 试试能破解吗 return false document oncontextmenu stop 你可以按右键 shift F10 和右 ctrl 左边的那个键试试 看能不能解 大家试试 看能不能破解 你可以将 alert 试试能破解吗 这句去掉 这样当按右键时 就什么反应也没有了 就好像没有右键功能一样 禁示查看源代码 我们已经禁了右键 但从 查看 菜单下的 源文件 中同样可以看到源代码 下面我们就来 解决这个问题 其实这只要使用一个含有标记的网页便可以达到目的 这样当有人使用 查看 下的 源文件 的时候 看到的将是上面的那段代码 而你真正的文 件又躲过一劫 禁示另存为 通过上面的两步好像你的源代码已经安全了 但别忘了 别人还可以将你的页面保存下来 再慢慢分析 不过别担心 下面我们来解决这个问题 在你要保密的网页中加入以下代码 彻底屏蔽右键方法 双击页面后自动滚屏 单击后停止 var currentpos timer function initialize timer setInterval scrollwindow 16 function sc clearInterval timer function scrollwindow currentpos document body scrollTop window scroll 0 currentpos if currentpos document body scrollTop sc document onmousedown sc document ondblclick initialize 设定脚本出错能继续运行 function KillError return false window onerror KillError 将彻底屏蔽鼠标右键 oncontextmenu window event returnvalue false 可用于 Table no 取消选取 防止复制 不准粘贴 onpaste return false 防止复制 oncopy return false oncut return false IE 地址栏前换成自己的图标 可以在收藏夹中显示出你的图标 关闭输入法 永远都会带着框架 防止被人 frame 怎样通过 asp 的手段来检查来访者是否用了代理 if Request ServerVariables HTTP X FORWARDED FOR then response write 您通过了代理服务器 var l e offsetLeft while e e offsetParent t e offsetTop l e offsetLeft alert top t nleft l VBScript function getIE dim t l a b set a document all img1 t document all img1 offsetTop l document all img1 offsetLeft while a tagName BODY set a a offsetParent t t a offsetTop l l a offsetLeft wend msgbox top var r e createTextRange r moveStart character e value length r collapse true r select 判断上一页的来源 asp request servervariables HTTP REFERER javascript document referrer 12 55 固定链接 评论 0 引用通告 0 记录它 固定链接 关闭 ASP 编程中 20 个非常有用的例子 1 如何用 Asp 判断你的网站的虚拟物理路径 答 使用 Mappath 方法 The Physical path to this virtual website is 2 我如何知道使用者所用的浏览器 答 使用 the Request object 方法 strBrowser Request ServerVariables HTTP USER AGENT If Instr strBrowser MSIE 0 Then Response redirect ForMSIEOnly htm Else Response redirect ForAll htm End If 3 如何计算每天的平均反复访问人数 答 解决方法 startdate DateDiff d Now 01 01 1990 if strdate 显示结果 that is it this page have been viewed since November 10 1998 4 如何显示随机图象 显示 img src 5 如何回到先前的页面 答 a href preivous page 或用图片如 img src arrowback gif alt 6 如何确定对方的 IP 地址 答 7 如何链结到一副图片上 答 8 强迫输入密码对话框 答 把这句话放载页面的开头 9 如何传递变量从一页到另一页 答 用 HIDDEN 类型来传递变量 input namee type HIDDEN value 10 为何我在 asp 程序内使用 msgbox 程序出错说没有权限 答 由于 asp 是服务器运行的 如果可以在服务器显示一个对话框 那么你只好等有人按 了确定之后 你的程序才能继续执行 而一般服务器不会有人守着 所以微软不得不禁止 这个函数 并胡乱告诉你 呵呵 没有权限 但是 ASP 和客户端脚本结合倒可以显示一 个对话框 as follows alert 11 有没有办法保护自己的源代码 不给人看到 答 可以去下载一个微软的 Windows s cript Encoder 它可以对 asp 的脚本和客户端 javas cript vbs cript 脚本进行加密 不过客户端加密后 只有 ie5 才能执行 服务器端脚本加 密后 只有服务器上安装有 s cript engine 5 装一个 ie5 就有了 才能执行 12 怎样才能将 query string 从一个 asp 文件传送到另一个 答 前者文件加入下句 Response Redirect second asp Request ServerVariables QUERY STRING 13 global asa 文件总是不起作用 答 只有 web 目录设置为 web application global asa 才有效 并且一个 web application 的根 目录下 global asa 才有效 IIS4 可以使用 Internet Service Manager 设置 application setting 怎 样才能使得 htm 文件如同 asp 文件一样可以执行脚本代码 14 怎样才能使得 htm 文件如同 asp 文件一样可以执行脚本代码 答 Internet Sevices Manager 选择 default web site 右鼠键 菜单属性 主目录 应 用程序设置 Application Setting 点击按钮 配置 app mapping 点击按钮 Add executable browse 选择 WINNT SYSTEM32 INETSRV ASP DLL EXTENSION 输入 htm method exclusions 输入 PUT DELETE 全部确定即可 但是值得注意的是这样对 htm 也要 由 asp dll 处理 效率将降低 15 如何注册组件 答 有两种方法 第一种方法 手工注册 DLL 这种方法从 IIs 3 0 一直使用到 IIs 4 0 和其它的 Web Server 它需要你在命令行方式下来执行 进入到包含有 DLL 的目录 并输入 regsvr32 component name dll 例如 c temp regsvr32 AspEmail dll 它会把 dll 的特定信息注册入服务 器中的注册表中 然后这个组件就可以在服务器上使用了 但是这个方法有一个缺陷 当 使用这种方法注册完毕组件后 该组件必须要相应的设置 NT 的匿名帐号有权限执行这个 dll 特别是一些组件需要读取注册表 所以 这个注册组件的方法仅仅是使用在服务器上 没有 MTS 的情况下 要取消注册这个 dll 使用 regsvr32 u aspobject dll example c temp regsvr32 u aneiodbc dll 第二种方法 使用 MTS Microsoft Transaction Server MTS 是 IIS 4 新增特色 但是它提供 了巨大的改进 MTS 允许你指定只有有特权的用户才能够访问组件 大大提高了网站服务 器上的安全性设置 在 MTS 上注册组件的步骤如下 1 打开 IIS 管理控制台 2 展开 transaction server 右键单击 pkgs installed 然后选择 new package 3 单击 create an empty package 4 给该包命名 5 指定 administrator 帐号或则使用 interactive 如果服务器经常是使用 administrator 登陆 的话 6 现在使用右键单击你刚建立的那个包下面展开后的 components 选择 new then component 7 选择 install new component 8 找到你的 dll 文件然后选择 next 到完成 要删除这个对象 只要选择它的图标 然后选择 delete 附注 特别要注意第二种方法 它是用来调试自己编写组件的最好方法 而不必每次都需 要重新启动机器了 16 ASP 与 Access 数据库连接 17 ASP 与 SQL 数据库连接 建立记录集对象 set rs server createobject adodb recordset rs open SQL 语句 conn 3 2 18 SQL 常用命令使用方法 1 数据记录筛选 sql select from 数据表 where 字段名 字段值 order by 字段名 desc sql select from 数据表 where 字段名 like 字段值 order by 字段名 desc sql select top 10 from 数据表 where 字段名 order by 字段名 desc sql select from 数据表 where 字段名 in 值 1 值 2 值 3 sql select from 数据表 where 字段名 between 值 1 and 值 2 2 更新数据记录 sql update 数据表 set 字段名 字段值 where 条件表达式 sql update 数据表 set 字段 1 值 1 字段 2 值 2 字段 n 值 n where 条件表达式 3 删除数据记录 sql delete from 数据表 where 条件表达式 sql delete from 数据表 将数据表所有记录删除 4 添加数据记录 sql insert into 数据表 字段 1 字段 2 字段 3 valuess 值 1 值 2 值 3 sql insert into 目标数据表 select from 源数据表 把源数据表的记录添加到目标数据表 5 数据记录统计函数 AVG 字段名 得出一个表格栏平均值 COUNT 字段名 对数据行数的统计或对某一栏有值的数据行数统计 MAX 字段名 取得一个表格栏最大的值 MIN 字段名 取得一个表格栏最小的值 SUM 字段名 把数据栏的值相加 引用以上函数的方法 sql select sum 字段名 as 别名 from 数据表 where 条件表达式 set rs conn excute sql 用 rs 别名 获取统的计值 其它函数运用同上 5 数据表的建立和删除 CREATE TABLE 数据表名称 字段 1 类型 1 长度 字段 2 类型 2 长度 例 CREATE TABLE tab01 name varchar 50 datetime default now DROP TABLE 数据表名称 永久性删除一个数据表 19 记录集对象的方法 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 更新数据表记录 20 Recordset 对象方法 Open 方法 recordset Open Source ActiveConnection CursorType LockType Options Source Recordset 对象可以通过 Source 属性来连接 Command 对象 Source 参数可以是一个 Command 对象名称 一段 SQL 命令 一个指定的数据表名称或是一个 Stored Procedure 假如省略这个参数 系统则采用 Recordset 对象的 Source 属性 ActiveConnection Recordset 对象可以通过 ActiveConnection 属性来连接 Connection 对象 这里的 ActiveConnection 可以是一个 Connection 对象或是一串包含数据库连接信息 ConnectionString 的字符串参数 CursorType Recordset 对象 Open 方法的 CursorType 参数表示将以什么样的游标类型启动数据 包括 adOpenForwardOnly adOpenKeyset adOpenDynamic 及 adOpenStatic 分述如下 常数 常数值 说明 adOpenForwardOnly 0 缺省值 启