Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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 ÈçºÎ£ºÒÔ±à³Ì·½Ê½ÑéÖ¤ ASP.NET ·þÎñÆ÷¿Ø¼þ


      ĬÈÏÇé¿öÏ£¬ÔÚÒ³»Ø·¢µ½·þÎñÆ÷ʱ¡¢Ò³³õʼ»¯Ö®ºó£¨¼´ÊÓͼ״̬ºÍ»Ø·¢Êý¾ÝÒÑ´¦ÀíÖ®ºó£©ºÍµ÷ÓÃʼþ´¦Àí´úÂë֮ǰ£¬ASP.NET ÑéÖ¤¿Ø¼þ½«×Ô¶¯Ö´ÐÐÑéÖ¤¡£Èç¹ûä¯ÀÀÆ÷Ö§³Ö¿Í»§¶Ë½Å±¾£¬¿Ø¼þÒ²¿ÉÒÔÔÚä¯ÀÀÆ÷ÖÐÖ´ÐÐÑéÖ¤¡£
µ«ÊÇ£¬ÓÐʱÄú¿ÉÄÜÐèÒªÒÔ±à³Ì·½Ê½Ö´ÐÐÑéÖ¤¡£ÔÚÒÔÏÂÇé¿öÏ£¬Äú¿ÉÄÜÐèҪͨ¹ý±à³ÌÀ´½ ......

ASP.NET ÈçºÎ£ºÏò ASP.NET ÍøÒ³ÖÐÌí¼ÓµÇ¼°´Å¥


ΪÁËʹÓû§Äܹ»µÇ¼ʹÓà ASP.NET ³ÉÔ±×ʸñ£¨Forms Éí·ÝÑéÖ¤£©½øÐÐÓû§Éí·ÝÑéÖ¤µÄ ASP.NET Ó¦ÓóÌÐò£¬¿ÉÒÔʹÓà LoginStatus ¿Ø¼þ¡£LoginStatus ¿Ø¼þ¼ì²âÓû§µÄÉí·ÝÑé֤״̬¡£Èç¹ûÓû§Î´¾­¹ýÉí·ÝÑéÖ¤£¬¸Ã¿Ø¼þ½«ÏÔʾһ¸ö°´Å¥£¬Òýµ¼Óû§½øÈëÓ¦ÓóÌÐòµÄµÇ¼ҳ¡£Èç¹ûÓû§ÒѾ­¹ýÉí·ÝÑéÖ¤£¬LoginStatus ¿Ø¼þ½«ÏÔʾһ¸ö°´Å¥£¬Óû§¿ ......

ASP.NET ÈçºÎ£º´´½¨ ASP.NET µÇ¼ҳ


      ¿ÉÒÔʹÓà ASP.NET Login ¿Ø¼þ´´½¨µÇ¼ҳ¡£´Ë¿Ø¼þÌáÈ¡Óû§ÃûºÍÃÜÂ룬²¢Ê¹Óà ASP.NET ³ÉÔ±×ʸñºÍ Forms Éí·ÝÑéÖ¤À´ÑéÖ¤Óû§µÄƾ¾Ý²¢´´½¨Éí·ÝÑé֤Ʊ֤¡£
 
1¡¢´´½¨Ò»¸öʹÓà ASP.NET ³ÉÔ±×ʸñµÄ ASP.NET Web Ó¦ÓóÌÐò¡£ÓйØÏêϸÐÅÏ¢ºÍʾÀý£¬Çë²Î¼ûÅäÖà ASP.NET Ó¦ÓóÌÐòÒÔʹÓóÉÔ±×ʸñ ......

aspÉÏ´«excleÎļþ²¢µ¼Èëµ½accessÊý¾Ý¿â

<%
function FSOFileDel(filename)
Dim objFSO,objCountFile,FiletempData
On Error Resume Next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile =objFSO.DeleteFile(Server.MapPath(filename),true)
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
En ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ