请问这个Write 函数后接的字符串后面是不是有问题啊？

Coffey111111 · 发表于 2007-2-15 15:10:21

Dim i
While Not input.eof

i=i+1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile" &i &".html", ForWriting, True)
html="HTML"

f.Write "<HTML>"
   &"<HEAD>"
&"<TITLE>一个简单的HTML示例</TITLE>"
&"</HEAD>"
&" " &"<BODY>"
&"<CENTER>"
   &"<H3>欢迎光临"
   &input("name")
   &"的主页</H3>"
   &"<BR>"
   &"<HR>"
   &"<FONT SIZE=2> "
   &"　　这是我第一次做主页，无论怎么样，我都会努力做好！"
   &"</FONT>"&"</CENTER>"&" </BODY>"
   &"  "&" </HTML>"
  input.MoveNext
wait(5)

Wend
input.close
Set input=nothing
在我运行到红色处向下我就运行不下去了，请问这个Write 函数后接的字符串后面是不是有问题啊？请指教~~sdlkfj5

Coffey111111 · 发表于 2007-2-24 12:21:51

谢谢xiaonan,rivermen sdlkfj2

Coffey111111 · 发表于 2007-2-27 12:35:29

恩，是的，是将文本中的内容换行写的sdlkfj5

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 请问这个Write 函数后接的字符串后面是不是有问题啊？

本帖子中包含更多资源

相关帖子

站长推荐 /1