欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

如何创建一个PDF文件?

程序员文章站 2022-10-28 10:47:08
 <%option explicitsub checkxldriver()  &nbs...

 

<%
option explicit
sub checkxldriver()
      on error resume next

      dim vconnstring
      dim oconn, oerr

      vconnstring = "driver={microsoft excel driver (*.xls)};dbq=nul:"
      '
连接nul.

      set oconn = createobject("adodb.connection")
      oconn.open vconnstring

      for each oerr in oconn.errors
     '
如果excel程序报告"文件创建失败",别担心,这表示它正在正常运行呢.

            if oerr.nativeerror = -5036 then
                  exit sub
            end if
      next

      response.write " mdac
供应商或驱动程序不可用,请检查或重新安装!<br><br>"

      response.write hex(err.number) & " " & err.description & "<br>"
      for each oerr in oconn.errors
            response.write hex(oerr.number) & " " & oerr.nativeerror & " " &
oerr.description & "<br>"
      next
      response.end

end sub

function getconnection(vconnstring)
      on error resume next

      set getconnection = server.createobject("adodb.connection")
      getconnection.open vconnstring

      if err.number <> 0 then
            set getconnection = nothing
      end if

end function

function optiontag(vchoice,vtrue)
      dim vselected

      if vtrue then
            vselected = "selected"
      end if

      optiontag = "<option " & vselected & ">" & _
            server.htmlencode(vchoice) & "</option>" & vbcrlf

end function

function ischecked(vtrue)
      if vtrue then
            ischecked = "checked"
      end if
end function

function bookoptions(vxlfile)
      dim vserverfolder
      dim ofs, ofolder, ofile

      dim vselected

      vserverfolder = server.mappath(".")

      set ofs = server.createobject("scripting.filesystemobject")
      set ofolder = ofs.getfolder(vserverfolder)

      for each ofile in ofolder.files
            if ofile.type = "microsoft excel worksheet" then
                  vselected = (ofile.name = vxlfile)

            bookoptions = bookoptions & _
                  optiontag(ofile.name, vselected)
            end if
      next
      set ofolder = nothing
      set ofs = nothing

end function

function namedrangeoptions(oconn, vxlrange, vtabletype)
      dim oschemars
      dim vselected

      namedrangeoptions = optiontag(empty, empty)

      if typename(oconn) = "connection" then
            set oschemars = oconn.openschema(adschematables)

            do while not oschemars.eof
                  if oschemars("table_type") = vtabletype then
                        vselected = (oschemars("table_name") = vxlrange)
                        namedrangeoptions = namedrangeoptions & _
                              optiontag(oschemars("table_name"), vselected)

                  end if
                  oschemars.movenext
            loop
      end if
end function

function datatable(oconn, vxlrange, vxlhasheadings)
      on error resume next
      const db_e_errorsincommand = &h80040e14

      dim ors, ofield
      dim vthtag, vthendtag

      if vxlhasheadings then
            vthtag = "<th>"
            vthendtag = "</th>"
      else
            vthtag = "<td>"
            vthendtag = "</td>"
      end if

      datatable = "<table border=1>"

      if typename(oconn) = "connection" then
            set ors = oconn.execute("[" & vxlrange & "]")

            if oconn.errors.count > 0 then
                  for each oconnerr in oconn.errors
                        if oconnerr.number = db_e_errorsincommand then
                              datatable = datatable & _
                              "<tr><td>
该范围不存在:</td><th>" & vxlrange & "</th></tr>"
                        else
                              datatable = datatable & _
                              "<tr><td>" & oconnerr.description & "</td></tr>"
                        end if
                  next
            else
                  datatable = datatable & "<tr>"

                  for each ofield in ors.fields
                        datatable = datatable & vthtag & ofield.name & vthendtag
                  next

                  datatable = datatable & "</tr>"

                  do while not ors.eof
                        datatable = datatable & "<tr>"

                        for each ofield in ors.fields
                              datatable = datatable & "<td>" & ofield.value & "</td>"
                        next

                        datatable = datatable & "</tr>"
                        ors.movenext
                  loop     

            end if

[1] [2]  下一页