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