01.
<%@ Import
Namespace
=
"System.IO"
%>
02.
<%@ Page Language=
"VB"
%>
03.
<script runat=
"server"
>
04.
Sub
Page_Load(sender
As
Object
, e
As
EventArgs)
05.
Dim
StrWer
As
StreamWriter
06.
StrWer =
New
StreamWriter(Server.MapPath(
"csv/"
) &
"customer.csv"
,
True
)
07.
08.
StrWer.WriteLine(
"C005,Weerachai Nukitram,webmaster@thaicreate.com,TH,2000000,100000"
)
09.
StrWer.WriteLine(
"C006,Surachai Sirisart,surachai@thaicreate.com,TH,1000000,200000"
)
10.
11.
StrWer.Close()
12.
Me
.lblText.Text =
"CSV Writed. <a href=csv/customer.csv>Click here</a>"
13.
End
Sub
14.
</script>
15.
<html>
16.
<head>
17.
<title>ThaiCreate.Com ASP.NET - CSV</title>
18.
</head>
19.
<body>
20.
<form id=
"form1"
runat=
"server"
>
21.
<asp:Label id=
"lblText"
runat=
"server"
></asp:Label>
22.
</form>
23.
</body>
24.
</html>