คือต้องการให้มีการเขียนโค้ด html นะค่ะ
ใช้vb2008 แต่มันไม่อนุญาติให้ใส่เขาคู๋ซ้อนกันแล้วจะทำยังไงค่ะ
โค้ดเป็นแบบนี้ค่ะ
Imports System.Data.SqlClient
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Using ofd As New OpenFileDialog
ofd.Filter = "All files (*.*)|*.*"
ofd.Title = "Select File"
If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
TextBox1.Text = ofd.FileName
End If
End Using
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a As String = TextBox1.Text
Dim fileinfo As New FileInfo(a)
Dim type As String
Dim filename As String
type = fileinfo.Extension
Dim path As String = ""
filename = fileinfo.Name
path = Replace(filename, type, ".Html")
TextBox1.Text = path
'My.Computer.FileSystem.CopyFile("" & a & "", "D:\Media\" & path & "")
Dim b As String = "D:\Media\" & path & ""
Dim flnfo As New FileInfo("D:\Media\" & path & "")
Dim StmWr As StreamWriter = flnfo.CreateText
Dim line As String = ""
line &= "<html>"
line &= "<head><title> ....การใส่ภาพให้พื้นหลัง....</title></head>"
line &= "<body background =" & a & " >"
line &= "</body>"
line &= "</html>"
StmWr.Write(line)
StmWr.Flush()
StmWr.Close()
End Sub
End Class
แต่ว่าเมื่อเขียนไฟล์ออกมาแล้วอยากให้มันเป็น
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874" />
<title>Untitled Document</title>
</head>
<body background = "lilies.jpg">
</body>
</html>
มันติดตรงช่วง
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874" />
ค่ะเพราะว่ามันมี " ซ้อนกันไม่รู้จะทำยังไงช่วยแนะนำด้วยนะค่ะ
Load balance : Server 02
