ASP实用代码(2)

网络整理 - 08-30

16.全屏显示
<form>
<div>
<input type="BUTTON" value="全屏显示"
>
</div>
</form>
把它放到<body>区中。

17.设为首页
<script language="javascript">

</script>
<a href="#"
title="==E代时光==">设为首页</a>

18.这里是加入收藏夹的代码
<a href="#"
_blank" href=http://bbs.055.cn'>';.'拂晓雅阁')"
target="_self" title="拂晓雅阁">加入收藏夹</a>

19.flash图片效果
以下代码加入<head>区域
<SCRIPT language="javascript">

</SCRIPT>
以下代码加入<body>区域
<img src="http://www.jz123.cn/Article/UploadFiles/20049115458734.gif";;
style="filter:alpha(opacity=20)"
> //图片地址请自己改

20.load 进度条
<table cellspacing="0" cellpadding="0" bgcolor="#FFFFFF"
id="P"><tr><td>
<table cellspacing="0" cellpadding="0" bgcolor="#0000FF"
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 value="Minimize"></object>
<object id=hh2 classid="clsidDB880A6-D8FF-11CF-9377-00AA003B7A11">
<param value="Maximize"></object>
<OBJECT id=hh3 classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<PARAM 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 "<font color=#FF0000>您通过了代理服务器，"& _
"真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR"
end if
%>

28.取得控件的绝对位置
<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+"
left="+l);
　}
</script>
file://VBScript
<script language="VBScript"></script>
说明：本例适用于JS