ASP讀取UTF8格式csv檔案顯示[ASP][Vbscript]
讀檔部分
把UTF8檔案轉成unicode檔案顯示部份照這邊裡面的做
http://blog.csdn.net/icyfox_bupt/article/details/7748592
<html><title>測試</title>
<body>
<p>中文測試</p>
<p>
<%
Response.ContentType="text/html"
Response.Charset="UTF-8"
Response.Write("讀取檔案" )
response.write "<br>"
Set stream = CreateObject("ADODB.Stream")
stream.Open
stream.Type = 2
stream.Charset = "utf-8"
stream.LoadFromFile Server.MapPath("ATEST01.csv")
text = stream.ReadText
stream.Close
Response.Write("讀完檔案準備匯出unicode格式" )
response.write "<br>"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath("output.csv"), 2, True, True)
f.Write text
f.Close
Response.Write("轉換編碼" )
response.write "<br>"
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("output.csv"), 1, True, True)
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>
留言