ASPµ¼³öExcelÊý¾ÝµÄËÄÖÖ·½·¨
Ò»¡¢Ê¹ÓÃOWC
¡¡¡¡Ê²Ã´ÊÇOWC£¿
¡¡¡¡OWCÊÇOffice Web CompentµÄËõд£¬¼´MicrosoftµÄOffice Web×é¼þ£¬ËüΪÔÚWebÖлæÖÆÍ¼ÐÎÌṩÁËÁé»îµÄͬʱҲÊÇ×î»ù±¾µÄ»úÖÆ¡£ÔÚÒ»¸öintranet»·¾³ÖУ¬Èç¹û¿ÉÒÔ¼ÙÉè¿Í»§»úÉÏ´æÔÚÌØ¶¨µÄä¯ÀÀÆ÷ºÍһЩ¹¦ÄÜÇ¿´óµÄÈí¼þ£¨ÈçIE5ºÍOffice 2000£©£¬ÄÇô¾ÍÓÐÄÜÁ¦ÀûÓÃOffice Web×é¼þÌṩһ¸ö½»»¥Ê½Í¼Ðοª·¢»·¾³¡£ÕâÖÖģʽÏ£¬¿Í»§¶Ë¹¤×÷Õ¾½«ÔÚÕû¸öÈÎÎñÖзֵ£ºÜ´óµÄ±ÈÖØ¡£
£¼%Option Explicit
Class ExcelGen
Private objSpreadsheet
Private iColOffset
Private iRowOffset
Sub Class_Initialize()
Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet")
iRowOffset = 2
iColOffset = 2
End Sub
Sub Class_Terminate()
Set objSpreadsheet = Nothing 'Clean up
End Sub
Public Property Let ColumnOffset(iColOff)
If iColOff £¾ 0 then
iColOffset = iColOff
Else
iColOffset = 2
End If
End Property
Public Property Let RowOffset(iRowOff)
If iRowOff £¾ 0 then
iRowOffset = iRowOff
Else
iRowOffset = 2
End If
End Property Sub GenerateWorksheet(objRS)
'Populates the Excel worksheet based on a Recordset's contents
'Start by displaying the titles
If objRS.EOF then Exit Sub
Dim objField, iCol, iRow
iCol = iColOffset
iRow = iRowOffset
For Each objField in objRS.Fields
objSpreadsheet.Cells(iRow, iCol).Value = objField.Name
objSpreadsheet.Columns(iCol).AutoFitColumns
'ÉèÖÃExcel±íÀïµÄ×ÖÌå
objSpreadsheet.Cells(iRow, iCol).Font.Bold = True
objSpreadsheet.Cells(iRow, iCol).Font.Italic = False
objSpreadsheet.Cells(iRow, iCol).Font.Size = 10
objSpreadsheet.Cells(iRow, iCol).Halignment = 2 '¾ÓÖÐ
iCol = iCol + 1
Next 'objField
'Display all of the data
Do While Not objRS.EOF
iRow = iRow + 1
iCol = iColOffset
For Each objField in objRS.Fields
If IsNull(objField.Value) then
objSpreadsheet.Cells(iRow, iCol).Value = ""
Else
objSpreadsheet.Cells(iRow, iCol).Value = objField.Value
objSpreadsheet.Columns(iCol).AutoFitColumns
objSpreadsheet.Cells(iRow, iCol).Font.Bold = False
objSpreadsheet.Cells(iRow, iCol).Font.Italic = F
Ïà¹ØÎĵµ£º
ĬÈÏÇé¿öÏ£¬ÔÚÒ³»Ø·¢µ½·þÎñÆ÷ʱ¡¢Ò³³õʼ»¯Ö®ºó£¨¼´ÊÓͼ״̬ºÍ»Ø·¢Êý¾ÝÒÑ´¦ÀíÖ®ºó£©ºÍµ÷ÓÃʼþ´¦Àí´úÂë֮ǰ£¬ASP.NET ÑéÖ¤¿Ø¼þ½«×Ô¶¯Ö´ÐÐÑéÖ¤¡£Èç¹ûä¯ÀÀÆ÷Ö§³Ö¿Í»§¶Ë½Å±¾£¬¿Ø¼þÒ²¿ÉÒÔÔÚä¯ÀÀÆ÷ÖÐÖ´ÐÐÑéÖ¤¡£
µ«ÊÇ£¬ÓÐʱÄú¿ÉÄÜÐèÒªÒÔ±à³Ì·½Ê½Ö´ÐÐÑéÖ¤¡£ÔÚÒÔÏÂÇé¿öÏ£¬Äú¿ÉÄÜÐèҪͨ¹ý±à³ÌÀ´½ ......
×ܵÄÀ´½²£¬JavaSever PagesTM£¨JSP£©ºÍ ΢ÈíµÄActive Sever Pages£¨ASP£©ÔÚ¼¼Êõ·½ÃæÓÐÐí¶àÏàËÆÖ®´¦¡£Á½Õß¶¼ÊÇΪ»ùÓÚWEBÓ¦ÓÃʵÏÖ¶¯Ì¬½»»¥ÍøÒ³ÖÆ×÷ÌṩµÄ¼¼Êõ»·¾³Ö§³Ö¡£Í¬µÈ³Ì¶ÈÉÏÀ´½²£¬Á½Õß¶¼Äܹ»Îª³ÌÐò¿ª·¢ÈËÔ±ÌṩʵÏÖÓ¦ÓóÌÐòµÄ±àÖÆÓë×Ô´ø×é¼þÉè¼ÆÍøÒ³´ÓÂß¼ÉÏ·ÖÀëµÄ¼¼Êõ¡£¶øÇÒÁ½Õß¶¼Äܹ»Ìæ´úCGIÊ¹ÍøÕ¾½¨ÉèÓë·¢Õ¹±äµÄ½ÏΪ ......
¡¡¡¡ÔÚ±àдASP³ÌÐòµÄʱºò£¬Í¨³£¶¼»áÓõ½<!--#include virtual|file="path/filename"-->°ÑÒ»¶ÎÏà¶Ô¶ÀÁ¢µÄÎļþ´úÂëǶÌ×µ½µ±Ç°Ò³ÃæÖÐÀ´¡£ÔÚʵ¼ÊµÄʹÓÃÖкܶàÈ˶Ô"file"ºÍ"virtual"µÄʹÓò»Ì«Àí½â£¬µ¼ÖÂÒ³ÃæÖ´ÐеÄʱºò»á³öÏÖ´íÎó¡£Ï־͸ÃÎÊÌâ×÷Ò»¸ö¼òÊö¡£
¡¡¡¡Ê¹ÓÃ"file"µÄʱºò£¬µÈºÅºóÃæÊ¹ÓõÄÊÇÏà¶Ô·¾¶¡£ËùνÏà¶ ......
ΪÁËʹÓû§Äܹ»µÇ¼ʹÓà ASP.NET ³ÉÔ±×ʸñ£¨Forms Éí·ÝÑéÖ¤£©½øÐÐÓû§Éí·ÝÑéÖ¤µÄ ASP.NET Ó¦ÓóÌÐò£¬¿ÉÒÔʹÓà LoginStatus ¿Ø¼þ¡£LoginStatus ¿Ø¼þ¼ì²âÓû§µÄÉí·ÝÑé֤״̬¡£Èç¹ûÓû§Î´¾¹ýÉí·ÝÑéÖ¤£¬¸Ã¿Ø¼þ½«ÏÔʾһ¸ö°´Å¥£¬Òýµ¼Óû§½øÈëÓ¦ÓóÌÐòµÄµÇ¼ҳ¡£Èç¹ûÓû§ÒѾ¹ýÉí·ÝÑéÖ¤£¬LoginStatus ¿Ø¼þ½«ÏÔʾһ¸ö°´Å¥£¬Óû§¿ ......
×î½ü×öÒ»¸öÓÃasp×öµÄÍøÕ¾ºǫ́µÄÊý¾Ýµ¼³ö¹¦ÄÜʱ,google,baiduÁ˺ܶà,µ«ÊǶàÊý¶¼ÊÇ×ªÔØ,´úÂë´ó¸Å¶¼Ò»Ñù,µ«ÊǾÍÊDZ¨´í,×îºóÓÐÈË˵ͨ¹ýÉèÖÃMIMEÀàÐͺͽ¨Á¢Ä£°å,×îºóÕûÀí,²âÊÔÎÊÌâÖÕÓÚ½â¾ö.¹Ø¼üµÄµØ·½ÓÐÒÔϼ¸µã:
1):MIMEÀàÐÍÒªÉèÖÃÕýÈ·,ÈçÒª°ÑDBÖбí(»ò±íÖÐÖ¸¶¨×Ö¶Î)µÄÊý¾Ýµ¼³ö³Éexel¸ñʽʱ,Í·²¿µÄMEMIÀàÐ͵ÄÉèÖÃÊÇ:
<%
......