ForWriting = 2 Set fso = CreateObject("scrīpting.FileSystemObject") Set f = fso.OpenTextFile("c:\testfile.html", ForWriting, True) html="HTML" f.Write "<HTML>" &_ "<HEAD>" &_ "<TITLE>一个简单的HTML示例</TITLE>" &_ "</HEAD>" &_ "<BODY>" &_ "<CENTER>" &_ "<H3>欢迎光临" &_ "的主页</H3>" &_ "<BR>" &_ "<HR>" &_ "<FONT SIZE=2> " &_ " 这是我第一次做主页,无论怎么样,我都会努力做好!" &_ "</FONT>"&"</CENTER>"&" </BODY>" &_ " "&" </HTML>" wait(5) f.Close |
欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) | Powered by Discuz! X3.2 |