web开发中经常使用到的代码（csdn中下载的资源）

WEB编程开发常用的代码- -

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

<input type=button value=最小化 οnclick=hh1.Click()>
<input type=button value=最大化 οnclick=hh2.Click()>
<input type=button value=关闭 οnclick=hh3.Click()>
本例适用于IE

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

2秒后关闭当前页

2秒后载入指定网页

添加到收藏夹

<Script Language="JavaScript">
function bookmarkit()
{
　window.external.addFavorite('http://你的网址','你的网站名称')
}
　if (document.all)document.write('<a href="#" onClick="bookmarkit()">加入收藏夹</a>')
</Script>

禁止鼠标右键的动作

<Script Language = "JavaScript">
function click() { if (event.button==2||event.button==3)
{
　alert('禁止鼠标右键');
}
document.οnmοusedοwn=click // -->
</Script>

或

设置该页为首页

节日倒计时

<Script Language="JavaScript">
　　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 +"天")
</Script>

单击按钮打印出当前页

<Script Language="JavaScript">
　　if (window.print) {
　　document.write('<form>'
　　+ '<input type=button name=print value="打印本页" '
　　+ 'onClick="javascript:window.print()"></form>');
　　}
</Script>

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

显示系统当前日期

不同时间段显示不同问候语 <Script Language="JavaScript">
var text=""; day = new Date( ); time = day.getHours( );
　　if (( time>=0) && (time < 7 ))
　　　　text="夜猫子，要注意身体哦！ "
　　if (( time >= 7 ) && (time < 12))
　　　　text="今天的阳光真灿烂啊，你那个朋友呢？"
　　if (( time >= 12) && (time < 14))
　　　　text="午休时间。您要保持睡眠哦！"
　　if (( time >=14) && (time < 18))
　　　　text="祝您下午工作愉快！ "
　　if ((time >= 18) && (time <= 22))
　　　　text="您又来了，可别和MM聊太久哦！"
　　if ((time >= 22) && (time < 24))
　　　　text="您应该休息了！"
　　document.write(text)
</Script>
水中倒影效果 <img id="reflect" src="你自己的图片文件名" width="175" height="59">
　　<script language="JavaScript">
　　function f1()
　　{
　　　　setInterval("mdiv.filters.wave.phase+=10",100);
　　}
　　if (document.all)
　　{
　　　　document.write('<img id=mdiv src="'+document.all.reflect.src+'"
　　　　style="filter:wave(strength=3,freq=3,phase=0,lightstrength=30) blur() flipv()">')
　　　　window.οnlοad=f1
　　}
</script>
慢慢变大的窗口 <Script Language="JavaScript">
　　
</script>
<a href="javascript:openwindow('http://www.ccjol.com')">进入</a>

鼠标指向时弹出信息框
在<body></body>之间加上如下代码： <a href οnmοuseοver="alert('弹出信息！')">显示的链接文字</a>

随机变换背景图象（一个可以刷新心情的特效）
在<head></head>之间加上如下代码：
<Script Language="JavaScript">
　　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("<BODY BACKGROUND="+image[number]+">");
</Script>
鼠标一碰就给颜色看的链接在<body></body>之间加上如下代码：
<p onMouseMove="anniu()">你敢碰我，我就给点颜色你看！</p>
<Script Language = "VBScript">
　　sub anniu
　　document.fgColor=int(256*256*256*rnd)
　　end sub
</Script>
从天而降并有幻影效果的窗口

　　<head>
　　<Script language="JavaScript">
　　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);
　　}
　　}
　　}
　　</Scrip>
　　<body bgColor=#ffffff οnlοad=move(280)>
　　</body>
　　</head>
表格的半透明显示效果在<head></head>之间加上如下代码：
<style>
.alpha{filter: Alpha(Opacity=50)} //50表示50%的透明度
</style>

在<body></body>之间加上如下代码：
<table border="1" width="100" height="62" class="alpha" bgcolor="#F2A664" >
　<tr>
　　<td width="100%" height="62">
　　<div align="center">很酷吧!</div>
　　</td>
　</tr>
</table>

锁定状态栏文字防止显示地址
<body οnmοuseοver="self.status='文字';return true">

禁止图片下载
在<body......>这里的最后加入：
οncοntextmenu="return false" οndragstart="return false" onselectstart="return false" scroll="auto"
禁止缓存
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
加在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:<body style='background:transparent'>" allowtransparency></iframe>

进入页面后立即自动刷新？
<meta http-equiv="refresh" content="120;url=http://www.wodutom.com/cn083">
http://www.wodutom.com/cn083,这是你自己的网址。

打开窗口即最大化
<script language="JavaScript">

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

加入背景音乐

<bgsound src="mid/windblue[1].mid" loop="-1"> 只适用于IE

对Netscape ,IE 都适用

嵌入网页

跳转

滚动

细线分隔线

过度方式

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

<body style="overflow-y:hidden"> 去掉x轴
<body style="overflow-x:hidden"> 去掉y轴
<body scroll="no">不显

定义本网页关键字，可以在<Head></Head>中加入如下代码： <meta name="Keywords" content="china,enterprise,business,net"> 　　 Content 中所包含的就是关键字,你可以自行设置。　　
这里有个技巧,你可以重复某一个单词,这样可以提高自己网站的排行位置,如：

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 href="javascript:window.external.addFavorite('http://链接','说明');">添加到收藏夹</a>

设为首页：

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

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

颜色不要超过 16 色。

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

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

删除确认：

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

<input type="text" value="123456" style="FONT-size:38px;color:red;font-family:arial black">通过层来实现渐淡淡出
<script language="JavaScript1.2">
function makevisible(cur,which){
if (which==0)
cur.filters.alpha.opacity=100
else
cur.filters.alpha.opacity=50
}
</script>
<div style="width:200px;height:200px;filter:alpha(opacity=50);border:1px solid #000;background:#efefef" onMouseOver="makevisible(this,0)" onMouseOut="makevisible(this,1)">
ywicc.com
</div>

网页屏保
<script language="JavaScript">
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='';
}
</script>
<body οnkeydοwn="screenopen()" οnmοusemοve="screenopen()" οnlοad="setInterval('screensave()',1000)">
5 秒屏保<input id="test">

让标题动态
<script>
<!--
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 < 20 ) window.document.title=window.document.title+"-";
// if (window.document.title.length == 20 ) window.document.title=window.document.title+"]";
// if (window.document.title.length == 21 ) setTimeout("window.document.title='Animierte Seitentitel '; ",1000);

parent.window.document.title=tx[wo].substr(0, i)+"_";
setTimeout("animatetitle()",100);
}
animatetitle();
// --></script><script language="JavaScript">

</script>

隐去浏览器中当鼠标移到图片上跳出的工具栏
<img galleryimg="no">
或者
<head>
<meta http-equiv="imagetoolbar" content="no">
</head>

在form中只有input输入框的情况下...在这个input输入框中按enter进行提交表单
<form οnsubmit="if(event.srcElement.name=='bb'){this.submit()}else{return false}">
<input name=a size=20>
<input type=button name=bb οnclick="submit();">
</form>
删除确认
<input type="button" value="删除" οnclick="{if(confirm('确认删除么？')){location.href='aa.asp';}return false;}">或
<a href="aa.asp" οnclick="{if(confirm('确定删除吗?')){return true;}return false;}">删除</a> 或
<a href="del.asp" οnclick="return confirm('该删除操作将无法恢复！是否继续？')">删除</a>
返回页面顶部：
javascript:window.scroll(0,0)

离开页面时弹出警告：

<SCRIPT>
function checkclose(){
event.returnValue = "测试啊" //XXX可以改为任何文本信息也可以是空
}
</SCRIPT>

12:58 | 固定链接 | 评论 (0) | 引用通告 (0) | 记录它

固定链接关闭

http://spaces.msn.com/members/leoshadow/Blog/cns!1pFRxBAnVKeR6dGl5PnqbCgg!121.entry

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="&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 "页面执行时间：<font color=red>"&FormatNumber((Endtime-Startime)*1000,5)&"</font> 毫秒"
%>定义打开网页时起始窗口的大小
<script for="window" event="onload">
window.resizeTo(500,300)
</script>

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

查询数据时得到的记录关键字用红色显示：
replace(RS("字段X"),searchname,"<font color=#FF0000>" & searchname & "</font>")

通过asp的手段来检查来访者是否用了代理
<% if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then
response.write "<font color=#FF0000>您通过了代理服务器，"& _
"真实的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 "<script>alert(’该文件不存在’);</script>"
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是否合法的函数

关闭子窗口时刷新父窗口在子窗口
<script language="javascript">
window.opener.location="父窗口页面"
window.close()
</script>

文本框输入限制：
<script> 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) } </script> 小写英文：<xmp style= "display:inline"> </xmp> <input onkeypress = "return regInput(this, /^[a-z]*$/, String.fromCharCode(event.keyCode))" onpaste = "return regInput(this, /^[a-z]*$/, window.clipboardData.getData('Text'))" ondrop = "return regInput(this, /^[a-z]*$/, event.dataTransfer.getData('Text'))" style="ime-mode:Disabled" ><br> 大写英文：<xmp style= "display:inline"> </xmp> <input onkeypress = "return regInput(this, /^[A-Z]*$/, String.fromCharCode(event.keyCode))" onpaste = "return regInput(this, /^[A-Z]*$/, window.clipboardData.getData('Text'))" ondrop = "return regInput(this, /^[A-Z]*$/, event.dataTransfer.getData('Text'))" style="ime-mode:Disabled"> <br> 任意数字：<xmp style="display:inline"> </xmp> <input onkeypress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))" onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))" ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))" style="ime-mode:Disabled" ><br> 限2位小数：<xmp style="display:inline"> </xmp> <input onkeypress = "return regInput(this, /^/d*/.?/d{0,2}$/, String.fromCharCode(event.keyCode))" 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<br> 日　期：<xmp style="display:inline"> </xmp> <input onkeypress = "return regInput(this, /^/d{1,4}([-//](/d{1,2}([-//](/d{1,2})?)?)?)?$/, String.fromCharCode(event.keyCode))" 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<br> 任意中文：<xmp style="display:inline"> </xmp> <input onkeypress = "return regInput(this, /^$/, String.fromCharCode(event.keyCode))" onpaste = "return regInput(this, /^[/u4E00-/u9FA5]*$/, window.clipboardData.getData('Text'))" ondrop = "return regInput(this, /^[/u4E00-/u9FA5]*$/, event.dataTransfer.getData('Text'))" ><br> 部分英文：<xmp style="display:inline"> </xmp> <input onkeypress = "return regInput(this, /^[a-e]*$/, String.fromCharCode(event.keyCode))" 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<br> 部分中文：<xmp style="display:inline"> </xmp> <script language=javascript> 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, "") } </script> <input οnkeypress="return false" οnkeydοwn="setTimeout('checkChinese('+this.value.length+','+this.uniqueID+')', 1)" onpaste = "return regInput(this, /^[一二三四五六七八九十]*$/, window.clipboardData.getData('Text'))" ondrop = "return regInput(this, /^[一二三四五六七八九十]*$/, event.dataTransfer.getData('Text'))" > 范围: 一二三四五六七八九十<br>
[Ctrl+A 全选 Ctrl+C 复制]

不能点右键，不用CTRL+A，不能复制作!
<body οncοntextmenu="window.event.returnValue=false"
οnkeypress="window.event.returnValue=false"
οnkeydοwn="window.event.returnValue=false"
οnkeyup="window.event.returnValue=false"
οndragstart="window.event.returnValue=false"
onselectstart="event.returnValue=false">
</body>

显示状态拦固定文字：
放在body前
<base οnmοuseοver="window.status='这里是Goaler的Blog系统，欢迎访问';return true">

用键盘打开网页 <script language=javascript>
document.οnkeydοwn=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
}
</script>

根据内容自动调整iframe高度

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

var bLoadComplete = false;
window.onload = f_iframeResize;

禁止页面正文内容被选取

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

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

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

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

页面定时刷新

页面定时转向新的地址

关闭窗口，这个是不会弹出提示直接关的：
把如下代码加入<body>区域中

<OBJECT id=closes type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<param name="Command" value="Close">
</object>
<script language="JavaScript">function shutwin(){closes.Click();return;}</script>
<a href="javascript:shutwin();">关闭本窗口</a>

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

<html>
<head>
<script>
function stop(){
alert("试试能破解吗？");
return false;
}
document.οncοntextmenu=stop;
</script>
<boyd>你可以按右键、shift+F10和右ctrl左边的那个键试试！看能不能解。^_^</body>

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

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

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

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

彻底屏蔽右键方法。

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

<SCRIPT language=JavaScript>
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.οnmοusedοwn=sc
document.οndblclick=initialize
</script>

设定脚本出错能继续运行

将彻底屏蔽鼠标右键

οncοntextmenu="window.event.returnvalue=false"

可用于Table

取消选取、防止复制

不准粘贴

οnpaste="return false"

防止复制

οncοpy="return false;" oncut="return false;"

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

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

关闭输入法

永远都会带着框架

防止被人frame

怎样通过asp的手段来检查来访者是否用了代理

<% if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then
response.write "<font color=#FF0000>您通过了代理服务器，" & "真实的IP为 "&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if
%>

取得控件的绝对位置

//javascript
<script language="javascript">
function getIE(e){
var t=e.offsetTop;
var l=e.offsetLeft;
while(e=e.offsetParent){
t+=e.offsetTop;
l+=e.offsetLeft;
}
alert("top="+t+"nleft="+l);
}
</script>
//VBScript
<script language="VBScript">

</script>

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

判断上一页的来源

asp:
request.servervariables("HTTP_REFERER")
javascript:
document.referrer

12:55 | 固定链接 | 评论 (0) | 引用通告 (0) | 记录它

固定链接关闭

http://spaces.msn.com/members/leoshadow/Blog/cns!1pFRxBAnVKeR6dGl5PnqbCgg!120.entry

ASP 编程中 20 个非常有用的例子

1.如何用Asp判断你的网站的虚拟物理路径
答：使用Mappath方法
< p align="center" >< font size="4" face="Arial" >< b >
The Physical path to this virtual website is:
< /b >< /font >
< font color="#FF0000" size="6" face="Arial" >
< %= Server.MapPath("/")% >
< /font >< /p >
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< 0 then startdate=startdate*-1
avgvpd=Int((usercnt)/startdate) % >
显示结果
< % response.write(avgvpd) % >
that is it.this page have been viewed since November 10,1998

4.如何显示随机图象
< % dim p,ppic,dpic
ppic=12
randomize
p=Int((ppic*rnd)+1)
dpic="graphix/randompics/"&p&".gif"
% >
显示
< img src="< %=dpic% >" >

5.如何回到先前的页面
答：< a href="< %=request.serverVariables("Http_REFERER")% >" >preivous page< /a >
或用图片如：< img src="arrowback.gif" alt="< %=request.serverVariables("HTTP_REFERER")% >" >

6.如何确定对方的IP地址
答：< %=Request.serverVariables("REMOTE_ADDR)% >

7.如何链结到一副图片上
答：< % @Languages=vbs cript % >
< % response.expires=0
strimagename="graphix/errors/erroriamge.gif"
response.redirect(strimagename)
% >

8.强迫输入密码对话框
答：把这句话放载页面的开头
< % response.status="401 not Authorized"
response.end
% >

9.如何传递变量从一页到另一页
答：用 HIDDEN 类型来传递变量
< % form method="post" action="mynextpage.asp" >
< % for each item in request.form % >
< input namee="< %=item% >" type="HIDDEN"
value="< %=server.HTMLEncode(Request.form(item)) % >" >
< % next % >
< /form >

10.为何我在 asp 程序内使用 msgbox，程序出错说没有权限
答：由于 asp 是服务器运行的，如果可以在服务器显示一个对话框，那么你只好等有人按了确定之后，你的程序才能继续执行，而一般服务器不会有人守着，所以微软不得不禁止这个函数，并胡乱告诉你 (:) 呵呵) 没有权限。但是ASP和客户端脚本结合倒可以显示一个对话框，as follows:
< % yourVar="测试对话框"% >
< % s cript language=javas cript >
alert("< %=yourvar% >")
< /s cript >

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数据库连接：

<%@ language=VBs cript%>
<%
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

17. ASP与SQL数据库连接：

<%@ language=VBs cript%>
<%
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

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 缺省值，启动一个只能向前移动的游标(Forward Only)。
adOpenKeyset 1 启动一个Keyset类型的游标。
adOpenDynamic 2 启动一个Dynamic类型的游标。
adOpenStatic 3 启动一个Static类型的游标。
-------------------------------------------------------------
以上几个游标类型将直接影响到Recordset对象所有的属性和方法，以下列表说明他们之间的区别。

-------------------------------------------------------------
Recordset属性 adOpenForwardOnly adOpenKeyset adOpenDynamic adOpenStatic
-------------------------------------------------------------
AbsolutePage 不支持不支持可读写可读写
AbsolutePosition 不支持不支持可读写可读写
ActiveConnection 可读写可读写可读写可读写
BOF 只读只读只读只读
Bookmark 不支持不支持可读写可读写
CacheSize 可读写可读写可读写可读写
CursorLocation 可读写可读写可读写可读写
CursorType 可读写可读写可读写可读写
EditMode 只读只读只读只读
EOF 只读只读只读只读
Filter 可读写可读写可读写可读写
LockType 可读写可读写可读写可读写
MarshalOptions 可读写可读写可读写可读写
MaxRecords 可读写可读写可读写可读写
PageCount 不支持不支持只读只读
PageSize 可读写可读写可读写可读写
RecordCount 不支持不支持只读只读
Source 可读写可读写可读写可读写
State 只读只读只读只读
Status 只读只读只读只读
AddNew 支持支持支持支持
CancelBatch 支持支持支持支持
CancelUpdate 支持支持支持支持
Clone 不支持不支持
Close 支持支持支持支持
Delete 支持支持支持支持
GetRows 支持支持支持支持
Move 不支持支持支持支持
MoveFirst 支持支持支持支持
MoveLast 不支持支持支持支持
MoveNext 支持支持支持支持
MovePrevious 不支持支持支持支持
NextRecordset 支持支持支持支持
Open 支持支持支持支持
Requery 支持支持支持支持
Resync 不支持不支持支持支持
Supports 支持支持支持支持
Update 支持支持支持支持
UpdateBatch 支持支持支持支持
--------------------------------------------------------------
其中NextRecordset方法并不适用于Microsoft Access数据库。

LockType
Recordset对象Open方法的LockType参数表示要采用的Lock类型，如果忽略这个参数，那么系统会以Recordset对象的LockType属性为预设值。LockType参数包含adLockReadOnly、adLockPrssimistic、adLockOptimistic及adLockBatchOptimistic等，分述如下：

-------------------------------------------------------------
常数常数值说明
--------------------------------------------------------------
adLockReadOnly 1 缺省值，Recordset对象以只读方式启动，无法运行AddNew、Update及Delete等方法
adLockPrssimistic 2 当数据源正在更新时，系统会暂时锁住其他用户的动作，以保持数据一致性。
adLockOptimistic 3 当数据源正在更新时，系统并不会锁住其他用户的动作，其他用户可以对数据进行增、删、改的操作。
adLockBatchOptimistic 4 当数据源正在更新时，其他用户必须将CursorLocation属性改为adUdeClientBatch才能对数据进行增、
删、改的操作。

- 作者： ▄︻┳═一访问统计：1　2005年09月8日, 星期四 19:56 加入博采
Trackback
你可以使用这个链接引用该篇文章 http://publishblog.blogchina.com/blog/tb.b?diaryID=2854978

web开发中经常使用到的代码（csdn中下载的资源）相关推荐

Python web 开发：部署一个3行代码的wsgi app
通过前面的两篇: Python Web开发:从 wsgi 开始 Python Web开发:开发wsgi中间件我们已经知道我们平时开发的 django.flask 等 python web 项目本质上 ...
java web购物车代码_java web开发之购物车功能实现示例代码
之前没有接触过购物车的东东,也不知道购物车应该怎么做,所以在查询了很多资料,总结一下购物车的功能实现. 查询的资料,找到三种方法: 1.用cookie实现购物车: 2.用session实现购物车: 3 ...
html中如何屏蔽一段代码,html中如何使用python屏蔽一些基本功能(示例代码)
进行数据解析的理由不计其数,相关的工具和技巧也同样如此.但是,当您需要用这些数据做一些新的事情时,即使有"合适的"工具可能也是不够的.这一担心对于异类数据源的集成同样存在.用来做这 ...
Golang Web开发一键生成各层级模板代码
文章目录 go_project_quickstart 快速开始要求安装项目实现架构设计代码逻辑统一的调用逻辑代码复用每次写web项目,模板都是统一的,每次都要写大量冗余的代码会很烦,在 ...
18常用web开发浮动层、提示层代码下载
1.jQuery顶部固定层页面滚动淡出淡进菜单显示查看演示>> 2.jQuery鼠标滚动条到页面底部浮动层滑动弹出信息查看演示>> 3.网页向导Jquery插件wlGuid ...
移动web开发 rem适配布局 +苏宁首页案例+HBuilder下载less插件
rem基础文字大小随着页面自适应页面元素宽高等比例随着页面自适应 rem单位 rem(root em )是一个相对单位,rem的基准是html元素的字体大小. em是父元素字体大小. rem的优点 ...
Web开发人员应当知道的15个开源项目
如今,构建网站和开发Web应用程序已经不仅要求开发人员是一名优秀的程序员,更需要聪明的程序员.这也就是说,在可能的情况下,重复使用已有的代码和应用程序,而不是自己重头开始. 开源由来已久,并且很多网站 ...
基于WebMatrix的轻量级Web开发系列课程
基于WebMatrix的轻量级Web开发系列课程(10): WebMatrix与ASP.NET MVC WebMatrix除了提供了默认的编程模型以外,也对ASP.NET MVC做出了很好的支持,但是 ...
面向 Java 开发人员的区块链链代码
面向 Java 开发人员的链代码简介点击查看视频演示查看抄本您或许听说过区块链,但可能不确定它对 Java™ 开发人员有何用.本教程将帮助大家解惑.我将分步展示如何使用 Hyperledger F ...
web开发浏览器缓存问题之Google浏览器缓存清理
google浏览器设置不缓存的方法摘要:当我们在做web开发特别是在调试js代码时,会经常使用的Google浏览器,这个时候就会碰到我们写的js代码不能及时生效的问题.这是因为我们所用的Google ...

web开发中经常使用到的代码（csdn中下载的资源）

web开发中经常使用到的代码（csdn中下载的资源）相关推荐

最新文章

热门文章