asp导入csv文件（文本）

--asp导入csv文件（文本）
set stm=server.CreateObject("adodb.stream")
stm.Type=2'以本模式读取
stm.mode=3
stm.charset="gb2312"
stm.open
--写入数据
*******************
stm.WriteText str1
stm.WriteText strvalue

stm.WriteText "多少箱"&chr(13)

stm.WriteText("一箱幾件"&chr(13))
stm.WriteText("一箱多少cbm"&chr(13))
stm.WriteText("總cbm"&chr(13))
stm.WriteText(chr(13))
stm.WriteText(chr(13))
stm.WriteText("5/5走船數量"&chr(13))
stm.WriteText("19/5走船數量"&chr(13))
stm.WriteText("香港倉"&chr(13))
stm.WriteText("多少箱"&chr(13))
stm.WriteText("一箱幾件"&chr(13))
stm.WriteText("一箱多少cbm"&chr(13))
stm.WriteText("總cbm"&chr(13))
stm.WriteText(chr(13))

stm.WriteText("工廠"&chr(13))
stm.WriteText("多少箱"&chr(13))
stm.WriteText("一箱幾件"&chr(13))
stm.WriteText("一箱多少cbm"&chr(13))
stm.WriteText("總cbm"&chr(13))
************************

stm.SaveToFile server.MapPath("jpdata.csv"),2
stm.flush
stm.Close
set stm=nothing

end if
rs.close()
set rs=nothing

dim url,trueurl

fname="jpdata.csv"

if fname<>"" then
trueurl=server.MapPath(fname)
else
Response.end
end if

set objFso=server.CreateObject("scripting.filesystemobject")
set fn=objFso.GetFile(trueurl)
flsize=fn.size
flname="jpdata.csv"
set fn=nothing
set objFso=nothing

set objStream=server.CreateObject("adodb.stream")
objStream.Open
objStream.Type=1

objStream.LoadFromFile trueurl
Response.Buffer = true
Response.ContentType= "application/octet-stream"
Response.AddHeader "Content-Disposition", "attachment; filename="&flName
Response.CharSet="iso-8859-1"
Response.AddHeader "Content-Length", flsize
'response.write("aa")

Response.BinaryWrite objStream.Read

Response.Flush
objStream.Close
set objStream=nothing

''''''''''''''''
conn.close()
set conn=nothing