Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 Menu ¿Ø¼þ¡£
¿ÉÒÔʹÓà ASP.NET Menu ¿Ø¼þÎªÍøÕ¾´´½¨µ¼º½²Ëµ¥¡£ÔÚ±¾ÑÝÁ·ÖУ¬½«¿¼²ì ASP.NET Menu ¿Ø¼þµÄ±à³Ì·½Ã棬²¢´´½¨Á½¸öЭͬ¹¤×÷µÄ²Ëµ¥£¬ËüÃǶ¼°ó¶¨µ½Í¬Ò»¸ö Web.sitemap Îļþ¡£µÚÒ»¸ö²Ëµ¥ÊǾ²Ì¬ÏÔʾµÄÀà±ð£¨Èç²úÆ·¡¢·þÎñºÍÖ§³Ö£©²Ëµ¥¡£Ë ......

Apache¡¢Tomcat¡¢IIS£¨PHP¡¢JSP¡¢ASP£©¹²´æÊ±µÄÉèÖÃ

1¡¢·Ö±ð°²×°Èý¸ö»·¾³£¬²¢ÉèÖò»Í¬¶Ë¿Ú
PHP:80
JSP:8080
ASP:8081
2¡¢ÉèÖÃ/Apache2/conf/httpd.conf
È¥µôÒÔÏÂÈýÐÐǰµÄ×¢ÊÍ£º
LoadModule proxy_module modules/mod_proxy.so
LoadModule proxy_connect_module modules/mod_proxy_connect.so
LoadModule proxy_http_module modules/mod_proxy_http.so
¼ÓÈëÒÔϼ¸ÐУº ......

ASPÖеÄÈÕÆÚº¯Êý

<%
'ÈÕÆÚº¯Êý°üDataPackage
%>
<script language="javascript">
function IsDateString(Str)
<!--
{
// УÑéÊÇ·ñYYYY-MM-DD¸ñʽµÄÈÕÆÚÐÍÊý¾Ý£¬·µ»ØÖµÎªTrue³É¹¦£¬·ñÔò·µ»ØFalse
// Èç¹û´«µÝµÄÊÇ¿Õ×Ö·û´®Ôò·µ»ØFalse
// ¶¨Òå·Ö¸ô·û
var sSplit="-"
var iYearPos=Str.indexOf(sSplit);
if (iYearP ......

ASPµ¼³öÊý¾Ýµ½excel


×î½ü×öÒ»¸öÓÃasp×öµÄÍøÕ¾ºǫ́µÄÊý¾Ýµ¼³ö¹¦ÄÜʱ,google,baiduÁ˺ܶà,µ«ÊǶàÊý¶¼ÊÇ×ªÔØ,´úÂë´ó¸Å¶¼Ò»Ñù,µ«ÊǾÍÊDZ¨´í,×îºóÓÐÈË˵ͨ¹ýÉèÖÃMIMEÀàÐͺͽ¨Á¢Ä£°å,×îºóÕûÀí,²âÊÔÎÊÌâÖÕÓÚ½â¾ö.¹Ø¼üµÄµØ·½ÓÐÒÔϼ¸µã:
1):MIMEÀàÐÍÒªÉèÖÃÕýÈ·,ÈçÒª°ÑDBÖбí(»ò±íÖÐÖ¸¶¨×Ö¶Î)µÄÊý¾Ýµ¼³ö³Éexel¸ñʽʱ,Í·²¿µÄMEMIÀàÐ͵ÄÉèÖÃÊÇ:
<% ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ