ASP - VBScript عبر COM Interop

المتطلبات الأساسية

مثال “Hello World!” باستخدام VB Script


<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<html>
    <head>
        <title> استخدام Aspose.PDF لـ .NET في نموذج ASP التقليدي</title>
    </head>
<body>

<h3>إنشاء مستند PDF عينة باستخدام Aspose.PDF لـ .NET مع ASP التقليدي وVBScript</h3>

<%

'تعيين الترخيص
Dim lic
Set lic = CreateObject("Aspose.PDF.License")
lic.SetLicense("D:\ASPOSE\Licences\Aspose.Total licenses\Aspose.Total.lic")

'إنشاء مثيل Pdf عن طريق استدعاء مُنشئه الفارغ
Dim pdf
Set pdf = CreateObject("Aspose.PDF.Generator.Pdf")

'إنشاء قسم جديد في كائن Pdf
Dim pdfsection
Set pdfsection = CreateObject("Aspose.PDF.Generator.Section")

'إضافة القسم إلى كائن Pdf
pdf.Sections.Add(pdfsection)

'إنشاء كائن نص
Dim SampleText
Set SampleText = CreateObject("Aspose.PDF.Generator.Text")

'إضافة جزء نصي إلى كائن النص
Dim seg1
Set seg1 = CreateObject("Aspose.PDF.Generator.Segment")

'تعيين بعض المحتوى للجزء
seg1.Content = "HelloWorld باستخدام ASP وVBScript"

'إضافة الجزء (بلون نص أحمر) إلى الفقرة
SampleText.Segments.Add(seg1)

'إضافة فقرة النص إلى مجموعة الفقرات لقسم
pdfsection.Paragraphs.Add(SampleText)

'حفظ مستند PDF
pdf.Save("d:\pdftest\HelloWorldinASP.pdf")

%>

    </body>
</html>

استخراج النص باستخدام VBScript