ASP教程二

来源：互联网发布：openwrt 查看网络配置编辑：程序博客网时间：2024/05/18 19:36

四、磨刀不误砍柴工--ASP基础
1．将结果（字符串信息）输出到浏览器，语法为：Response.Write 显示的内容。从例
wuf2.asp可以看出，可以用"<%=显示的内容%>"来代替"<%Response.write显示的内容%>"。
2．使用变量，wuf2.asp可改为：

<% @LANGUAGE = VBScript %>
<% ' 单引号后加注释 - wuf3.asp
Option Explicit '要求变量声明,使用它可减少程序出错的可能,提高效率
Dim IPaddr '使用变量前最好先声明
Ipaddr = Request.ServerVariables("Remote_Addr")
%>
<html>
<body>
IP address = <%IPaddr%>
</html>
</body>

1． 在程序中使用函数

<%@ Language=VBScript%>
<%Response.Expires = 0%>
<HTML>
<HEAD>
<title>使用函数 - wuf4.asp</title>
</HEAD>
<BODY
<P>今天的日期: <%=Date%></P>

<P>现在的时间: <%=Time%></P>
<P>现在的时间: <font color="#CC0033"><%=Time%></font></P>
<P>Response.Write "<P>现在的时间: <font color='#CC0033'>"& Time & "</font></P>
%>
</BODY>
</HTML>

上例中，"&"相当于"+"号，Date和Time就是函数（注意：这里所获得的时间是Web服务器的时间而不是浏览器所在机器的时间，从这里可验证ASP命令是在服务器端执行的），ASP还有许多其他的函数，本文不可能一一列举，请自己查阅。

至于<%Response.Expires = 0%>，我们知道，浏览器可以缓存Web页，以加速访问，而 Response.Expires就是用来设置网页保留在客户端浏览器缓存中的时间（分钟）。若设置为0，则表明网页数据不会被保留在客户端的缓存中。它必须放置在标签之前。具体到这个例子中，如果没有这个设置，你只有按"刷新"按钮，时间才会更新，而仅在地址栏敲回车，时间是不会变化的，而加上这句设置后，每敲一次回车，时间就会更新一次。
4． 使用条件语句：

<%@ Language=VBScript %>
<% ' wuf5.asp
If Time<=#12:00:00# Then
Response.Redirect "wuf1.asp"
ElseIf time<=#18:00:00# Then
Response.Redirect "wuf2.asp"
Else
Response.Redirect "wuf3.asp"
End If
%>

日期用##引起来，Response.Redirect负责引导客户端浏览器显示新的网页，即通常说的重定向请记住，这个功能是非常有用的。
5． 使用循环语句：

<%@ Language=VBScript %>
<%Option Explicit%>
<HTML>
<BODY>
<%
dim I
While I<=5
Response.Write "</p>" & "还有其他循环结构,如:Do...Loop While, " &_
"Do While...Loop, For...Next,For Each...Next等" & "</p> "
I=I+1
Wend
%>
</BODY>
</HTML>

从上例中，你应该注意如何使用"_"换行。
6．使用include file。

对于一个Web站点而言，一般每个页面的顶部或尾部基本上都是相同的那么你可以将这些相同的部分放一个文件中，然后再在需要时引用它。先如下编辑一个名为comm.asp的文件：

再编辑以下文件：

<% @LANGUAGE = VBScript %>
<HTML>
<BODY>
<% 'wuf7.asp
Response.Write "输出结果到浏览器."
%>

</BODY>
</HTML>

include file可放在网页的任意位置，但必须位所有ASP代码块的外部。此外，还有过程、函数、参数传递等概念，如果你以前未接触过的话，还是先放着为妙，先从总体上了解ASP，然后再逐步细化。