asp fpdf试图输出分配给变量的图像

Question

这是我用来在标题中显示图像的代码。我遇到的问题是我想为图像使用一个变量，当我输入变量名称而不是图像名称时，我得到一个错误：

Microsoft JScript 运行时错误“800a138f”

'undefined' 为 null 或不是对象

/EKtestdb/fpdf/fpdf/includes/Basics.asp，第 121 行

    this.Header=function Header() 
  { 
  this.SetY (10) 
  this.SetFont ("Times","",10) 
  //this.Cell (45,5, "HEADER", 0, 0, "L") 
  this.SetFont ("Times","b",14) 
  //this.Cell (190,5, this.title, 0, 0, "C") 
  this.Cell (190,20, this.title, 0, 0) 
  this.SetFont ("Times","",10) 
  this.Image('logoSM1.jpg',165,3,33) 
  this.Image( techpic ,165,3,33)

这是 basics.asp 第 121 行的代码：

this.strrpos=function strrpos(s,ch){ 
 res = s.lastIndexOf(ch) 
 if (res>0-1){return res}else{return false} 
} 
this.strpos=function strpos(s,ch,start){ 
 if (arguments.length<3){start=0} 
 res = s.indexOf(ch,start); 
 if (res>-1){return res}else{return false} 
}

如果您只想显示图像，则此行应该可以：

this.Image('logoSM1.jpg',165,3,33)

但是对于使用变量而不是图像名称，有人可以帮忙吗？

Answer 1

我正在更新我的答案，因为我没有意识到您同时使用 JScript 和 VBscript。您不需要添加 因为您的所有代码都已经在 J​​script 端的 中。

我不确定您遇到问题的原因，但查看您添加的代码，我没有看到 LoadModels()，fpdf 的文档说如果您使用的是 vbscript 页面，您需要它。

http://www.aspxnet.it/public/Default.asp?page=174&idp=62

我也不确定这是否重要，但也许你可以添加一个开始和结束单引号：

this.Image( "'" + techpic + "'" ,165,3,33);

我还注意到this.Header=function Header() 下的所有代码后面都没有包含分号，这是 JSCript 所必需的。

Answer 2

我遇到的问题是变量声明，我不知道为什么，但我必须在 pdf.asp 文件的第一部分声明变量，以便在标题中输出一个变量。对于在页脚中输出，情况并非如此，我仍然不确定为什么这里是 fpdf.asp 代码的示例：

this.Header=function Header()
        {
        this.SetY (10);
        this.SetFont ("Times","b",14);
        this.Cell (190,20, this.title, 0, 0);
        this.SetFont ("Times","",10);
        //this.Image('logoSM1.jpg',165,3,33);
        this.Image( techpic2 ,165,3,33);
        }
    this.Footer=function Footer()
        {
        this.SetY (-15)
        this.SetFont ("Times","i",10)
        this.Cell (190, 5, "", 0, 1)
        this.Cell (190, 0, "", 1, 1)
        this.Cell (45, 5, EmployeeName + " - " + EmployeeNo, 0, 0, "L")
        this.Cell (100, 5, this.PageNo() + "/{nb}", 0, 0, "C")
        this.Cell (45, 5, "", 0, 0, "R")            
        }

在上面的代码中，页脚将检索 EmployeeName 的值并正确输出，但在页眉中将不会检索 techpic2 的值。在techpic2上面的那一行中，图片成功显示在这里是pdf.asp代码的示例：

strSQL = "SELECT * FROM employee_course_vendortraining_view "  

objRS.Open strSQL, objConn

%>

<!--#include file="fpdf.asp"-->

<%

Set pdf=CreateJsObject("FPDF")

pdf.CreatePDF()

pdf.SetPath("fpdf/")

'------pdf.SetFont "Arial","",16

pdf.Open()

pdf.AddPage()


if (objRS.EOF) then

else

    Do Until objRS.EOF = True

    EmployeeNo = objRS("EmployeeNo")
    EmployeeName = objRS("EmployeeName")
     techpic2 = objRS("techpic2") 

这里的变量都被分配了来自记录集的值，这用于从页脚输出，但不适用于页眉。但是一旦我在下面的示例中声明并设置变量，标题就会正确输出：

strSQL = "SELECT * FROM employee_course_vendortraining_view "  

    objRS.Open strSQL, objConn
Dim EmployeeName
    EmployeeName = objRS("EmployeeName")
Dim techpic2
    techpic2 = objRS("techpic2")
    %>

    <!--#include file="fpdf.asp"-->

    <%

    Set pdf=CreateJsObject("FPDF")

    pdf.CreatePDF()

    pdf.SetPath("fpdf/")

为什么页脚可以读取变量但不能读取页眉我仍然不确定为什么但如果其他人遇到问题也许这会有所帮助。