ASP读取.CSV资料并用表格输出 _ASP

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

自己简单做着玩的，看网上没有这项的做法，就写一下。代码很简单，需要用的人拿去参考吧

代码背景，自己做的一个网站访问记录的东西，由于访问量巨少，虚拟空间小，就没用数据库，用的.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>

就这么简单的几行代码，做出来完全是为了给像我这样的初学者一个参考吧。

参考网页：http://icyfox.web-150.com/read.asp

这是网页效果