รหัสการใช้งานของ asp เพื่อสร้างไฟล์ xls จากตาราง คัดลอกรหัสรหัสดังต่อไปนี้:
<%@LANGUAGE=รหัส VBSCRIPT=936%>
-
ถ้า request(action)=1 แล้ว
Response.ContentType=แอปพลิเคชัน/ms-excel
Response.AddHeader การจัดการเนื้อหา สิ่งที่แนบมา; filename=www.xls
สิ้นสุดถ้า
-
<!DOCTYPE html สาธารณะ -//W3C//DTD XHTML 1.0 การเปลี่ยนผ่าน//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<html xmlns=http://www.w3.org/1999/xhtml>
<หัว>
<meta http-equiv=เนื้อหาประเภทเนื้อหา=ข้อความ/html; charset=gb2312 />
<title>เอกสารที่ไม่มีชื่อ</title>
<ประเภทสไตล์=ข้อความ/css>
โต๊ะ {
ขอบบน:1px ทึบ #003399;
ขอบซ้าย:1px ทึบ #003399;
-
ทีดี{
ขอบขวา:1px ทึบ #003399;
ขอบล่าง:1px ทึบ #003399;
-
ส่วนหัว {
สีพื้นหลัง:#000066;
แบบอักษรน้ำหนัก: ตัวหนา;
ช่องว่างภายใน:5px;
สี:#FFFFFF;
-
</สไตล์>
<ภาษาสคริปต์=จาวาสคริปต์>
ฟังก์ชั่น tableToExcel(){
location.href='?การกระทำ=1';
-
</สคริปต์>
</หัว>
<ร่างกาย>
<ประเภทอินพุต=ค่าปุ่ม=ส่งออกข้อมูล onclick=tableToExcel() />
-
ConStr=...
ตั้งค่า conn = Server.CreateObject (ADODB.Connection)
conn. เปิด constr
ตั้ง rs = เซิร์ฟเวอร์ CreateObject (adodb.recordset)
rs.open เลือก 10 อันดับแรก * จาก [ชื่อตารางของคุณ], conn, 1,1
ถ้าไม่ (rs.eof และ rs.bof) แล้ว
คอลัมน์ = rs.fields.count
response.Write(<table cellpadding='0' cellspacing='0'>)
response.Write(<thead><td>หมายเลขซีเรียล</td>)
สำหรับแต่ละ f ใน rs.fields
การตอบสนองเขียน (<td> & f.name & </td>)
ต่อไป
การตอบสนอง เขียน(</thead>)
สำหรับ j = 1 ถึง rs.recordcount
ถ้า j > 5 แล้ว 'ซ่อนข้อมูลในรายการที่ห้า หลังจากทดสอบแล้ว หากข้อมูลที่แสดงเป็นไม่มีถูกส่งออก ข้อมูลนั้นจะไม่ถูกส่งออก
response.Write(<tr style='display:none'>)
อื่น
การตอบสนองเขียน(<tr>)
สิ้นสุดถ้า
การตอบสนองเขียน (<td> & j & </td>)
สำหรับ i = 0 ถึงคอลัมน์ - 1
การตอบสนองเขียน (<td> & rs (i) & </td>)
ต่อไป
การตอบสนองเขียน(</tr>)
rs.movenext
ต่อไป
การตอบสนองเขียน (</ table>)
สิ้นสุดถ้า
RS.ปิด
setrs=ไม่มีอะไร
เชื่อมต่อปิด
ตั้งค่า conn = ไม่มีอะไร
-
</ร่างกาย>
</html>