📄 ch08.asp
字号:
<%
HasAdrot = True
HasFs = True
HasMarquee = True
On Error Resume Next
Set Ad = Server.CreateObject("MSWC.AdRotator")
If Err.Number <> 0 Then
HasAdrot = False
Err.Clear
End If
Set fs = Server.CreateObject("Scripting.FileSystemObject")
If Err.Number <> 0 Then
HasFs = False
Err.Clear
End If
Set obj = Server.CreateObject("kjMarquee.Marquee")
If Err.Number <> 0 Then
HasMarquee = False
Err.Clear
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>第 8 章 外挂式ActiveX对象与网页制作</title>
</head>
<body background="B01.jpg" bgcolor="#FFFFFF">
<p><font color="#800000" size="4"><b>第 8 章 外挂式ActiveX对象与网页制作
</b></font></p>
<blockquote>
<font color="#0000FF"><% If Not HasAdrot Then %></font><p><font color="#0000FF">您的系统没有安装
MSWC.AdRotator，将无法执行 Adrot.asp 及 Beaver.asp！</font></p>
<p><font color="#0000FF"><% End If %> <% If Not HasFs Then %> 您的系统没有安装
Scripting.FileSystemObject，将无法执行 CopyFile.asp、CopyFil2.asp
、CopyFil3.asp、DelFile.asp、MoveFile.asp、Readall.asp、ReadLine.asp、EditTxt.asp、EditDsp.asp、EditDsp.asp、EditDsp2.asp！</font></p>
<p><font color="#0000FF"><% End If %> <% If Not HasMarquee Then %> 您的系统还没有安装
kjMarquee.Marquee，将无法执行 Marquee.htm、Marf1.asp～Marf8.asp、MarN.asp、MarEx01.asp、MarEx02.asp！</font></p>
<p><font color="#0000FF"><% End If %> </font><a href="ch08/gifad.htm">gifad.htm</a>
-- 动画广告滚动板 <a
href="Viewasp.asp?FileName=ch08/gifad.htm">(查看源代码)</a></p>
<p><a href="ch08/Adrot.asp">Adrot.asp</a> -- AdRotator
对象的广告滚动板 <a
href="Viewasp.asp?FileName=ch08/Adrot.asp">(查看源代码)</a></p>
<p><font color="#800000"><strong>文件操作</strong></font></p>
<blockquote>
<p><a href="ch08/CopyFile.asp">CopyFile.asp</a> -- 将
www 根目录的 Counter.txt 复制成为 Counter2.txt <a
href="Viewasp.asp?FileName=ch08/CopyFile.asp">(查看源代码)</a></p>
<p><a href="ch08/DelFile.asp">DelFile.asp</a> -- 删除
www 根目录 Counter2.txt 文件<a
href="Viewasp.asp?FileName=ch08/DelFile.asp">(查看源代码)</a></p>
<p><a href="ch08/MoveFile.asp">MoveFile.asp </a>-- 将www根目录的Counter.txt更名为Counter2.txt<a
href="Viewasp.asp?FileName=ch08/MoveFile.asp">(查看源代码)</a></p>
<p><a href="ch08/Readall.asp">Readall.asp </a>-- 利用ReadAll方法读取文件的内容，并且将其显示在浏览器上面<a
href="Viewasp.asp?FileName=ch08/Readall.asp">(查看源代码)</a></p>
<p><a href="ch08/ReadLine.asp">ReadLine.asp</a> -- 利用ReadLine方法读取文件的内容，并且将其显示在浏览器上面<a
href="Viewasp.asp?FileName=ch08/ReadLine.asp">(查看源代码)</a></p>
<p><a href="ch08/CopyFil3.asp">CopyFil3.asp </a>-- 利用ReadAll及Write方法将文件的所有内容复制到Sample2.txt<a
href="Viewasp.asp?FileName=ch08/CopyFil3.asp">(查看源代码)</a></p>
</blockquote>
<p><font color="#800000"><strong>滚动文字对象</strong></font></p>
<blockquote>
<p><a href="ch08/Marquee.htm">Marquee.htm</a> -- 滚动文字范例 <a
href="Viewasp.asp?FileName=ch08/Marquee.htm">(查看源代码)</a></p>
<p><a href="ch08/Marf1.asp">Marf1.asp</a> --
借助文字输入框来显示滚动文字<a
href="Viewasp.asp?FileName=ch08/Marf1.asp">(查看源代码)</a></p>
<p><a href="ch08/Marf5.asp">Marf5.asp </a>--
用浏览器的状态行来显示滚动文字<a
href="Viewasp.asp?FileName=ch08/Marf5.asp">(查看源代码)</a></p>
<p><a href="ch08/MarN.asp">MarN.asp</a> --
在单一网页中显示多个滚动文字<a
href="Viewasp.asp?FileName=ch08/MarN.asp">(查看源代码)</a></p>
</blockquote>
</blockquote>
<blockquote>
<p><font color="#800000"><strong>本章练习参考解答</strong></font></p>
</blockquote>
<blockquote>
<blockquote>
<p><a href="ch08/Beaver.asp">Beaver.asp </a>--
河狸乡首页 <a
href="Viewasp.asp?FileName=ch08/Beaver.asp">(查看源代码)</a></p>
<p><a href="ch08/Copyfil2.asp">Copyfil2.asp </a>--
复制文件练习 <a
href="Viewasp.asp?FileName=ch08/Copyfil2.asp">(查看源代码)</a></p>
<p><a href="ch08/EditTxt.asp">EditTxt.asp</a> --
编辑文件后的内容显示在 EditDsp.asp 网页 <a
href="Viewasp.asp?FileName=ch08/EditTxt.asp">(查看源代码)</a></p>
<blockquote>
<p><a href="Viewasp.asp?FileName=ch08/EditDsp.asp">查看
EditDsp.asp 的源代码</a></p>
</blockquote>
<p><a href="ch08/EditTxt2.asp">EditTxt2.asp</a> --
编辑文件后的内容除了显示在 EditDsp2.asp
网页之外，也会储存 <a
href="Viewasp.asp?FileName=ch08/EditTxt2.asp">(查看源代码)</a></p>
<blockquote>
<p><a href="Viewasp.asp?FileName=ch08/EditDsp2.asp">查看
EditDsp2.asp 的源代码</a></p>
</blockquote>
<p><a href="ch08/MarEx01.asp">MarEx01.asp </a>--
借助文字输入框来显示滚动文字 <a
href="Viewasp.asp?FileName=ch08/MarEx01.asp">(查看源代码)</a></p>
<p><a href="ch08/MarEx02.asp">MarEx02.asp</a> --
用浏览器的状态行来显示滚动文字 <a
href="Viewasp.asp?FileName=ch08/MarEx02.asp">(查看源代码)</a></p>
</blockquote>
</blockquote>
<hr>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -