仓酷云

标题: ASP教程之我写的一个将数据库数据导出到EXCEL的类... [打印本页]

作者: 小魔女 时间: 2015-1-16 22:45
标题: ASP教程之我写的一个将数据库数据导出到EXCEL的类...
缺点：正版成本价格贵（盗版就不说了）、不够安全，大多数服务器用windows系统，没有linux安全excel|数据|数据库clsExport2Excel.asp
<%
类入手下手
ClassclsExport2Excel

声明常量、变量
PrivatestrFilePath,strTitle,strSql,strField,strRows,strCols
PrivatestrCn,strHtml,strPath
PrivateobjDbCn,objRs
PrivateobjXlsApp,objXlsWorkBook,objXlsWorkSheet
PrivatearrField

初始化类
PrivateSubClass_Initialize()
strCn="driver={SQLServer};server=LIUHQ;UID=sa;PWD=sa;Database=MS"
setobjDbCn=server.CreateObject("adodb.connection")
objDbCn.openstrCn

strFilePath="."
strTitle="查询了局"
strRows=2
strCols=1
EndSub

烧毁类
PrivateSubClass_Terminate()

EndSub

属性FilePath
PublicPropertyLetFilePath(value)
strFilePath=value
EndProperty

PublicPropertyGetFilePath()
FilePath=strFilePath
EndProperty

属性Title
PublicPropertyLetTitle(value)
strTitle=value
EndProperty

PublicPropertyGetTitle()
Title=strTitle
EndProperty

属性Sql
PublicPropertyLetSql(value)
strSql=value
EndProperty

PublicPropertyGetSql()
Sql=strSql
EndProperty

属性Field
PublicPropertyLetField(value)
strField=value
EndProperty

PublicPropertyGetField()
Field=strField
EndProperty

属性Rows
PublicPropertyLetRows(value)
strRows=value
EndProperty

PublicPropertyGetRows()
Rows=strRows
EndProperty

属性Cols
PublicPropertyLetCols(value)
strCols=value
EndProperty

PublicPropertyGetCols()
Cols=strCols
EndProperty

PublicFunctionexport2Excel()
ifstrSql=""orstrField=""then
response.write"参数设置毛病，请与办理员接洽！感谢"
response.end
endif

ifright(strFilePath,1)="/"orright(strFilePath,1)=""then
strFilePath=left(strFilePath,len(strFilePath)-1)
endif
ifinstr("/",strFilePath)>0then
strFilePath=replace(strFilePath,"/","")
endif
strFilePath=strFilePath&""

setobjFso=createobject("scripting.filesystemobject")
ifobjFso.FolderExists(server.mappath(strFilePath))=Falsethen
objFso.Createfolder(server.mappath(strFilePath))
endif

strFileName=strFilePath&cstr(createFileName())&".xls"

setobjRs=server.CreateObject("adodb.RecordSet")
objRs.openstrSql,objDbCn,3,3
ifobjRs.recordcount<=0then
strHtml="临时没有任何符合的数据导出，若有疑问，请与办理员接洽！抱愧"
else
setobjXlsApp=server.CreateObject("Excel.Application")
objXlsApp.Visible=false
objXlsApp.WorkBooks.Add

setobjXlsWorkBook=objXlsApp.ActiveWorkBook
setobjXlsWorkSheet=objXlsWorkBook.WorkSheets(1)

objXlsWorkSheet.Cells(1,1).Value=strTitle

arrField=split(strField,"||")
forf=0toUbound(arrField)
objXlsWorkSheet.Cells(2,f+1).Value=arrField(f)
next

forc=1toobjRs.recordcount
forf=0toobjRs.fields.count-1
身份证号码特别处置
ifobjRs.fields(f).name="pm_field_41325"orobjRs.fields(f).name="cardID"then
objXlsWorkSheet.Cells(c+2,f+1).Value=""&objRs.fields(f).value
失业特别处置
elseifobjRs.fields(f).name="JiuYe"then
selectcaseobjRs.fields(f).value
case1
objXlsWorkSheet.Cells(c+2,f+1).Value="是"
case0
objXlsWorkSheet.Cells(c+2,f+1).Value="否"
case-1
objXlsWorkSheet.Cells(c+2,f+1).Value="(未知)"
endselect
else
objXlsWorkSheet.Cells(c+2,f+1).Value=objRs.fields(f).value
endif
next
objRs.movenext
next

objXlsWorkSheet.SaveAsserver.mappath(strFileName)

strHtml="Excel文件已导出乐成，您能够<ahref="&strFileName&"target=_blank>翻开</a>文件并将文件另存到当地目次中！"

objXlsApp.Quit
setobjXlsWorkSheet=nothing
setobjXlsWorkBook=nothing
setobjXlsApp=nothing
endif
objRs.close
setobjRs=nothing

iferr>0then
strHtml="E</p>想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的

作者: 若天明 时间: 2015-1-19 22:58
从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

作者: 简单生活 时间: 2015-1-28 14:16
接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

作者: 山那边是海 时间: 2015-2-5 15:20
Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

作者: 乐观 时间: 2015-2-12 13:13
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

作者: 深爱那片海 时间: 2015-3-3 03:28
ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

作者: 海妖 时间: 2015-3-11 09:07
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

作者: 若相依 时间: 2015-3-18 02:14
ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

作者: 精灵巫婆 时间: 2015-3-25 09:19
我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

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