output保存问题
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Language" content="zh-cn" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>客户数据导出</title>
<style type="text/css">
.style1 {
text-align: center;
}
.style2 {
font-size: medium;
}
.style3 {
color: #0000FF;
letter-spacing: 6px;
}
.style4 {
background-color: #00FFFF;
}
</style>
</head>
<body style="margin: 0">
<p class="style1"><strong><span class="style2"><br />
<span class="style3">IT行业 前台管理系统<br />
客户数据导出</span></span></strong></p>
<table style="width: 70%" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<p><strong><span class="style4">[基本信息]</span></strong></p>
<p> 序号:00001 分组: 姓名: 性别: 号码:</p>
<p><strong>[联系信息]</strong></p>
<p> 电话1: 电话2: 地址:</p>
<p><strong><span class="style4">[配置信息]</span></strong></p>
<p> 主板: CPU: 显卡: 内存: <br />
硬盘: 网卡: 电源: 光驱:<br />
机箱: 显示: 其它:</p>
<p><strong><span class="style4">[ 备 注 ]</span></strong></p>
<p> 标志</p>
<p><strong><span class="style4">[ 其 它 ]</span></strong></p>
<p> 添加日期: nbsp; nbsp;修改日期: nbsp; nbsp;导出日期:</p>
</td>
</tr>
</table>
</body>
</html>
以上数据保存在 TexHtml.Text中
但是当调用代码:
Dim FileNu As Long
FileNu = FreeFile '获取可用的文件号
Open TextPath.Text For Binary As FileNu
Dim FileData() As Byte
FileData() = TexHtml.Text '文件路径
Put #FileNu, 1, FileData()
Close FileNu
打开这个html文件,浏览器没有任何显示,需要在工具栏中选择 [查看源文件] 后再点击文件保存,就可以正常显示
不解,是不是我代码出了问题,还是保存过程中有需要处理的特殊字符