รบกวนช่วยดูให้หน่อยครับ คือ ภาษาไทยมันเพียนอะครับ ต้องให้ Encoding เป็น ASCII พอให้เป็น ASCII แล้วภาษามันเพียนอะครับ ช่วยแก้หน่อยครับ นั้งมาหลายวันแลัวครับ T_T

Imports System.IO

Partial Class PRODUCT
Inherits System.Web.UI.Page
Private Const ConStr As String = "Data Source=192.168.4.17;Initial Catalog=MIS;Persist Security Info=True;User ID=sa;password=sa;Max Pool Size=100;Min Pool Size=10"


Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim strLine As String = ""
strLine = ("D|30092010|Au01|ทีเอ็มบี มอเตอร์แคร์ (พ.ร.บ.)|30.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|I2") + vbCrLf
strLine = strLine & ("D|30092010|Au02|ทีเอ็มบี มอเตอร์แคร์ (ประกันภัยรถยนต์ ประเภท1)|18.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|I2") + vbCrLf
strLine = strLine & ("D|30092010|Au03|ทีเอ็มบี มอเตอร์แคร์ (ประกันภัยรถยนต์ ประเภท3)|25.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|I2") + vbCrLf
strLine = strLine & ("D|30092010|Au04|ทีเอ็มบี มอเตอร์แคร์ (ประกันภัยรถยนต์ ประเภท5)|25.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|I2") + vbCrLf
strLine = strLine & ("D|30092010|Pa01|ทีเอ็มบี แอ็คซิเดนแคร์|28.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|I2") + vbCrLf
strLine = strLine & ("D|30092010|Hi01|ทีเอ็มบี เฮลท์แคร์|25.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|I2") + vbCrLf
strLine = strLine & ("T|I2_PRODUCT.TXT|6|0|0|0|24092010|30092010") + vbCrLf
'strLine = "D|30092010|Au01|ทีเอ็มบี มอเตอร์แคร์ (พ.ร.บ.)|30.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|I2"
Response.ContentType = "text/plain"

Response.ContentEncoding = System.Text.Encoding.ASCII
Response.AddHeader("Content-Disposition", "attachment; filename=""" & "I2_PRODUCT" & ".TXT")
Response.Write(strLine.ToString)

Response.End()
End Sub

End Class