ASP读取.CSV文件并用表格输出

　2012-07-15 15:19:40　来源：WEB开发网　　　

核心提示： 代码背景，自己做的一个网站访问记录的东西，ASP读取.CSV文件并用表格输出，由于访问量巨少，虚拟空间小，.CSV文件的介绍如下：http://baike.baidu.com/view/468993.htm算法就是先用ASP的代码，打开一个文本文件（CSV）然后用split函数分割一行为数组，就没用数据库，用的.CS

代码背景，自己做的一个网站访问记录的东西，由于访问量巨少，虚拟空间小，就没用数据库，用的.CSV存储，为了方便每次不用下载下来看文件，就用了这么一个ASP来帮忙读取文件。

.CSV文件的介绍如下：http://baike.baidu.com/view/468993.htm

算法就是先用ASP的代码，打开一个文本文件（CSV）然后用split函数分割一行为数组，再一个一个的输出出来，每一行结束后输出一个表格换行标志

<html><title>读取记录</title>
<body>
<p>CSV记录读取如下：</p>
<p>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("record.csv"), 1)  '打开文本文件

Response.Write("<table border=""1"">")  '建立表格
do while f.AtEndOfStream = false
str=f.ReadLine
splitstr=split(str,",")  '分割一行的字符串
Response.Write("<tr>")   '建立表格行

for i =0 to ubound(splitstr)
response.Write("<td>")   '建立表格列
Response.Write splitstr(i)
response.Write("</td>")
next

Response.Write("</tr>")
loop
Response.Write("</table>")

f.Close
Set f=Nothing
Set fs=Nothing
%>  
</p>
</body>
</html>