موصى به: كيفية استخدام ASP للتعامل مع استعلام الكلمات المتعددة في تطوير الويب ، غالبًا ما أواجه أزواج كلمات رئيسية متعددة من استعلامات الحقل الفردية ، والتي عادة ما أقوم بتنفيذها من خلال المصفوفات الديناميكية. بالطبع ، يتم فصل الكلمات الرئيسية المتعددة بشكل عام عن طريق المسافات أو. أفترض أن كلمات رئيسية متعددة مفصولة بالمسافات ، وسلسلة الكلمات الرئيسية هي مفتاح ، والرمز المحدد هو
تشرح هذه المقالة كيفية استخدام ASP لإخراج ملفات Excel. تتمثل إحدى طرق استخدام Excel في ASP في ربط ملف Excel كقاعدة بيانات ، وتشبه العملية عملية Access Database. لكن هذه الطريقة ليست مفيدة دائمًا ، يجب أن تكون Excel ليست قاعدة بيانات علائقية. بالنسبة لتنسيق ثابت ، يحتوي هذا التنسيق على دمج خلايا معقدة ، وأنماط خط الحدود ، والأنماط ، وعلاقات الصيغة بين الخلايا ، وما إلى ذلك. أعتقد أن أسهل شيء يجب فهمه هو فتح ملف مع قوالب محددة بالفعل في الخلفية ، ثم إدراج البيانات عند الحاجة ، وحفظ ، والإخراج ...
الطريقة المذكورة هنا هي إنشاء كائن Excel مباشرة ، والذي يمكنه إجراء عمليات مختلفة على مستند Excel بشكل أكثر ملاءمة في الخلفية.
يحتاج جانب الخادم أيضًا إلى تعيين أذونات تشغيل مكونات COM. اكتب DCOMCNFG على سطر الأوامر ، وأدخل واجهة تكوين مكون COM. حدد Microsoft Excel وانقر فوق زر الخصائص. حدد كل الخيارات الفردية الثلاثة لتخصيص. أضف الجميع إلى جميع الأذونات أثناء التحرير. أعد تشغيل الخادم بعد حفظه.
من المهم جدا. إذا لم تقم بإعداده ، فلن تتمكن أجهزة الكمبيوتر الأخرى من إكمال إنشاء كائن Excel.
ومع ذلك ، فإن هذه الطريقة لديها أيضا عيب. في عمليتي الفعلية ، إذا كان هناك ملف Excel مفتوحًا على الخادم ويتم تنفيذ نفس الملف ، فسيحدث خطأ. ما زلت لا أفهم السبب. قد يكون هناك بعض الأماكن التي لم يتم إعدادها بشكل صحيح.
بالإضافة إلى ذلك ، فإن تنسيق رمز المثال في المقالة المذكورة أعلاه غير مكتمل للغاية ، والعديد من فواصل الخط والمساحات غير دقيقة. إذا اكتمل الرمز ، فما عليك سوى انسخ الرمز وقم بتشغيله بنجاح. ثم البحث ببطء وتعديله ، سيكون من السهل البدء. الآن الرمز المعدل هو كما يلي (الجزء الذي يتم فيه حذف الرسم البياني):
ما يلي هو المحتوى المقتبس:
<٪
عند استئناف الخطأ التالي
Straddr = server.mappath (.)
تعيين objexcelapp = createObject (excel.application)
objexcelapp.displayalerts = خطأ
objexcelapp.application.visible = false
objexcelapp.workbooks.open (Straddr &/templet/null.xls)
تعيين objexcelbook = objexcelapp.activeworkbook
تعيين Objexcelsheets = objexcelbook.worksheets
تعيين objexcelsheet = objexcelbook.sheets (1)
Objexcelsheet.range (B2: K2) .value = Array (Week1 ، Week2 ، Week3 ، Week4 ، Week5 ، Week6 ، Week7)
Objexcelsheet.range (B3: K3) .value = صفيف (67،87،5،9،7،45،45،54،54،10)
Objexcelsheet.range (B4: K4) .value = صفيف (10،10،8،27،33،37،50،54،10،10)
Objexcelsheet.range (B5: K5). value = صفيف (23،3،86،64،60،18،5،1،36،80)
objexcelsheet.cells (3،1) .value = InternetExplorer
objexcelsheet.cells (4،1). value = netscape
objexcelsheet.cells (5،1). value = آخر
Objexcelsheet.range (B2: K5) .select
SEVEAS (Straddr و/temp/excel.xls)
objexcelapp.quit
تعيين objexcelapp = لا شيء
٪>
<! doctypehtmlpublic-// w3c // dtdhtml4.0transternal // en>
<html>
<head>
<title> NewDocument </itlem>
<metaname = generatorContent = microsoftfrontpage5.0>
<metaname = upultContent =>
<metaname = الكلمة الرئيسية =>
<metaname = descriptionContent =>
</head>
<body>
</body>
</html>
بعد تشغيل ملف Excel ، تحتاج إلى إخراج الملف. في الواقع ، استخدم إعادة توجيه ASP إلى طريقة Excel. في بعض الأحيان يتم فتحه مباشرة في IE ، وأحيانًا يكون تنزيلًا منبثقًا وفتح نافذة حفظ. إذا كنت بحاجة إلى فتحه مباشرة في IE ، فاستخدم FSO لتحميل ملف Excel ، ثم إخراجه في IE.
ما يلي هو المحتوى المقتبس:
<٪
Dim FSO ، filext
strfilepath = f: /aspxuexi.doc
set fso = server.createObject (scripting.filesystemObject)
filext = fso.getextensionName (strfilepath)
تعيين fso = لا شيء
حدد case filext
القضية DOC
MIME = التطبيق/msword
الحالة XLS
MIME = التطبيق/msexcel
نهاية الاختيار
إخراج المكالمات (StrfilePath ، MIME)
###############################################################################################################################################################################.
إخراج الوظيفة (StrfilePath ، MIME)
استجابة. contenttype = mime
const adtypebinary = 1
تعيين OBJStream = server.createBject (ADODB.Stream)
objstream.Open
objstream.type = adtypebinary
objstream.loadfromfile strfilepath
استجابة
objstream.close
اضبط OBJStream = لا شيء
وظيفة نهاية
###############################################################################################################################################################################.
٪>
المشاركة: كيفية عمل بيانات سجل عرض صفحة ASP ASP 1. إنشاء كائن مجموعة سجلات كما يلي: Dim ObjMyrst Set ObjMyrst = server.createObject ("Adodb.Recordse
صفحتان في إجمالي الصفحة السابقة 12 الصفحة التالية