كود تنفيذ asp لإنشاء ملف xls من الجدول. انسخ رمز الكود كما يلي:
<%@LANGUAGE=VBSCRIPT CODEPAGE=936%>
<%
إذا كان الطلب (الإجراء) = 1 إذن
Response.ContentType=application/ms-excel
Response.AddHeader content-disposition,attachment;filename=www.xls
نهاية إذا
%>
<!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>
<الرأس>
<meta http-equiv=Content-Type content=text/html;
<title>مستند بدون عنوان</title>
<نوع النمط=نص/css>
طاولة {
الحدود العلوية: 1 بكسل صلب #003399؛
الحدود اليسرى:1px صلب #003399؛
}
الدفتيريا {
الحدود اليمنى:1px Solid #003399؛
الحد السفلي:1px صلب #003399؛
}
الموضوع {
لون الخلفية:#000066;
وزن الخط: غامق؛
الحشو: 5 بكسل؛
اللون: #FFFFFF؛
}
</نمط>
<لغة البرنامج النصي=جافا سكريبت>
وظيفة الجدولToExcel(){
location.href='?action=1';
}
</script>
</الرأس>
<الجسم>
<نوع الإدخال=قيمة الزر=تصدير البيانات عند النقر=tableToExcel() />
<%
كونستر =...
تعيين conn = Server.CreateObject(ADODB.Connection)
كون.فتح كونستر
مجموعة rs = server.CreateObject(adodb.recordset)
rs.open حدد أعلى 10 * من [اسم الجدول الخاص بك]،conn،1،1
إذا لم يكن (rs.eof وrs.bof) ثم
العمود = rs.fields.count
الاستجابة.الكتابة(<جدول الخلايا='0' تباعد الخلايا='0'>)
Response.Write(<thead><td>الرقم التسلسلي</td>)
لكل f في حقول rs
استجابة.كتابة(<td> & f.name & </td>)
التالي
استجابة.كتابة(</thead>)
لـ j = 1 إلى rs.recordcount
إذا كان j > 5، فعندئذٍ "إخفاء البيانات الموجودة في العنصر الخامس بعد الاختبار، إذا تم تصدير البيانات التي تم عرضها على أنها لا شيء، فلن يتم تصديرها."
الاستجابة.الكتابة(<tr style='display:none'>)
آخر
استجابة.اكتب(<tr>)
نهاية إذا
استجابة.كتابة(<td> & j & </td>)
لأني = 0 إلى العمود - 1
الاستجابة.الكتابة(<td> & rs(i) & </td>)
التالي
استجابة.اكتب (</tr>)
rs.movenext
التالي
استجابة.اكتب (</table>)
نهاية إذا
rs. Close
setrs=لا شيء
conn. Close
مجموعة كون = لا شيء
%>
</الجسم>
</html>