ASP教程之ASP若何经由过程OWC把网页数据导出EXECL文件...
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同，ASP拥有应用系统所有权，用户拥有使用权，应用系统集中放在ASP的数据中心中，集中管理，分散使用，以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务，实现规模效益。数据|网页|owc ASP经由过程OWC组件把网页数据导出EXECL文件,完成代码以下:<%
'先要用regsvr32.exe msowc.dll注册owc组件(msowc.dll装置office2000后就有了,在office的装置目次下搜刮*owc*.chm可找到这关于owc的匡助文档)
Dim objOWC
Dim ExeclFileName
ExeclFileName = server.mappath("ExeclText.xls")
Set objOWC = Server.CreateObject("OWC.Spreadsheet")
With objOWC
.cells(1,1) = "以下数据来自企业财富［不锈钢报价买卖平台］"
.cells(1,5) = "定货号:No.2006072815350096014"
.range("a1:d1").merge()
.range("e1:g1").merge()
.range("e1:g1").HAlignment = 3
.range("a1:g1").rowHeight=14.25*1.33
.range("a1:g1").Font.Name = "宋体"
.range("a1:g1").Font.Size = 9
.range("a1:g1").VAlignment = 1
.range("a1:g1").Borders(1).weight =1 '仅显示下边框 1,2,3,4分离对应右，下，左，上四个边框(顺时针)
.range("a1:g1").Borders.Color = "Black"
.cells(2,1) = "上海精铸不锈钢成品无限公司"
.range("a2:g2").merge()
.range("a2:g2").Font.Name = "黑体"
.range("a2:g2").RowHeight = 50
.range("a2:g2").Font.Size = 14
.range("a2:g2").HAlignment = 2
.range("a2:g2").VAlignment = 1
.range("a2:g2").Font.Bold = true
.cells(3,1) = "Shang Hai Jing Zhu Bu Xiu Gang Zhi Pin You Xian Gong Si"
.cells(4,1) = "德律风:021-63609459 传真:021-63609453 地址:上海厦路径180号-3"
.range("a3:g3").merge()
.range("a4:g4").merge()
.range("a3:g3").Font.Name = "Arial"
.range("a4:g4").Font.Name = "宋体"
.range("a3:g4").Font.Size = 10
.range("a3:g4").RowHeight = 25
.range("a3:g4").HAlignment = 2
.range("a3:g4").VAlignment = 1
.cells(5,1) = "订 货 单"
.range("a5:g5").merge()
.range("a5:g5").Font.Name = "黑体"
.range("a5:g5").Font.Size = 16
.range("a5:g5").HAlignment = 2
.range("a5:g5").VAlignment = 1
.range("a5:g5").RowHeight = 30*1.33
.range("a5:g5").Font.Bold = true
.cells(6,1) = "序号"
.cells(6,2) = "产物称号"
.cells(6,3) = "产物规格"
.cells(6,4) = "单元"
.cells(6,5) = "数目"
.cells(6,6) = "单价(含税)"
.cells(6,7) = "算计"
.range("a6:g6").Font.Name = "宋体"
.range("a6:g6").Font.Size = 10
.range("a6:g6").Font.Bold = True
.range("a6:g6").VAlignment = 1
.range("a6:g6").HAlignment = 2
.range("a6:g6").RowHeight = 18 *1.33
.range("e6:g6").HAlignment = 3
For i = 1 to 5
.cells(6+i,1) = i
.cells(6+i,2) = "301A不锈钢无缝钢管"
.cells(6+i,3) = "22*2.5"
.cells(6+i,4) = "Kg"
.cells(6+i,5) = "1.00"
.cells(6+i,6) = "0.00"
.cells(6+i,7) = "0.00"
Next
.range("a7:d" & 6+i).HAlignment = 2
.range("a6:g" & 6+i+1).Borders.Weight = 1
.range("a6:g" & 6+i+1).Borders.Color = "Black"
.cells(6+i,1) = "总计:"
.range("a" & 6+i & ":d" & 6+i).merge()
.range("a" & 6+i ).HAlignment = 1
.cells(6+i,5) = "5.00"
.cells(6+i,7) = "0.00"
.cells(6+i+1,1) = "发卖金额(大写):零元零角零分"
.range("a" & 6+i+1 & ":g" & 6+i+1).merge()
.range("b6:b6").ColumnWidth = 18*10
.range("f6:f6").ColumnWidth = 7.5*10
.range("a7:g" & (6+i+2)).Font.Size = 10
.range("a7:g" & (6+i+2)).Font.Name = "宋体"
.cells(6+i+2,1) = "需方信息"
.range("a" & 6+i+2 & ":g" & 6+i+2).merge()
.range("a" & 6+i+2 & ":g" & 6+i+2).RowHeight = 20 *1.33
.range("a" & 6+i+2 & ":g" & 6+i+2).HAlignment = 2
.range("a" & 6+i+2 & ":g" & 6+i+2).VAlignment = 1
.range("a" & 6+i+2 & ":g" & 6+i+2).Font.Size = 12
.range("a" & 6+i+2 & ":g" & 6+i+2).Font.Name = "黑体"
.cells(6+i+3,1) = "单元称号:"
.cells(6+i+3,2) = "上海企购收集科技信息开展无限公司(测试数据)"
.range("b" & 6+i+3 & ":g" & 6+i+3).merge()
.range("a" & 6+i+3).HAlignment = 3
.cells(6+i+4,1) = "单元地址:"
.range("a" & 6+i+4).HAlignment = 3
.cells(6+i+4,2) = "上海闵行区莘庄水清三村49号1501室"
.range("b" & 6+i+4 & ":g" & 6+i+4).merge()
.cells(6+i+5,1) = "电话:"
.range("a" & 6+i+5).HAlignment = 3
.cells(6+i+5,2) = "021-54172198"
.cells(6+i+5,3) = "传真:"
.range("c" & 6+i+5).HAlignment = 3
.cells(6+i+5,4) = "021-54172196"
.range("d" & 6+i+5 & ":e" & 6+i+5).merge()
.cells(6+i+5,6) = "接洽人:"
.range("f" & 6+i+5).HAlignment = 3
.cells(6+i+5,7) = "张三"
.range("a" & 6+i+3 & ":g" & 6+i+5).Font.Name = "宋体"
.range("a" & 6+i+3 & ":g" & 6+i+5).Font.Size = 9
.range("a" & 6+i+3 & ":g" & 6+i+5).Borders.Weight=1
.range("a" & 6+i+3 & ":g" & 6+i+5).Borders.Color="Black"
.range("e7:g" & 6+i).NumberFormat = "0.00"
'偶的版权信息^_^(QQ:278919507)
.cells(6+i+6,1) = "Powered by Jimmy(菩提树下的杨过) QQ:278919507 "
.range("a" & 6+i+6 & ":g" & 6+i+6).merge()
.range("a" & 6+i+6 & ":g" & 6+i+6).HAlignment = 3
.range("a" & 6+i+6 & ":g" & 6+i+6).RowHeight = 30*1.33
.range("a" & 6+i+6 & ":g" & 6+i+6).Hyperlink.Address = "http://blog.1jq.net"
End With
call objOWC.ActiveSheet.Export(ExeclFileName,0)
Set objOWC = Nothing
Response.Write "<a href='" & ExeclFileName & "' target=_blank>" & ExeclFileName & " 生成终了</a>"
%>
使用filesystemobject，可以对服务器上的文件进行操作，浏览、复制、移动、删除等。有ado的支持，asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样，管理远程主机上的数据库，对表格、记录进行各种操作。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。 尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
页:
[1]