关于WriteString
在前面的例子中,在HttpReuest用下面的代码:
e.WriteString("Hello World")
在浏览器中显示了下面的内容:
需要注意的是,每次只能执行一次WriteString或WriteFile(后面会介绍),例如下面的代码是无法正常运行的:
e.WriteString("Hello
World")
e.WriteString("Hello
China")
'这一行会出错
需要将两个字符串合并为一个,再用WriteString写入浏览器,例如:
Dim
rs As String = "Hello World"
rs = rs
& vbcrlf
& "Hello China"
e.WriteString(rs)
在浏览器中显示的内容是:
你肯定会奇怪,vbcrlf是回车换行,按理应该分两行显示,怎么上面的内容只显示了一行呢?
这就是涉及到HTML标签的知识,在HTML中,连续的多个空格或换行,都会被显示为1个空格,而换行用<br/>表示。
所以要分开两行显示,正确的HttpReuest事件代码是:
Dim
rs As
String =
"Hello World"
rs =
rs &
"<br/>Hello China"
e.WriteString(rs)
在浏览器显示的内容是:
如果要分段显示文字,可以将段落放在<p>和</p>之间,例如将HttpReuest事件代码设置为:
Dim
rs As
String =
"<p>Foxtable首先是一个优秀的应用软件,你不需要编写任何代码,即可高效完成日常数据管理工作.</p>"
rs = rs
&
"<p>同时Foxtable又是一个高效的.net平台开发工具,专门针对数据管理软件的开发作了大量的优化</p>"
e.WriteString(rs)
在浏览器显示的结果为:
用a标签可以插入超链接,例如将HttpReuest事件代码设置为:
Dim
rs As
String =
"<a href='http://www.foxtable.com/'>单击此处</a>访问Foxtable主页"
e.WriteString(rs)
<a>标签的href属性指定链接地址,属性用单引号括起来,<a>和</a>之间为要显示的文本,上述代码在浏览器显示的结果为:
HTML的标签有很多,我们并不打算一一介绍,教会大家HTML不是我们的任务,有人比我们做得更好,有兴趣的话,可以访问:
http://www.w3school.com.cn/html/index.asp
通常不超过半天时间就可以掌握了。