ASP动态网页设计第4章
- 格式：doc
- 大小：148.00 KB
- 文档页数：17
第4章使用ASP对象【例4.1】编写一个ASP页，以不同的字号显示“Hello, World!”。
(1)在记事本窗口中，输入文件内容。
------------ 4-01.asp ------------<%@ LANGUAGE = VBScript %><HTML><HEAD><TITLE>Hello,World!</TITLE></HEAD><BODY><% For i = 3 To 7 %><FONT SIZE = <% = i %>>Hello, World!<BR></FONT><% Next %></BODY></HTML>【例4.2】本例演示了如何使用#include命令包含服务器端文件，结果如图4.4所示。
------------ myfile1.inc ------------<!-- 定义Print过程 --><% Sub Print(msg, fontname, fontsize, color) %><P><FONT FACE=<% = fontname %> SIZE = <% = fontsize %>COLOR = <% = color %>><% = msg %></FONT></P><% End Sub %>------------ 4-02.asp ------------<% @ LANGUAGE = "VBScript" %><HTML><HEAD><TITLE>#include命令应用示例</TITLE><!-- #include file = "./inclduemyfile.inc" --></HEAD><BODY><%' 调用被包含文件中定义的Print过程，以显示两行字符串ASP动态网页设计104Print "白日依山尽，黄河入海流。
", "宋体", "5", "red"Print "欲穷千里目，更上一层楼。
", "楷体_GB2312", "6", "blue"%></BODY></HTML>【例4.3】本例使用Response.Write方法向客户端浏览器输出一个完整的HTML文件，运行结果如图4.5所示。
------------ 4-03.asp ------------<% @ LANGUAGE = "VBScript" %><%Response.Write "<HTML>"Response.Write "<HEAD>"Response.Write "<TITLE>Write方法应用示例</TITLE>"Response.Write "</HEAD>"Response.Write "<BODY>"Response.Write "<DIV ALIGN = center>"Response.Write "<H2>赠汪伦</H2>"Response.Write "<H4>【唐】李白</H4>"Response.Write "<HR NOSHADE COLOR = red SIZE = 1 WIDTH = 80%\>"Response.Write "<P><FONT FACE = 楷体_GB2312>" & _"李白乘舟将欲行，忽闻岸上踏歌声。
</FONT></P>"Response.Write "<P><FONT FACE = 楷体_GB2312>" & _桃花潭水深千尺，不及汪伦送我情。
</FONT></P>"Response.Write "</DIV>"Response.Write "</BODY>"Response.Write "</HTML>"%>【例4.4】编写两个ASP文件4-04a.asp和4-04b.asp，它们的功能都是将整数1～10000显示在浏览器上并计算所用时间，区别是：在文件4-04a.asp中将Buffer属性为设置True，在文件4-04b.asp中将Buffer属性设置为False，结果如图4.6和图4.7所示。
------------ 4-04a.asp------------<% @ LANGUAGE = "VBScript" %><% Response.Buffer = True %><HTML><HEAD><TITLE>缓存页面输出</TITLE></HEAD><BODY><%StartTtime = TimerFor i = 1 To 10000第4章使用ASP对象105Response.Write i & Space(6)If i Mod 20 = 0 Then Response.Write "<BR>"NextEndTime = TimerInterval = EndTime – StartTimeResponse.Write "<B>花费时间为：" & Interval & "秒。
</B>"%></BODY></HTML>------------ 4-04b.asp ------------<% @ LANGUAGE = "VBScript" %><% Response.Buffer = False %><HTML><HEAD><TITLE>不缓存页面输出</TITLE></HEAD><BODY><%StartTtime = TimerFor i = 1 To 10000Response.Write i & Space(6)If i Mod 20 = 0 Then Response.Write "<BR>"NextEndTime = TimerInterval = EndTime - StartTimeResponse.Write "<B>花费时间为：" & Interval & "秒。
</B>"%></BODY></HTML>【例4.5】本例说明如何使用Clear方法和Flush方法，如图4.8、图4.9和图4.10所示。
------------ 4.05a.asp ------------<% @ LANGUAGE = "VBScript" %><% Response.Buffer = True %><HTML><HEAD><TITLE>登鹳雀楼</TITLE></HEAD><BODY><%Response.Write "白日依山尽，黄河入海流。
<BR>"Response.Write "欲穷千里目，更上一层楼。
"%>ASP动态网页设计106</BODY></HTML>------------ 4.05b.asp ------------<% @ LANGUAGE = "VBScript" %><% Response.Buffer = True %><HTML><HEAD><TITLE>登鹳雀楼</TITLE></HEAD><BODY><%Response.Write "白日依山尽，黄河入海流。
<BR>"Response.ClearResponse.Write "欲穷千里目，更上一层楼。
"%></BODY></HTML>------------ 4-05c.asp ------------<% @ LANGUAGE = "VBScript" %><% Response.Buffer = True %><HTML><HEAD><TITLE>登鹳雀楼</TITLE></HEAD><BODY><%Response.Write "白日依山尽，黄河入海流。
<BR>"Response.FlushResponse.Write "欲穷千里目，更上一层楼。
"Response.Clear%></BODY></HTML>【例4.6】本例说明如何使用End方法，运行结果如图4.11所示。
------------ 4-06.asp ------------<% @LANGUAGE = "VBScript" %><HTML><HEAD><TITLE>End方法应用示例</TITLE></HEAD><BODY>第4章使用ASP对象107<%i = 1While 1 = 1 ' 循环条件恒为真Response.Write i & " "If i Mod 10 = 0 Then Response.Write "<BR>"If i = 100 Then Response.End ' 当 i 值为100时停止向客户端输出数据i = i + 1Wend%></BODY></HTML>【例4.7】本例演示了Expires属性值的应用。
