标签<marquee>和尾标签</marquee>之间的内容就是滚动内容。
<marquee>标签的属性主要有behavior、bgcolor、direction、width、height、hspace、vspace、loop、scrollamount、scrolldelay等，它们都是可选的。
<html><head>
<meta http-equiv="Content-Type" content="text/htmlcharset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
Dim fso, f1, ts, s
Const ForReading = 1
Const ForWrite = 2
Const ForAppen = 8
Sub cf_onclick
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("testfile.txt", True)
set f1=nothing
'Set ts = fso.OpenTextFile("testfile.txt", ForWrite)
' ts.Write "testfile.txt文件的内容：" &chr(13) &chr(10)
'set ts=nothing
set fso=nothing
msgbox "testfile.txt 文件创建完毕！"
End Sub
Sub ww_onclick
'''以独占方式(原有内容一律清空)写入：
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("testfile.txt", ForWrite)
ts.Write T2.value &now &chr(13) &chr(10)
'' ts.WriteLine "Hello World" &now
'' ts.WriteBlankLines(1)
'' ts.Close
set ts=nothing
set fso=nothing
msgbox T2.value &" 写入完毕！"
End Sub
Sub rw_onclick
' 读取文件的内容
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("testfile.txt", ForReading)
s = ts.readall
S1.value=s
set ts=nothing
set fso=nothing
End Sub
Sub aw_onclick
'''追加文字
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("testfile.txt", ForAppen)
ts.write T3.value &now &chr(13) &chr(10)
set ts=nothing
set fso=nothing
msgbox T3.value &" 追加完毕！"
End Sub
</SCRIPT>
</head>
<body>
<p><input type="button" value="创建文件" name="cf"><input type="text" name="T1" size="20"></p>
<p><input type="button" value="写入文字" name="ww"><input type="text" name="T2" size="20"></p>
<p><input type="button" value="读出文字" name="rw"><textarea rows="10" name="S1" cols="92"></textarea></p>
<p><input type="button" value="追加文字" name="aw"><input type="text" name="T3" size="20"></p>
</body>
</html>
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）