如何创建一个pdf文件

<%
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

        注：更多精彩教程请关注三联设计教程 栏目，
更多技术文章信息请查看： 技术文章

做为老人！在吧里我都懒的都不想说话！送完经验我就走！

嘻嘻~` 要是只看你的话~`~`` 很容易让人家以为你也跟偶们一样是天使类~`（偷笑中````````

出来混　迟早都是要灌的——不灌水怎么混啊

看完楼主的帖子，我的心情竟是久久不能平静

这日子没法过了....

呵呵　　我傻了‘～～哈哈

嘿...反了反了,,,,

嘻嘻~` 要是只看你的话~`~`` 很容易让人家以为你也跟偶们一样是天使类~`（偷笑中````````

这个论坛值得推荐，给了我们这么好的一个平台