ตัวอย่างในบทความนี้อธิบายวิธีการของ VB ส่งกลับผลลัพธ์ชุดระเบียนไปยังตาราง HTML แบ่งปันกับทุกคนสำหรับการอ้างอิงของคุณ วิธีการดำเนินการเฉพาะมีดังนี้:
function ReturnHTMLTable(query) set rs = cn.Execute(query) rs.MoveFirst response.Write "<tabledata"" cols=""" & rs.Fields.Count & """>" response.Write "<tr>" สำหรับแต่ละ oField ใน rs.Fields การตอบกลับ เขียน "<th>" & oField.Name & "</th>" การตอบกลับถัดไป เขียน "</tr>" ทำในขณะที่ไม่ rs.EOF การตอบสนอง เขียน "<tr>" สำหรับแต่ละ oField ใน rs.Fields การตอบสนอง เขียน "<td>" ถ้า IsNull(oField) แล้ว การตอบสนอง เขียน " " อย่างอื่น การตอบสนอง เขียน oField.Value สิ้นสุด ถ้า การตอบสนอง เขียน " </td>" Next rs.MoveNext response.Write "</tr>" Loop response.Write "</table>"end function.
ฉันหวังว่าบทความนี้จะเป็นประโยชน์กับการเขียนโปรแกรม VB ของทุกคน