--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.WriteTex