如何创建一个pdf文件

swmozowtfl · *发表于* 2015-7-10 20:45:48

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

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

GoodyFouppy · *发表于* 2016-1-27 15:41:31

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

mwxny · *发表于* 2016-1-27 15:41:55

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

seazvyt · *发表于* 2016-1-27 15:42:20

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

GoodyFouppy · *发表于* 2016-1-27 15:42:20

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

wwzcdenleclv · *发表于* 2016-1-27 15:42:24

这日子没法过了....

alapScady · *发表于* 2016-2-18 19:41:46

呵呵　　我傻了‘～～哈哈

Mqokjdvq · *发表于* 2016-2-18 19:41:46

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

buingeEvineus · *发表于* 2016-2-18 19:42:26

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

mwxny · *发表于* 2016-2-18 19:43:07

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

如何创建一个pdf文件

猜你喜欢

回复|共 9 个

回复

快捷导航