仓酷云

标题: ASP网站制作之使用owc创建EXECL的例子 [打印本页]

作者: 海妖 时间: 2015-1-16 22:49
标题: ASP网站制作之使用owc创建EXECL的例子
缺点：正版成本价格贵（盗版就不说了）、不够安全，大多数服务器用windows系统，没有linux安全呵呵，这个是我先容制造EXECL的第三种办法了，关于OWC，我在后面的文章里也已有所先容，空话少说，请看代码：

<%
OptionExplicit

ClassExcelGen

PrivateobjSpreadsheet
PrivateiColOffset
PrivateiRowOffset

SubClass_Initialize()
SetobjSpreadsheet=Server.CreateObject("OWC.Spreadsheet")

iRowOffset=2
iColOffset=2
EndSub

SubClass_Terminate()
SetobjSpreadsheet=NothingCleanup
EndSub

PublicPropertyLetColumnOffset(iColOff)
IfiColOff>0then
iColOffset=iColOff
Else
iColOffset=2
EndIf
EndProperty

PublicPropertyLetRowOffset(iRowOff)
IfiRowOff>0then
iRowOffset=iRowOff
Else
iRowOffset=2
EndIf
EndProperty

SubGenerateWorksheet(objRS)

PopulatestheExcelworksheetbasedonaRecordsetscontents
Startbydisplayingthetitles
IfobjRS.EOFthenExitSub

DimobjField,iCol,iRow
iCol=iColOffset
iRow=iRowOffset

ForEachobjFieldinobjRS.Fields
objSpreadsheet.Cells(iRow,iCol).Value=objField.Name
iCol=iCol+1
NextobjField

Displayallofthedata
DoWhileNotobjRS.EOF
iRow=iRow+1
iCol=iColOffset

ForEachobjFieldinobjRS.Fields
IfIsNull(objField.Value)then
objSpreadsheet.Cells(iRow,iCol).Value=""
Else
objSpreadsheet.Cells(iRow,iCol).Value=objField.Value
EndIf

iCol=iCol+1
NextobjField

objRS.MoveNext
Loop

EndSub

FunctionSaveWorksheet(strFileName)
Savetheworksheettoaspecifiedfilename
OnErrorResumeNext
CallobjSpreadsheet.ActiveSheet.Export(strFileName,0)

SaveWorksheet=(Err.Number=0)
EndFunction

EndClass
%>

<%
DimobjRS
SetobjRS=Server.CreateObject("ADODB.Recordset")
objRS.Open"SELECT*FROMtitles","DSN=FooBar"

DimobjExcel
SetobjExcel=NewExcelGen

objExcel.RowOffset=4
objExcel.ColumnOffset=1

objExcel.GenerateWorksheet(objRS)
IfobjExcel.SaveWorksheet(Server.MapPath("foo.xls"))then
Response.Write"Worksheet</p>国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了

作者: 蒙在股里 时间: 2015-1-20 05:11
Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

作者: 简单生活 时间: 2015-1-28 16:54
另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

作者: 透明 时间: 2015-2-5 22:18
Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

作者: 小女巫 时间: 2015-2-13 22:08
不能只是将它停留在纸上谈兵的程度上。

作者: 柔情似水 时间: 2015-3-4 02:09
代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

作者: 山那边是海 时间: 2015-3-11 15:26
Session:这个存储跟客户端会话过程的数据，默认20分钟失效

作者: 再见西城 时间: 2015-3-19 01:14
还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

作者: 灵魂腐蚀 时间: 2015-3-27 00:37
掌握asp的特性而且一定要知道为什么。

欢迎光临仓酷云 (http://ckuyun.com/)