<%
'***************************************************************************************
' Use instructions
' Dim A
' Set A=new createexcel
' a.savepath= ' x ' Save path
' A.sheetname= workbook name ' Multiple sheet a.sheetname=array (workbook name one, workbook name two)
' a.sheettitle= table name ' can be empty multiple worksheets a.sheetname=array ("table name one", "Table name two")
' A.data =d ' two-dimensional array ' multiple worksheet array (B,C) B and C as a two-dimensional array
' Dim rs
' Set Rs=server.createobject (' Adodb.recordset ')
' Rs.Open ' select ID, ClassID, classname from [class], Conn, 1, 1
' A.adddbdata RS, field name one, field name two, workbook name, table name, True ' true to get the name of a table field automatically
' A.adddata C, true, workbook name, table name ' C two-dimensional array true first row is header row
' A.addtdata E, ' Sheet1 ' generates C=array by template (Array ("Aa1", "content"), Array ("Aa2", "Content 2"))
' A.create ()
' A.usedtime generation time, number of milliseconds
' A.savepath save path
' Set a=nothing
' Set the operation permissions for the COM component. Type "DCOMCNFG" at the command line, then enter the COM component Configuration interface, select MicrosoftExcel and click the Properties button, select all three single options to customize, edit everyone to join all permissions
'****************************************************************************************