用ASP生成Excel数据三种方法（asp如何生成图表）

可能是将一个html 表格变成 Microsoft Excel 格式的最快方法。ContentType 属性通知
浏览器数据要被格式化为何种格式，在这里我们要的格式是Microsoft Excel。当浏览器看到这个属性的值是Excel时，它就提示用户保存或打开这个文件。如果用户选择打开文件，
就启动了Excel并在其中观看数据。为使其工作正确，必须在向Response对象写入任何内容之前设置ContentType 。此语法的例子如下：
　　 Line 1: 〈 %@ LANGUAGE="VBSCRIPT" % 〉
　　 Line 2: Response.ContentType = "application/msexcel"
　　 Line 3: % 〉
　　 点击这里可以得到有关ASP的Response 对象的ContentType属性的更多信息。
　　 当我试图用Internet Explorer 4.x.测试时发现了一个问题，在Microsoft文章 Q185978曾经提到过。 这篇知识库文章的内容可以概括如下：
　　 “如果Internet Explorer 与一个动态生成Word、 Excel或其它活动文档的Web服务器
资源相连接时，Internet Explorer会为此资源发出两个GET 请求。第二个GET 通常没有ses
sion 状态信息、临时 cookies或者已经为客户指定的证明信息。这个错误可能影响到任何
寄宿在Internet Explorer 结构窗口内的本地服务器(EXE) 的活动文档应用程序。它在ISAP
I、 ASP或 CGI 应用程序中发生最为频繁，它们校验HTTP "Content Type" 头文件以识别所
安装的应用程序”。
　　 因此如果你尝试使用session 变量或 cookies， 并使用IE4，就有可能遭遇到这个错
误。经证实，在IE5中这个问题已经得到解决。
　　 一个用逗号分隔开的值文件是将web页面输出到Excel可读格式的第二种选择。这种格
式比ContentType 属性有更大的灵活性。相对于其它方法，CSV还有两个优势：首先，不需
要任何客户机或服务器上的 软件去创建它，第二，文件通常要比一个Excel 文件小。
　　 CSV格式的定义如下：逗号分隔列，回车分隔行。逗号作为分隔符， 也会与包含逗号
的 域（如$1，234）引发一个问题; 这会在将要创建的行中导致一个额外的列。这个问题也
很容易矫正， 方法是在每个结尾处用逗号将域封闭起来。
　　 在提供的例子中把 CreateCSVFile()函数过一遍，就能了解CSV文件是如何创建的。
　　 Line 1: strFile = GenFileName()
　　 Line 2: Set fs = CreateObject("Scripting.FileSystemObject")
　　 Line 3: Set a = fs.CreateTextFile(server.MapPath(".") & "" & strFile &
Line 4: ".csv"，True)
　　 Line 5: If Not oRS.EOF Then
　　 Line 6: strtext = chr(34) & "Year" & chr(34) & "，"
　　 Line 7: strtext = strtext & chr(34) & "Region" & chr(34) & "，"
　　 Line 8: strtext = strtext & chr(34) & "Sales" & chr(34) & "，"
　　 Line 9: a.WriteLine(strtext)
　　 Line 10: Do Until oRS.EOF
　　 Line 11: For i = 0 To oRS.fields.Count-1
　　 Line 12: strtext = chr(34) & oRS.fields(i) & chr(34) Line 13: & "，"
　　 Line 14: a.Write(strtext)
　　 Line 15: Next
　　 Line 16: a.Writeline()
　　 Line 17: oRS.MoveNext
　　 Line 18: Loop
　　 Line 19: End If
　　 Line 20: a.Close
　　 Line 21: Set fs=Nothing
　 Line 22:Response.Write("Click〈 A HREF=" & strFile & ".csv 〉Here〈 /A 〉
　　 Line 23: to get CSV file")
　　 第一行调用GenFileName() 函数创建一个唯一的文件名，有关GenFileName() 函数将
在稍后讨论。
　　 第2行到第4行，用FileSystemObject 对象和CreateTextFile函数将要写入的文本文
件。在这个例子中， 所写入的文件与源文件在同一个路径下，在实际工作中，你也许想要
创建一个单独的路径存储这些文件。
　　 第5-9行产生第一行的标题。因为报告通常都是相同的，我就把列名的代码固定下来，
虽然也有可能读 数据库的列名并使用它们。注意我在各个域中是如何包含逗号的。使用Wri
teLine 函数将它们与一个回 车一起发送到文件中。
　　 第10行到18行在记录集中循环，用引号给每个域做出标志，后面跟着一个逗号。然后W
rite函数将每个 域发送到文件。WriteLine 用回车结束每一行。
　　 最后几行关闭文件、释放对象、在页面上放置一个链接以便能够找回它。
　　 当你点击生成的链接时，就会被提示保存或打开。如果选择打开，文件就在Excel 中
打开（假设计算机 上已经安装）。如果选择了保存，就将这个文本文件保存到存储设备上
并将它输入各个应用程序中。
　　 我所讨论的最后一种方法是用Microsoft Excel 对象创建一个实际的Excel(.xls ) 文
件。要使用这些对象要求在Web 服务器上安装Excel。使用这些控制可以对格式化有更多的
控制（如字体、颜色等）， 并允许你进行一切在真正的Excel 应用程序中可以进行的操
作。一定要监视你的服务器的性能，因为 Excel 可能成为一个相当大的对象并对性能造成
冲击，这取决于你如何使用它以及服务器有多忙。
　　 我发现在Excel 对象上得到更多信息的最快最简便的方法是使用Visual Basic对象浏
览器，观看对象 并使用上下文敏感帮助来得到更多细节。使用这个对象浏览器时：启动Vis
ual Basic， 创建一个工程文件， 增加一个对Microsoft Excel对象库的引用。在 View 菜
单下，可以选择一个对象浏览器然后指定Excel 库，看到所有可用的对象。按 F1可得到当
前标题的上下文敏感帮助。
　　 在所提供的样本中把CreateXlsFile() 函数过一遍，就可以看到如何创建一个Excel文
件。 基本步骤与 创建 CSV文件的基本相同，只是所创建的是一个Excel工作表。
Line 1: Dim xlWorkSheet
Line 2: Dim xlApplication
Line 3: Set xlApplication = Server.CreateObject("Excel.Application")
Line 4: xApplication.Visible = False
Line 5: xlApplication.Workbooks.Add
Line 6: Set xlWorksheet = xlApplication.Worksheets(1)
Line 7: xlWorksheet.Cells(1，1).Value = "Year"
Line 8: xlWorksheet.Cells(1，1).Interior.ColorIndex = 5
Line 9: xlWorksheet.Cells(1，2).Value = "Region"
Line 10: xlWorksheet.Cells(1，2).Interior.ColorIndex = 5
Line 11: xlWorksheet.Cells(1，3).Value = "Sales"
Line 12: xlWorksheet.Cells(1，3).Interior.ColorIndex = 5
Line 13: iRow = 2
Line 14: If Not oRS.EOF Then
Line 15: Do Until oRS.EOF
Line 16: For i = 0 To oRS.fields.Count-1
Line 17: xlWorksheet.Cells(iRow，i + 1).Value = oRS.fields(i)
Line 18: xlWorkSheet.Cells(iRow，i + 1).Interior.ColorIndex = 4
Line 19: Next
Line 20: iRow = iRow + 1
Line 21: oRS.MoveNext
Line 22: Loop
Line 23: End If
Line 24: strFile = GenFileName()
Line 25: xlWorksheet.SaveAs Server.MapPath(".") & "" & strFile & ".xls"
Line 26: xlApplication.Quit ' Close the Workbook
Line 27: Set xlWorksheet = Nothing
Line 28: Set xlApplication = Nothing
Line 29: Response.Write("Click 〈 A HRef=" & strFile & ".xls 〉Here〈 /A 〉
to Line 30: get XLS file")
　　 第1行和第2行，确定所使用的 Excel对象的维数。
　　 第3行，创建Excel对象。同样，为了工作正确，web服务器上也必须有Excel。
　　 第4行，将Excel的可见性设置为false，这样它就没有界面了。
　　 第5行和第6行，增加一个容纳工作表的工作簿，然后将当前工作表设置成第一个工作
表(这是Excel 在默认状态下创建的)。 还可以用 Worksheet对象的Add 函数增加一个新的
工作表， 这就允许你的 Excel 文件中有多个工作表。
　　 第8-12行，创建工作表的标题。在这个例子中，我们把每个单元的值都设置成适当的
标题，而且把内部 颜色设置成兰色。你还可以用Range对象同时修改多个单元。
　　 第13-23行，提供从记录集装载所有数据的循环。因为第一行中包含标题，我就在电子
数据表的 第二行开始数据。里面的 For循环把每一列装载到行中，并把内部颜色设置为绿
色。外部循环则为 每一行在记录集中进行循环。
　　 第24行， 通过调用GenFileName()函数，与CSV用同样的函数来创建唯一的文件名。
　　 第25行，进行电子表格的实际保存。可以将表格存储为 Excel中指定的多种格式。
　　 下面的3行进行对象的整理。作为一个好的ASP程序员，就一定要整理所有的对象。
　　 最后，我把到 Excel文件的链接放在页面上以便下载。
　　 我创建了一个样本，对以上讨论过的每个技巧进行示范。要安装样本，只需要把所有
的文件复制到服务器上，用 main.html 启动应用程序。在服务器上需要有 Excel以使用"Na
tive Excel" 选项。 样本使用一个Access数据库 (无DSN链接)来存储销售数据。
　　 你可以选择一年或一个地区进行销售报告。最后的选项是你希望如何返回数据。可以
看到以下的屏幕映象：
<p align="center">
　　 下面的表格中是对样本中提供的所有文件的描述。
文件名 描述
DSN-SQL.asp 包含无DSN链接字符串
adovbs.inc 包含ADO常量
TestDB.mdb 包含销售数据的一个Access97数据库。包含的销售表格有3个域：year--Tex
t， region--Text，sales-amt--numeric
main.html 本文件创建画面的框架并装载初始页
welcome.html 本文件只在第一次创建结果通常所在的画面框架时使用
request.html 包含一个表单，用来收集用户的选择来建立报告
runquery.asp 应用程序的内脏。本文件建立SQL声明、确定客户机如何请求将被返回的数
据、执行SQL并按照请求返回数据
　　 大部分代码都相当容易理解。但是我还是要讨论runquery.asp 文件中的一些函数。我
已经演示过如何创建CSV和Excel 文件。
　　 GenHTML()函数建立一个被请求数据的HTML表格。这个函数既用来作为HTML返回也用于
ContentType请求。为了 ContentType请求工作，你要注意 Response.ContentType = "appl
ication/msexcel" 是将要执行的最初几行之一。
　　 GenFileName()函数使用系统日期建立文件名的第一部分。这个文件名将是唯一的，这
样当你试图存储 文件时就可以避免许多麻烦。扩展名( CSV或XLS )在存储文件时应用，这
样就允许同一个函数产生两种类型的文件。
　　 BuildSQL()函数使用表单变量来建立一个SQL声明，与用户的请求相匹配，并将其返回
调用者。
　　 Recordset在脚本的最顶部被打开，因为它对于所选择的显示类型是独立的。recordse
t处理从BuildSQL()函数调用生成的SQL声明，使用一个到Access 97的无DSN链接。
　　 〈 BODY 〉标记中包含的代码仅仅是两个 "if….then" 声明，确定用户所要求的显示
方法。 if声明分流到生成正确返回类型的函数，该返回类型是基于用户的"ReturnAS" 选
择。接着清除链接和记录集对象。
　　 注意: 这个样本没有涉及到用户下载web服务器上创建的文件之后，对这些文件的维护
问题。我建议 这种维护要基于一段时间，时间到期后就删除这些文件。 我不主张把移走这
些文件的负担转嫁到客户身上(通过页面上的链接)，因为他们很容易忘记这些事情。

　　 结论
　　 本文演示了将数据输出到一个Excel可读格式的三种方法。 我相信根据用户的不同需
要，这三种方法都有其可用之地。如果你愿意快速但不漂亮地输出到Excel，就用ContentTy
pe好了。如果你想要一个格式有限但能够装载到许多不同应用程序中的文件，那么CSV格式
适合你。如果你更喜欢包含完整格式、图标或特殊Excel功能，那么创建一个完全的Excel电
子表格是适合的途径。 但愿这些方法能帮助其他程序员满足客户的要求或者至少帮助你选
择正确的途径。

iOS平台最强V2Ray客户端深度评测：解锁网络自由的最佳选择

在当今数字化时代，网络自由与数据隐私已成为全球互联网用户的核心诉求。随着网络审查和地理限制日益严格，越来越多的用户开始寻求可靠的翻墙工具来突破这些限制。而在众多代理工具中，V2Ray凭借其卓越的隐蔽性、灵活性和稳定性脱颖而出，成为技术爱好者和隐私重视者的首选。对于iOS用户而言，选择一款优秀的V2Ray客户端至关重要——它不仅要能稳定连接，还要兼顾易用性、功能丰富度和隐私保护。本文将深入评测四款备受推崇的iOS端V2Ray客户端：V2RayU、Shadowrocket、Quantumult X和Kitsunebi，从界面设计、协议支持、稳定性到高级功能等多个维度进行全面分析，帮助你找到最适合自己需求的那一款。

一、V2RayU：新手友好的全能选手

作为App Store上评价最高的V2Ray客户端之一，V2RayU以其极简设计和稳定表现赢得了大量普通用户的青睐。这款应用完美诠释了"简单不等于简陋"的设计哲学——即使没有任何技术背景的用户也能在几分钟内完成配置并开始使用。

核心优势：
1. 直观的视觉交互：采用iOS原生风格设计，服务器配置页面逻辑清晰，所有关键参数（地址、端口、用户ID等）都有明确标注，避免了专业术语带来的困惑。
2. 军工级稳定性：测试期间连续72小时高强度使用未出现断连情况，智能路由算法能自动规避被封锁的节点，保持连接畅通。
3. 多协议兼容：除原生V2Ray协议外，还完美支持VMess、Shadowsocks、Socks等主流协议，用户可根据网络环境灵活切换。

使用体验：
首次启动时会引导用户完成基础配置向导，支持扫描二维码快速导入节点信息。连接状态页面实时显示延迟和流量消耗，长按节点可进行ping测试。特别值得一提的是其"智能模式"能自动区分国内外流量，既保证访问速度又节省境外流量。

二、Shadowrocket：技术极客的瑞士军刀

如果说V2RayU是面向大众的"傻瓜相机"，那么Shadowrocket就是专业用户的"单反相机"。这款售价2.99美元的应用虽然学习曲线较陡，但提供的深度定制能力让技术爱好者趋之若鹜。

突破性功能：
- 应用级代理规则：可为每个APP单独设置代理策略（如让Twitter走美国节点，Line走日本节点），这在多账号管理场景下尤为实用
- 流量嗅探与重写：高级用户可以通过自定义规则修改特定网络请求，实现去广告、修改User-Agent等黑科技操作
- 底层协议栈优化：采用独特的TCP Fast Open技术，使连接建立时间缩短40%以上

专业场景应用：
跨境电商运营者可以设置不同店铺账号走对应国家节点，避免关联风险；科研工作者能配置学术数据库域名直连，保证文献下载速度；海外华人则可实现国内视频APP走代理解锁区域限制，国外APP直连降低延迟。

三、Quantumult X：企业级解决方案

当需求上升到团队协作或复杂网络环境时，Quantumult X展现出无可替代的价值。这款被网友称为"代理终结者"的应用，其功能深度甚至超过部分桌面端专业软件。

企业级特性：
1. 可视化策略组：通过拖拽方式创建包含故障转移、负载均衡等高级策略的代理组，支持设置触发切换的延迟阈值
2. 全链路监控：提供从DNS查询到TCP连接建立的完整时序图，便于排查网络问题
3. 配置云同步：团队成员可通过iCloud共享标准化配置，确保所有设备策略一致

实测数据：
在模拟跨国企业办公环境的测试中，Quantumult X的智能分流使视频会议流量始终优先传输，平均延迟比常规客户端低58ms。其独创的"网络拓扑感知"功能能自动选择物理距离最近的接入点，在欧亚跨洲连接中使吞吐量提升32%。

四、Kitsunebi：隐私保护的终极形态

在斯诺登事件后崛起的Kitsunebi，将安全理念贯彻到每个设计细节。其名称源自日语"狐火"，寓意在网络迷雾中为用户点亮安全之路。

安全架构亮点：
- 内存加密技术：敏感配置信息始终以加密形态存在于内存中，即使设备被取证分析也难以提取
- 双向流量伪装：创新性地将V2Ray流量模拟为普通视频流，有效对抗深度包检测(DPI)
- 硬件级防火墙：基于iOS网络扩展框架开发的内核级过滤系统，可拦截恶意域名请求

隐私测试表现：
在专业网络安全公司的模拟攻击测试中，Kitsunebi成功抵御了包括时间戳分析、流量特征匹配在内的17种检测手段。其"幽灵模式"下，即使监控者拥有网络管理员权限，也无法确认用户是否在使用代理服务。

五、终极选购指南

根据使用场景的差异，我们给出以下推荐方案：
- 日常社交娱乐：V2RayU（平衡易用性与功能性）
- 跨境商务办公：Shadowrocket+Quantumult X组合使用（前者日常使用，后者处理复杂需求）
- 高风险地区：Kitsunebi（优先保障安全）
- 技术开发者：Quantumult X（完整API支持）

需要特别提醒的是，所有客户端都需要配合可靠的V2Ray服务节点才能发挥最佳效果。建议选择支持IPv6、具有多个入口点的付费服务，避免使用来路不明的免费节点。

结语：技术赋予的自由权利

在这个数据即权力的时代，V2Ray客户端已不仅是简单的工具，而是守护数字世界基本权利的盾牌。本文评测的四款应用各有所长，但共同点是都体现了开发者对网络自由的深刻理解。正如互联网先驱约翰·佩里·巴洛在《网络空间独立宣言》中所说："我们正在创造一个新世界，在那里任何人都能随时随地表达其信仰。"选择适合自己的V2Ray客户端，就是选择在这个新世界中守护自己的话语权。

无论最终选择哪款应用，都请记住：技术应当用于拓展认知边界，而非突破法律底线。愿每位读者都能在遵守当地法规的前提下，安全、自由地探索互联网的无限可能。