<title>TTASP.NET(CSV to HTML)</title>
<body bgcolor="#FFFFFF">
<%
csv_to_read="states.csv"
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath(csv_to_read))
imported_text = act.readline
读取csv的首行,理论上说这些是列标题
imported_text = replace(imported_text,chr(13),",")
改变破坏划定出的逗号行
imported_text = replace(imported_text,chr(34),"")
删除所有的引用(如果你的csv有除了独立的文本引用,你可能需要删除这个修改器导入的文本)
split_text=split(imported_text,",")
通过逗号分隔顶端行
num_imported=ubound(split_text)+1
计算分隔数目和为了最后的要素而添加一个
total_imported_text = act.readall
读取余下的csv
total_imported_text = replace(total_imported_text,chr(13),",")
改变破坏逗号分隔符的行
total_imported_text = replace(total_imported_text,chr(34),"")
删除所有的引用(如果你的csv有除了独立的文本的引用,你可能需要删除这个修改器导入的文本)
total_split_text=split(total_imported_text,",")
通过逗号分隔文件
total_num_imported=ubound(total_split_text)
计算分割数
'This will be the numer of cells in the table
%>
<table width="100%">
<tr>
<%
for table = 0 to num_imported -1
这为了每个csv的列表创建表格元件
' (-1 is used because arrays begin with 0)
%>
<td width="<% response.write 100/(num_imported) 'make the cell widths even %>%">
<b><%= split_text(count) %></b>
</td>
<%
count=count+1
next
%>
</tr>
<tr>
<%
重新设置计数器
count=0
这会决定在csv的排列
for tablea = 0 to (total_num_imported/ (num_imported)-1)
%>
<%
for table = 0 to num_imported -1
这会创建csv的每个表格元件
' (-1 is used because arrays begin with 0)
%><td width="<%= 100/(num_imported) %>%">
<%= total_split_text(count)
%>
</td>
<%
count=count+1
next ' end of the observation
%></tr>
<% next 'end of the csv %>
</table>
热门信息
阅读 (201)
1 独特的随机字母阅读 (175)
2 检查和设置IIS服务器正确的权限阅读 (167)
3 asp网站伪静态化URL Rewrite中的httpd.ini伪静态化规则编写方法阅读 (166)
4 asp取access数据库里本周、本月、本季度的记录~阅读 (166)
5 ASP-对象