WEB编程开发常用的代码

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("试试能破解吗？");这句去掉，这样当按右键时就什么反应也没有了，就好像没有右键功能一样。
禁示查看源代码
我们已经禁了右键，但从"查看"菜单下的"源文件"中同样可以看到源代码，下面我们就来解决这个问题：
其实这只要使用一个含有标记的网页便可以达到目的。



这样当有人使用"查看"下的"源文件"的时候，看到的将是上面的那段代码，而你真正的文件又躲过一劫。
禁示另存为
通过上面的两步好像你的源代码已经安全了，但别忘了，别人还可以将你的页面保存下来，再慢慢分析。不过别担心，下面我们来解决这个问题。
在你要保密的网页中加入以下代码：

彻底屏蔽右键方法。

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

设定脚本出错能继续运行

将彻底屏蔽鼠标右键
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 "您通过了代理服务器，" & "真实的IP为 "&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if
%>
取得控件的绝对位置
//javascript

//VBScript

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


判断上一页的来源
asp:
request.servervariables("HTTP_REFERER")
javascript:
document.referrer
最小化、最大化、关闭窗口






本例适用于IE
记录并显示网页的最后修改时间

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