asp execl ¼¼Êõ×ܽá
¡¡Ò»¡¢ »·¾³ÉèÖÃ
¡¡¡¡·þÎñÆ÷¶ËµÄ»·¾³ÉèÖôӲο¼Êý¾ÝÉÏ¿´£¬Î¢ÈíϵÁеÄÉèÖÃÓ¦¸Ã¶¼ÐУ¬¼´£º
¡¡¡¡1£®Win9x+PWS+Office
¡¡¡¡2£®Win2000 Professional+PWS+Office
¡¡¡¡3£®Win2000 Server+IIS+Office
¡¡¡¡Ä¿Ç°±ÊÕß²âÊԳɹ¦µÄ»·¾³ÊǺó¶þÕß¡£OfficeµÄ°æ±¾Ã»ÓÐÌØ±ðÐèÇ󣬿¼Âǵ½¿Í»§»úÉèÖõIJ»È·¶¨ÐÔºÍϼæÈÝÌØÐÔ£¬½¨Òé·þÎñÆ÷¶ËOffice°æ±¾²»ÒªÌ«¸ß£¬ÒÔ·ÀÖ¹¿Í»§»úÏÂÔØºóÎÞ·¨ÕýÈ·ÏÔʾ¡£
¡¡¡¡·þÎñÆ÷¶Ë»·¾³ÉèÖøüÓÐÁ½¸öżȻµÄ·¢ÏÖÊÇ£º
¡¡¡¡1£® ±ÊÕßÑз¢»úÆ÷ÉÏÔÀ´×°ÓнðɽµÄWPS2002£¬½á¹ûExcel¶ÔÏó´´½¨Ê¼ÖÕ³öÏÖÎÊÌâ£¬Ð¶ÔØWPS2002ºó£¬´íÎóÏûʧ¡£
¡¡¡¡2£® ±ÊÕßÑз¢ASP´úÂëϲ»¶ÓÃFrontPage£¬½á¹û·¢ÏÖÈç¹ûFrontPage´ò¿ª£¨·þÎñÆ÷¶Ë£©£¬¶ÔÏó´´½¨³öÏÖ²»Îȶ¨ÏÖÏó£¬Ê±¶ø³É¹¦Ê±¶ø²»³É¹¦¡£À©Õ¹¿¼²ìºó·¢ÏÖ£¬OfficeϵÁеÄÈí¼þÈç¹ûÔÚ·þÎñÆ÷¶ËÔËÐУ¬ÔòExcel¶ÔÏóµÄ´´½¨·Ç³£Äѳɹ¦¡£
¡¡¡¡·þÎñÆ÷¶Ë»¹±ØÐëÒªÉèÖõÄÒ»µãÊÇCOM×é¼þµÄ²Ù×÷ȨÏÞ¡£ÔÚÃüÁîÐмüÈë“DCOMCNFG”£¬Ôò½øÈëCOM×é¼þÉèÖýӿڣ¬Ñ¡ÔñMicrosoft Excelºóµã»÷ÊôÐÔ°´Å¥£¬½«Èý¸öµ¥Ñ¡ÏîÒ»ÂÉÑ¡Ôñ×Ô¶¨Ò壬±à¼Öн«Everyone¼ÓÈëËùÓÐȨÏÞ¡£±£´æÍê±ÏºóÖØÐÂÆô¶¯·þÎñÆ÷¡£
¡¡¡¡¿Í»§¶ËµÄ»·¾³ÉèÖÃû·¢ÏÖÊ²Ã´ÌØ±ð½²¾¿µÄµØ·½£¬Ö»Òª×°ÓÐOfficeºÍIE¼´¿É£¬°æ±¾Í¨ÓõĺÃÏó¶¼ÄÜ¡£
¡¡¡¡¶þ¡¢ ASP¶ÔExcelµÄ»ù±¾²Ù×÷
¡¡¡¡1¡¢ ½¨Á¢Excel¶ÔÏó
¡¡¡¡set objExcelApp = CreateObject("Excel.Application")
¡¡¡¡objExcelApp.DisplayAlerts = false ²»ÏÔʾ¾¯¸æ
¡¡¡¡objExcelApp.Application.Visible = false ²»ÏÔʾ½Ó¿Ú
¡¡¡¡2¡¢ н¨ExcelÎļþ
¡¡¡¡objExcelApp.WorkBooks.add
¡¡¡¡set objExcelBook = objExcelApp.ActiveWorkBook
¡¡¡¡set objExcelSheets = objExcelBook.Worksheets
¡¡¡¡set objExcelSheet = objExcelBook.Sheets(1)
¡¡¡¡3¡¢ ¶ÁÈ¡ÒÑÓÐExcelÎļþ
¡¡¡¡strAddr = Server.MapPath(".")
¡¡¡¡objExcelApp.WorkBooks.Open(strAddr & "£ÜTemplet£ÜTable.xls")
¡¡¡¡set objExcelBook = objExcelApp.ActiveWorkBook
¡¡¡¡set objExcelSheets = objExcelBook.Worksheets
¡¡¡¡set objExcelSheet = objExcelBook.Sheets(1)
¡¡¡¡4¡¢ Áí´æExcelÎļþ
¡¡¡¡objExcelBook.SaveAs strAddr & "£ÜTemp£ÜTable.xls"
¡¡¡¡5¡¢ ±£´æExcel?
¡¡¡¡objExcelBook.Save £¨±ÊÕß²âÊÔʱ±£´æ³É¹¦£¬Ò³Ã汨´í¡££©
¡¡¡¡6¡¢ Í˳öExcel²Ù×÷
¡¡¡¡objExcelApp.Quit Ò»¶¨ÒªÍ˳ö
¡¡¡¡set objExcelApp = Nothing
¡¡¡¡Èý¡¢ ASP²Ù×÷ExcelÉú³
Ïà¹ØÎĵµ£º
Ê×ÏÈ£¬ËûÃǵÄÔËÐлúÖÆ²»Í¬¡£aspÊÇÊôÓÚÒ»ÖÖ½âÊÍÐ͵Ŀò¼Ü£¡ÊǽâÊÍÖ´Ðеģ¬Êǽű¾¡£asp.netÊDZàÒëÐ͵ģ¡×îÖÕ»á±à³Ì¶þ½øÖƵĻúÆ÷´úÂë¡£´ÓÕâÒ»µãÀ´Ëµ£¬asp.netÖ´ÐÐЧÂÊÉÏÒª±Èasp¸ß£¡
Æä´Î£¬aspÖ»ÔÊÐíʹÓÃjs»òÕßvbs¡£¶øasp.netÔò²»Ò»Ñù£¬Ö»Òª·ûºÏ¹«¹²ÓïÑÔÔËÐÐ¿â¹æ·¶µÄÓïÑÔ£¬¶¼¿ÉÒÔʹÓã¡´ÓÕâÒ»µãÉÏÀ´Ëµ£¬aspÔڵײã²Ù×÷ÉϽÏasp.ne ......
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if Request("MailtoAddress") <> "" then
¡¡¡¡¡¡¡¡msg = SendMail
(Request("SMTPServer"),Request("SMTPServerUserName"),Request("SMTPServerPassword"),
Request("MailDom ......
´úÂëÈçÏ£º
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
RemoveHTML = replace(RemoveHTML," "," ")
End Function
ÕâÊÇ×î»ù±¾µÄÕýÔòÌæ»»£¬ÓÐÄ³Ð©ÌØÊâ×Ö·û»¹Ã»¹ýÂË£¬¿É×ÔÐÐÌí¼Ó ......