<%Option Explicit%> <html> <head> <title>ThaiCreate.Com ASP & Read CSV</title> </head> <body> <% Dim objFSO,oInStream,sRows,arrRows Dim sFileName sFileName = "customer.csv" '*** Create Object ***' Set objFSO = CreateObject("Scripting.FileSystemObject") '*** Check Exist Files ***' If Not objFSO.FileExists(Server.MapPath(sFileName)) Then Response.write("File not found.") Else '*** Open Files ***' Set oInStream = objFSO.OpenTextFile(Server.MapPath(sFileName),1,False) %> <table width="600" border="1"> <tr> <th width="91"> <div align="center">CustomerID </div></th> <th width="98"> <div align="center">Name </div></th> <th width="198"> <div align="center">Email </div></th> <th width="97"> <div align="center">CountryCode </div></th> <th width="59"> <div align="center">Budget </div></th> <th width="71"> <div align="center">Used </div></th> </tr> <% Do Until oInStream.AtEndOfStream sRows = oInStream.readLine arrRows = Split(sRows,",") %> <tr> <td><div align="center"><%=arrRows(0)%></div></td> <td><%=arrRows(1)%></td> <td><%=arrRows(2)%></td> <td><div align="center"><%=arrRows(3)%></div></td> <td align="right"><%=FormatNumber(arrRows(4),2)%></td> <td align="right"><%=FormatNumber(arrRows(5),2)%></td> </tr> <% Loop oInStream.Close() Set objFSO = Nothing Set oInStream = Nothing End IF %> </table> </body> </html>
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง