ASP实用代码(3)
网络整理 - 08-30
29.滚动特效<marquee
scrollamount="2" scrolldelay="0" direction="up"
height="120">
<p>欢迎光临拂晓雅阁<br>
请记住我们的永久域名：
</marquee>
30.自动更新提示
<body>
<TABLE border=2 cellspacing=0 cellpadding=3>
<TR><TD bgcolor="#000044">
<FONT color="#4400ff" face=georgia,arial size=+1>
<CENTER>
<SCRIPT LANGUAGE="javascript">
<!--
document.write(document.title);
//-->
</SCRIPT>
</TD></TR>
<TR><TD bgcolor="#440000">
<FONT size=-1 color="#ff0000" face="trebuchet MS","arial">
<SCRIPT LANGUAGE="javascript">
<!-- Begin
function getCookieVal (offset) {
var endstr = documents.cookie.indexOf (";", offset);
if (endstr == -1)
endstr = documents.cookie.length;
return unescape(documents.cookie.substring(offset, endstr));
}
function GetCookie (name) {
var arg = name + "=";
var alen = arg.length;
var clen = documents.cookie.length;
var i = 0;
while (i < clen) {
var j = i + alen;
if (documents.cookie.substring(i, j) == arg)
return getCookieVal (j);
i = documents.cookie.indexOf(" ", i) + 1;
if (i == 0) break;
}
return null;
}
function SetCookie (name, value) {
var argv = SetCookie.arguments;
var argc = SetCookie.arguments.length;
var expires = (argc > 2) ? argv[2] : null;
var path = (argc > 3) ? argv[3] : null;
var domain = (argc > 4) ? argv[4] : null;
var secure = (argc > 5) ? argv[5] : false;
documents.cookie = name + "=" + escape (value) +
((expires == null) ? "" : ("; expires=" + expires.toGMTString())) +
((path == null) ? "" : ("; path=" + path)) +
((domain == null) ? "" : ("; domain=" + domain)) +
((secure == true) ? "; secure" : "");
}
function DeleteCookie(name) {
var exp = new Date();
FixCookieDate (exp);
exp.setTime (exp.getTime() - 1);
var cval = GetCookie (name);
if (cval != null)
documents.cookie = name + "=" + cval + "; expires=" +
exp.toGMTString();
}
var cookie_date=new Date(document.lastModified);
var expdate = new Date();
expdate.setTime(expdate.getTime()+(5*24*60*60*1000));
document.write("<Font color=ff8800>" + "上次更新时间: "+ "</font>"
+document.lastModified);
document.write("");
if (!(cookie_date == GetCookie("cookie_date"))){
SetCookie("cookie_date",cookie_date,expdate);
document.write("<font color='yellow'>
站点上次更新!</font>
");
}
// End -->
</SCRIPT>
</FONT>
</TD></TR>
</TABLE>
</CENTER>
</body>
31.关于表格提交的几种格式
<input type=text name=txtPostalCode onKeypress="if (event.keyCode <
45 || event.keyCode > 57) event.returnvalue = false;">
限制输入字符，你可以改变KEYCODE的值来限制输入。你将KEYCODE的值设为极大和极小就什么也不能输入了。这个可以屏蔽你想屏蔽的字符有一定的选择性..
<INPUT type="text" value="james" disabled>
使用disabled属性后的区域的值，不能被传递给其他的程序（ASP/CGI）去处理，如果你非要传递请通过隐藏属性去做。这个比较单一，功能不强。一般用于未完成的站点。
<INPUT type="text" value="1500" readonly>
readonly属性顾名思义是“只读”。它将TEXT转化为一个对象，禁止对它进行编辑。你虽然可以通过TAB键在多个TEXT区域间切换，但是不能修改已经指定的TEXT区的值。但是它不象Disabled属性那样，可以进行正常的数值传递。
32.让背景图不滚动
IE浏览器支持一个 Body 属性 bgproperties，它可以让背景不滚动:
〈Body Background="图片文件" bgproperties="fixed"〉
33.让你的网页无法另存为
<noscript><iframe src=*></iframe></noscript>
34.让IFRAME框架内的文档的背景透明
<iframe src="about :<body>"
allowtransparency></iframe>
35.禁止右键：
<body oncontextmenu="return false" ondragstart="return false"
onselectstart ="return false" onselect="document.selection.empty()"
oncopy="document.selection.empty()" onbeforecopy="return
false">
36.进入页面后立即自动刷新？
<meta http-equiv="refresh" content="120;url=http://www.055.cn">
, 这是你自己的网址。
37 .打开窗口即最大化
<script language="javascript">
<!-- Begin
self.moveTo(0,0)
self.resizeTo(screen.availWidth,screen.availHeight)
// End -->
</script>
38.能隐藏IFRAME的滚动条吗？我知道的三种方法:
1. 设置iframe scrolling="no"
2. 被包含页body应用overflow:hidden
3. 被包含页的body标签加scroll="no"
39.加入背景音乐
<bgsound src="mid/min1.mid" loop="-1"> 只适用于IE
<embed src="music.mid" autostart="true" loop="true" hidden="true">
对Netscape ,IE 都适用
40.滚动
<MARQUEE direction=up height=146 onmouseout=start()
onmouseover=stop() scrollAmount=4></marquee>
41.细线分隔线
<hr noshade size=0 color=#C0C0C0>
42.过渡方式
<meta http-equiv="Page-Exit"
content="revealTrans(Duration=3,Transition=5)">
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 随机产生一种过渡方式
43.如何控制横向和纵向滚动条的显隐？
<body> 去掉x轴
<body> 去掉y轴
<body scroll="no">不显
44.怎样在 FrontPage2000 中加入 Flash 动画?
在 FrontPage2000 中,点击[插入]->[高级]->[插件]，在弹出的窗口中，设置一下 Flash
文件的大小及其它信息，确定即可。
45.加入注释的格式是：
〈!--［注释内容…］--〉
46.怎样在网页中加入 E-mail 链接并显示预定的主题?
〈A href="mailtadmin@055.cn?subject=主题"〉……〈/a〉
47.定义本网页关键字，可以在〈Head〉〈/Head〉中加入如下代码：
〈meta content="E代时光"〉
Content 中所包含的就是关键字,你可以自行设置。
这里有个技巧,你可以重复某一个单词,这样可以提高自己网站的排行位置,如：
〈meta content="拂晓雅阁,雪里飘"〉
48.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
49.添加到收藏夹：
〈a href="java
script:window.external.addFavorite(','www.055.cn');"〉添加到收藏夹〈/a〉
50.设为首页：
〈a href=#
onclick=this.style.behavior='url(#default#homepage)';this.setHomePage(');〉设为首页〈/a〉
51.定制浏览器地址栏前的小图标：
A:在网页的〈head〉〈/head〉间加入以下语句：
〈link href="http://…/icon.ico"〉
即可。其中 icon.ico 为 16x16 的图标文件，颜色不要超过 16 色。
52.把滚动条放在浏览器窗口的左边
A:在 <body> 中加 dir=RTL，即 <body dir=RTL>
53.页面全部保护
<SCRIPT>
<!--
//加入页面保护
function rf()
{return false; }
document.oncontextmenu = rf
function keydown()
{if(event.ctrlKey ==true || event.keyCode ==93 || event.shiftKey
==true){return false;} }
document.onkeydown =keydown
function drag()
{return false;}
document.ondragstart=drag
function stopmouse(e) {
if (navigator.appName == 'Netscape' && (e.which == 3 || e.which ==
2))
return false;
else if
(navigator.appName == 'Microsoft Internet Explorer' && (event.button
== 2 || event.button == 3)) {
alert("欢迎光临拂晓雅阁");
return false;
}
return true;
}
document.onmousedown=stopmouse;
if (document.layers)
window.captureEvents(Event.MOUSEDOWN);
window.onmousedown=stopmouse;
//-->
</SCRIPT>
54.状态栏的特效，可以很好的屏蔽显示的地址
<script language=javascript>kstatus();
function fxyg(){
self.status="欢迎光临拂晓雅阁，请记住我们的永久域名：||TCYG.NET||FXYG.NET";
setTimeout("fxyg()",0);
}</script>
1. 现在的日期时间命令是
<%=now%> 即可
2.ASP取得表格(from)数据输入的方法，是使用一个内置的对象(object)—Requect,
它以get,post而异。
3.若要自己用VB或其它语言编写，.dll文件供ASP使用需将DLL文件注册方可：DOS下
输入 regsbr32 *.dll
4.显示五个重复的句子，字体越来越大
<% for i=1 to 5 %>
<font size=<% =i %> color=#00ffff>
快速ASP
</font>
<br>
<% next %>
5.传送字符串到用户端
response.write string
如：<% response.write "Welcome" %>
6.链接到指定的URL地址
response.redirect url
如：
<% response.redirect "homepage.asp"
%>
*但是如果此.ASP的文件内容已经传送到用户断，则再用redirect时会发生错误。
7.其他语言与ASP的结合：
如：早上显示早安，下午显示你好
<%
if time>+#12:00:00 AM# and time<#12:00:00 PM #
then
greeting="早安!"
else
greeting="你好!"
end if
%>
<%=greeting %>
8.<script>标记在ASP中的应用
例：
<html>
<body>
<% call function1 %>
</body>
</html>
<script runat=server language=javascript>
function function1()
{
...
}
</script>
9.#include 包括其它文件
<!--#include virtual|file="filename"-->
virtual指虚拟的文件地址。
file 代表绝对的文件地址。
如：
<!--#include virtual="/booksamp/test.asp"-->
<!--#include file="/test/test.asp"-->
而且可以层层嵌套。另外#include 不能在<%--%>之内
10.ASP取得表格输入数据的方法
：GET POST
一.get:用户端将数据加到URL后，格式为”？字段1=输入数据1&字段2=输入数据2&...",
再将其送到服务器。
如: action为, 字段Name输入数据为jack,字段age的数据为15，则用get方法为
?Name=jack&Age=15
二.post:用户端用http信息数据传送到服务器
ASP中：
get:使用“输入数据= Request.QueryString("字段名")",将附加于URL的数据取出。
post:使用“输入数据=Request.forml"(字段名")",读取HTTP信息数据字段。
* Request.QueryString范例
如：〈A hery="aspform.asp?Name=jack&Age=15">
按此〈/A〉〈p〉
Name:<%=request.QueryString("Name")%)
Age:<%=request.QeueryString("Age")%)
* get 范例
·aspturm.asp:
<form action="asp1b.asp" method="get">
姓名: <input type=text value="Your name">
<p>
特征: <select>
<option>cool!
<option>handsome
<option>warmhearted
</select>
<input type=submit value="ok">
</form>
asp1b.asp的内容
<html><body>
<% =request.querystring("input1") %> hi, your character is
<%= request.querystring("input2") %>
</body></html>
11.request.From
语法： request.From(name)[(index)|.count]
name:字段名
index:当同一字段输入多个值时，指针值index指定要读取同一字段的那一个值，范围由1到
request.From(name).count
count:由request.From(name).count可知name字段输入几个值，若无此name字段，count为0
如下例：
<%
forI=1 to request.fron("input1").count
response.write request.From("input1")(I)&"<br>"
next
%>
若input1有两个值则都显示出
*若未采用index指定读取哪个.可用
〈%
for each item request.From("input"))
repomse.write item &"<br>"
next
%>
也可用" for each x in tewuest.From"重复取得所有字段的输入值。
<% for each x in request.form %>
request.From (<%=x%)=<%=request.form
(x)%> <br>
<% next %>
12.
获取客户端TCP/IP端口的方法:
如: tcp/ip port is <%=request("server_port")%>
使用server_port可以得到接收HTTP request的连接port信息
13.
通过HTTP_ACCEPT_LANGUAGE的HTTP表头信息,可以得到用户端的使用语言
环境.
以下例子判断用户端的语言环境,给出不同的页面.
<% language=request.servervariables("HTTP_ACCEPT_LANGUAGE")
if language="en" then %>
<!--#include file="english.asp">
<% else %>
<!--#include file="china.asp">
<% end if%>
14.主页保留的期限
如果用户端浏览器在一个主页保留的期限内,再度浏览此主页,则原在用
户端硬盘上的主页内容将被显示.
response.expires[=number]
其中NUMBER为记录数据盒(PAGE BOX)的保留期限,单位是分钟.
或:
response.expiresabsolute[=[date][time]]
如:设定一个主页保留期到某个日子.
15.连接到指定的URL地址
如:你希望确认用户已经看过INDEX.HTM,则可以检查是否已经看过,如
尚未确认,则自动连接到首页
<%
if not session("BEEN_to_home_page") then
response.redirect "index.asp"
end if
%>
16.判断是回到本页还是第一次进入
<%
if user_has_been_here_before then
response.write "<h3 align=center> Welcome Back
again"
else
response.write "Welcome!"
end if
%>
17.显示数据库中的图片与超级连接
<%
set conn=server.creatobject("ADODB.connection")
conn.open "myaddress"
set rs=conn.execute("select name,tel,url,image from
myaddress")
%>
<p>
<tabel>
<tr>
<% for i=0 to rs.fields.count-1 %>
<td>
<b>
<%=rs(i).name %>
</b>
</td>
<% next %>
</tr>
<% do while not rs.eof %>
<tr>
<% for i=0 to rs.fields.count-1 %>
<td valign =top>
<%
if rs(i).name="image" then
response.write "<img src="""&rs(i)&""" >"
else
if rs(i).name="url" then
response.write "<a href="""&rs(i)&""">"&rs(i)&"</a>"
else
response.write rs(i)
end if
end if
%>
</td>
<%next%>
</tr>
<% rs.movenext
loop
rs.close
conn.close
%>
</html>
18. 用ASP取得浏览器信息
<%
set a=server.creatobject("MSWC.BROWSERTYPE")
msg="您使用的浏览器是:"+a.browser+"version"+a.version
%>
<%=msg%>