初级问题，请问怎么在WEB上导出PDF格式文档，各位大侠帮忙指导指导！

2006-03-13 01:09:15 225 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

zbw_2006 墨衍会员 · AI 创作全网分发关注 + 加入社区

Python爬虫实战：如何优雅地处理BOSS直聘的反爬机制与Cookie失效问题本文详细介绍了如何通过Python爬虫技术优雅应对BOSS直聘的反爬机制与Cookie失效问题。从多账号轮换、动态请求头生成到代理IP管理，提供了一套完整的解决方案，帮助开发者构建稳定高效的数据采集系统，有效提升爬虫成功率与数据质量。阅读详情

我查资料，说得用邮箱，那代码怎么编呢?
还有如果我想让客户端直接打开PDF格式文档，就是说传过去的是PDF格式文档，而不是HTML。那么代码怎么编呢？
请各位高手指点！
在此感激不尽！

...全文

M×N扫描序列图像拼接、大视场图像拼接、全景图像拼接、2D网格拼图方法、累计误差消除（显微图像/航拍图像等） M×N序列图像完整拼接方法前言一、最朴实的一般方法二、广度优先搜索算法1.引入库2.读入数据整体路径优化算法前言 1、网上有很多介绍图像两两拼接的算法，但是缺少对M×N张子图两两相对位置关系获得整体误差较小，肉眼下无明显错位的完整图像的算法实现。 2、由于拼接算法的不稳定可能会产生不同程度的误差，那么如何需要选择(搜索)误差较小拼接路径。一、最朴实的一般方法示例：pandas 是基于NumPy 的一种工具，该工具是为了解决数据分析任务而创建的。二、广度优先搜索算法 1.引入库代码如下（示阅读详情

zbw_2006

图表区 4,818 成员 14,133 内容

+ 关注 + 加入社区

切换为时间正序

echoxue 2006-04-07

打赏
举报

zbw_2006 2006-03-21

打赏
举报

谢谢楼上，我是CSDN中新的成员，感觉到这里太棒了，所有问题都得到了回答，太谢谢你们了，希望以后多多指教。
再问一下。怎么结贴，散分呢？

Pek_zfs 2006-03-15

打赏
举报

这是我现在正在用的代码，希望对你有帮助。

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim strDeptCode As String = "-1"
Dim strAcTypeID As String = "-1"
Dim ds As New DsCOAInfoByDeptCode
Dim strSql As String
Dim strCon As String

'自行填充数据集ds()
strCon = System.Configuration.ConfigurationSettings.AppSettings.Get("CMPSDBConnection")
Dim CN As New Data.OracleClient.OracleConnection(strCon)

CN.Open()

If strDeptCode = "-1" And strAcTypeID = "-1" Then
strSql = "SELECT rownum Row_Num,c.TECH_AUTH_NAME,c.TECH_AUTH_ID,d.C_NAME as P_NUMBER,d.COMP_AUTH_ID,e.DEPT_NAME,e.DEPT_CODE" & _
" FROM CM_T5004 c," & _
" (SELECT a.COMP_AUTH_ID,b.C_NAME,b.DEPT_CODE" & _
" FROM CM_T5001 a,CM_T1002 b" & _
" WHERE b.DEPT_CODE IS NOT NULL AND a.AC_TYPE_ID IS NOT NULL AND a.P_CODE = b.P_CODE) d," & _
" (SELECT * FROM CM_T1001) e" & _
" WHERE c.TECH_AUTH_ID=d.COMP_AUTH_ID AND c.IN_EX='I' AND e.DEPT_CODE=d.DEPT_CODE" & _
" ORDER BY c.TECH_LEVEL,c.TECH_AUTH_NAME"
Else
strSql = "SELECT rownum Row_Num,c.TECH_AUTH_NAME,c.TECH_AUTH_ID,d.C_NAME as P_NUMBER,d.COMP_AUTH_ID,e.DEPT_NAME,e.DEPT_CODE" & _
" FROM CM_T5004 c," & _
" (SELECT a.COMP_AUTH_ID,b.C_NAME,b.DEPT_CODE" & _
" FROM CM_T5001 a,CM_T1002 b" & _
" WHERE b.DEPT_CODE='" & strDeptCode & "' AND a.AC_TYPE_ID='" & strAcTypeID & "' AND a.P_CODE = b.P_CODE) d," & _
" (SELECT * FROM CM_T1001) e" & _
" WHERE c.TECH_AUTH_ID=d.COMP_AUTH_ID AND c.IN_EX='I' AND e.DEPT_CODE=d.DEPT_CODE" & _
" ORDER BY c.TECH_LEVEL,c.TECH_AUTH_NAME"
End If

Dim da As New Data.OracleClient.OracleDataAdapter(strSql, CN)
da.Fill(ds, "CM_T5001")

oRptd.Load("D:\MyWork-zfs\CMPS-CrystalReport\CMPSCrystalReport\Report\RptFlyerTechnicAnalyse.rpt")
oRptd.Refresh()

'使用“报表引擎”对象模型将填充的数据集,传递给报表

oRptd.SetDataSource(ds)

CrystalReportViewer1.ReportSource = oRptd
'把水晶报表文件生成打印文件
SavetoDoc(3, "RptFlyerTechnicAnalyse")
End Sub

Public Sub SavetoDoc(ByVal Format As Integer, _
ByVal strRptFN As String)
Dim Fname As String
Dim r As New Random
Dim iflag As Integer = r.Next(10000)

Fname = strRptFN
Fname += iflag.ToString()

Dim ExportPath As String
ExportPath = Request.PhysicalApplicationPath + "Exported\"
If (Not Directory.Exists(ExportPath)) Then
System.IO.Directory.CreateDirectory(Request.PhysicalApplicationPath + "Exported\")
End If

Dim crDiskFileDestinationOptions As New DiskFileDestinationOptions
Dim crExportOptions As ExportOptions = oRptd.ExportOptions
With crExportOptions
.DestinationOptions = crDiskFileDestinationOptions
.ExportDestinationType = ExportDestinationType.DiskFile
Select Case Format
Case 0
.ExportFormatType = ExportFormatType.Excel

Dim excelFormatOpts As New ExcelFormatOptions
excelFormatOpts.ExcelTabHasColumnHeadings = False
excelFormatOpts.ExcelAreaType = AreaSectionKind.Detail
excelFormatOpts.ExcelUseConstantColumnWidth = True
excelFormatOpts.ExcelConstantColumnWidth = 2500.0
.FormatOptions = excelFormatOpts

Fname = Fname + ".xls"
Case 1
.ExportFormatType = ExportFormatType.WordForWindows
Fname = Fname + ".doc"
Case 2
.ExportFormatType = ExportFormatType.HTML40
Dim HTML40Formatopts As New HTMLFormatOptions
With HTML40Formatopts
.HTMLBaseFolderName = ExportPath
.HTMLEnableSeparatedPages = True
.HTMLHasPageNavigator = True
End With
crExportOptions.FormatOptions = HTML40Formatopts

'Dim rptFileFolder As String = strStoreProcedure + "/"
Dim rptFileFolder As String = Fname + "/"
Fname = rptFileFolder + ".htm"
Case 3
.ExportFormatType = ExportFormatType.PortableDocFormat
Fname = Fname + ".pdf"
End Select
End With

'get valid filename
Fname = Fname.Replace("/", "_")

crDiskFileDestinationOptions.DiskFileName = ExportPath + Fname
oRptd.Export()
Response.Redirect("../../CMPSCrystalReport/Exported/" + Fname)
'Response.Flush()
'Response.Close()

'System.IO.File.Delete("../../CMPSCrystalReport/Exported/" + Fname)
File.Delete(Request.PhysicalApplicationPath + "Exported\" + Fname)
End Sub

xwdd129 2006-03-13

打赏
举报

参考：

如何让Web应用程序在Client端实现导出报表功能
http://blog.csdn.net/xwdd129/archive/2005/07/22/431647.aspx

初级问题，请问怎么在WEB上导出PDF格式文档，各位大侠帮忙指导指导！

相关推荐