ASP实用代码(2)
作者：jz123 来源：www.jz123.cn 发布时间：2006-11-12 8:13:49 发布人：jz123
16.全屏显示
<form>
<div align="center">
<input type="BUTTON" name="FullScreen" value="全屏显示"
>
</div>
</form>
把它放到<body>区中。
17.设为首页
<script language="javascript">
<!--
function defaul_home(){
this.home.style.behavior='url(#default#homepage)';this.home.setHomePage(http://bbs.055.cn/';
}
var focusok=false;
if (navigator.appName == "Netscape"{
focusok=true;
}
vers=navigator.appVersion;
if (navigator.appName == "Microsoft Internet Explorer"{
pos=vers.lastIndexOf('.');
vers=vers.substring(pos-1,vers.length);
}
proper_version=parseFloat(vers);
if(proper_version>=5){
focusok=true;
}
function launchstock1(htmlurl){
var
stock=window.open(htmlurl,"stock","top=2,left=2,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,
resizable=no,width=700,height=510";
if(focusok){
stock.focus();
}
return true;
}
function launchstock(){
var
stock=window.open("","stock","top=2,left=2,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,
resizable=no,width=700,height=510";
if(focusok){
stock.focus();
}
return true;
}
// -->
</script>
<a href="#" name="home"
title="==E代时光==">设为首页</a>
18.这里是加入收藏夹的代码
<a href="#"
target="_self" title="拂晓雅阁">加入收藏夹</a>
19.flash图片效果
以下代码加入<head>区域
<SCRIPT language="javascript">
<!--
function makevisible(cur,which){
if (which==0)
cur.filters.alpha.opacity=100
else
cur.filters.alpha.opacity=20
}
//-->
</SCRIPT>
以下代码加入<body>区域
<img src="/Article/UploadFiles/20049115458734.gif";;
style="filter:alpha(opacity=20)"
width="63" height="56"> //图片地址请自己改
20.load 进度条
<table cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" width="40%"
id="P"><tr><td>
<table cellspacing="0" cellpadding="0" bgcolor="#0000FF" height="18"
id="Q"><tr><td></td></tr></table></td></tr></table>
</center>
<script language=javascript>
var R = 0; load();
function load() {R = R + 2; Q.style.width = R + "%"; time=
setTimeout("load()",50);
if (R > 100) {clearTimeout(time); P.style.width=0}}
</script>
27 全屏
<script language=javascript>
window.open('index.asp','','fullscreen=1');
</script>
21.背景图片滚动
<body scroll="no" background="images/bg.jpg" link="#00FF00"
alink="#FF0000" vlink="#00FF00" bgcolor="#000080" topmargin="8">
<script language="javascript">
var backgroundOffset = 0;
var bgObject = eval('document.body');
function scrollBG(maxSize) {backgroundOffset = backgroundOffset + 1;
if (backgroundOffset > maxSize) backgroundOffset = 0;
bgObject.style.backgroundPosition = "0 " + backgroundOffset;}
var ScrollTimer = window.setInterval("scrollBG(410)", 20)
</script>
22.网页不会被缓存
HTMl网页
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache,
must-revalidate">
<META HTTP-EQUIV="expires" CONTENT="Wed, 26 Feb 1997 08:21:57 GMT">
或者<META HTTP-EQUIV="expires" CONTENT="0">
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";
23.
<%
'定义数据库连接的一些常量
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;
%>
24.最小化、最大化、关闭窗口
<object id=hh1 classid="clsidDB880A6-D8FF-11CF-9377-00AA003B7A11">
<param name="Command" value="Minimize"></object>
<object id=hh2 classid="clsidDB880A6-D8FF-11CF-9377-00AA003B7A11">
<param name="Command" value="Maximize"></object>
<OBJECT id=hh3 classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<PARAM NAME="Command" value="Close"></OBJECT>
<input type=button value=最小化 onclick=hh1.Click()>
<input type=button value=最大化 onclick=hh2.Click()>
<input type=button value=关闭 onclick=hh3.Click()>
说明：本例适用于IE
25.判断上一页的来源
asp页:
request.servervariables("HTTP_REFERER"
java script:
document.referrer
26.光标是停在文本框文字的最后
<script language="javascript">
function cc()
{
var e = event.srcElement;
var r =e.createTextRange();
r.moveStart('character',e.value.length);
r.collapse(true);
r.select();
}
</script>
<input type=text name=text1 value="123" >
说明：适用于表格数据提交
27.怎样通过asp的手段来检查来访者是否用了代理
<% if Request.ServerVariables("HTTP_X_FORWARDED_FOR"<>"" then
response.write "<f
<form>
<div align="center">
<input type="BUTTON" name="FullScreen" value="全屏显示"
>
</div>
</form>
把它放到<body>区中。
17.设为首页
<script language="javascript">
<!--
function defaul_home(){
this.home.style.behavior='url(#default#homepage)';this.home.setHomePage(http://bbs.055.cn/';
}
var focusok=false;
if (navigator.appName == "Netscape"{
focusok=true;
}
vers=navigator.appVersion;
if (navigator.appName == "Microsoft Internet Explorer"{
pos=vers.lastIndexOf('.');
vers=vers.substring(pos-1,vers.length);
}
proper_version=parseFloat(vers);
if(proper_version>=5){
focusok=true;
}
function launchstock1(htmlurl){
var
stock=window.open(htmlurl,"stock","top=2,left=2,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,
resizable=no,width=700,height=510";
if(focusok){
stock.focus();
}
return true;
}
function launchstock(){
var
stock=window.open("","stock","top=2,left=2,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,
resizable=no,width=700,height=510";
if(focusok){
stock.focus();
}
return true;
}
// -->
</script>
<a href="#" name="home"
title="==E代时光==">设为首页</a>
18.这里是加入收藏夹的代码
<a href="#"
target="_self" title="拂晓雅阁">加入收藏夹</a>
19.flash图片效果
以下代码加入<head>区域
<SCRIPT language="javascript">
<!--
function makevisible(cur,which){
if (which==0)
cur.filters.alpha.opacity=100
else
cur.filters.alpha.opacity=20
}
//-->
</SCRIPT>
以下代码加入<body>区域
<img src="/Article/UploadFiles/20049115458734.gif";;
style="filter:alpha(opacity=20)"
width="63" height="56"> //图片地址请自己改
20.load 进度条
<table cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" width="40%"
id="P"><tr><td>
<table cellspacing="0" cellpadding="0" bgcolor="#0000FF" height="18"
id="Q"><tr><td></td></tr></table></td></tr></table>
</center>
<script language=javascript>
var R = 0; load();
function load() {R = R + 2; Q.style.width = R + "%"; time=
setTimeout("load()",50);
if (R > 100) {clearTimeout(time); P.style.width=0}}
</script>
27 全屏
<script language=javascript>
window.open('index.asp','','fullscreen=1');
</script>
21.背景图片滚动
<body scroll="no" background="images/bg.jpg" link="#00FF00"
alink="#FF0000" vlink="#00FF00" bgcolor="#000080" topmargin="8">
<script language="javascript">
var backgroundOffset = 0;
var bgObject = eval('document.body');
function scrollBG(maxSize) {backgroundOffset = backgroundOffset + 1;
if (backgroundOffset > maxSize) backgroundOffset = 0;
bgObject.style.backgroundPosition = "0 " + backgroundOffset;}
var ScrollTimer = window.setInterval("scrollBG(410)", 20)
</script>
22.网页不会被缓存
HTMl网页
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache,
must-revalidate">
<META HTTP-EQUIV="expires" CONTENT="Wed, 26 Feb 1997 08:21:57 GMT">
或者<META HTTP-EQUIV="expires" CONTENT="0">
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";
23.
<%
'定义数据库连接的一些常量
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;
%>
24.最小化、最大化、关闭窗口
<object id=hh1 classid="clsidDB880A6-D8FF-11CF-9377-00AA003B7A11">
<param name="Command" value="Minimize"></object>
<object id=hh2 classid="clsidDB880A6-D8FF-11CF-9377-00AA003B7A11">
<param name="Command" value="Maximize"></object>
<OBJECT id=hh3 classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<PARAM NAME="Command" value="Close"></OBJECT>
<input type=button value=最小化 onclick=hh1.Click()>
<input type=button value=最大化 onclick=hh2.Click()>
<input type=button value=关闭 onclick=hh3.Click()>
说明：本例适用于IE
25.判断上一页的来源
asp页:
request.servervariables("HTTP_REFERER"
java script:
document.referrer
26.光标是停在文本框文字的最后
<script language="javascript">
function cc()
{
var e = event.srcElement;
var r =e.createTextRange();
r.moveStart('character',e.value.length);
r.collapse(true);
r.select();
}
</script>
<input type=text name=text1 value="123" >
说明：适用于表格数据提交
27.怎样通过asp的手段来检查来访者是否用了代理
<% if Request.ServerVariables("HTTP_X_FORWARDED_FOR"<>"" then
response.write "<f
上一篇：ASP实用代码(1)
下一篇：ASP实用代码(3)