เมื่อไม่กี่วันที่ผ่านมา ชาวเน็ตบางคนถามว่า: จะส่งออกบันทึก ASP ที่ตั้งค่าเป็นจอแสดงผลแบบตารางที่มี n คอลัมน์ได้อย่างไร ตอนนี้ฉันได้เขียนไว้เพื่อความสะดวกของทุกคนแล้ว
'กำหนดตัวแปร
Dim cn,rs,Sql
Sql = "เลือก CustomerID จากคำสั่งซื้อ"
'จำนวนบันทึกทั้งหมด
ติ่ม TotalNumbe
ตั้งค่า cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=NorthWind;Data Source=.;Password=;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.เปิด SQL, cn, 3, 1
TotalNumber = rs.RecordCount
ถ้า TotalNumber = 0 แล้ว
การตอบสนองเขียน "ไม่มีการบันทึกเอาต์พุต"
'www.downcodes.com'
อื่น
ติ่ม jj, n ซ้าย, cCol
เจ = 0
เอ็นคอล = 415
nLeft = nCol- (จำนวนรวม Mod nCol)
ถ้า nLeft = nCol แล้ว nLeft = 0
การตอบสนองเขียน "<เส้นขอบตาราง><tr>" & vbCrLf
แม้ว่าจะไม่ใช่ rs.EOF
การตอบกลับเขียน "<td>" & rs("CustomerID") & "</td>" & vbCrLf
'ถ้า (jj Mod nCol) = (nCol - 1) และ jj <> TotalNumber - 1 จากนั้น Response.Write "</tr><tr>" & vbCrLf
'ถ้า (jj Mod nCol) = (nCol - 1) และ jj = TotalNumber-1 จากนั้น Response.Write "</tr>" & vbCrLf
ถ้า (jj Mod nCol) = (nCol - 1) จากนั้น
ถ้า jj <> TotalNumber - 1 แล้ว
การตอบกลับเขียน "</tr><tr>" & vbCrLf
อื่น
การตอบกลับเขียน "</tr>" & vbCrLf
สิ้นสุดถ้า
สิ้นสุดถ้า
เจ = เจ + 1
rs.MoveNext
เวนด์
ถ้า nLeft <> 0 และ nLeft <> nCol แล้ว
ถ้า nCol < TotalNumber แล้ว
สำหรับ i = 1 ถึง nLeft
การตอบสนองเขียน "<td> </td>" & vbCrLf
ต่อไป
สิ้นสุดถ้า
การตอบกลับเขียน "</tr>" & vbCrLf
สิ้นสุดถ้า
ตอบกลับเขียน "</table>"
สิ้นสุดถ้า
rs.ปิด
Setrs=ไม่มีอะไร
cn.ปิด
ตั้ง cn = ไม่มีเลย
การตอบสนองสิ้นสุด