excel asp¼¼Êõ×ܽá
¡¡Ò»¡¢ »·¾³ÉèÖÃ
¡¡¡¡·þÎñÆ÷¶ËµÄ»·¾³ÉèÖôӲο¼Êý¾ÝÉÏ¿´£¬Î¢ÈíϵÁеÄÉèÖÃÓ¦¸Ã¶¼ÐУ¬¼´£º
¡¡¡¡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Éú³
Ïà¹ØÎĵµ£º
1¡¢ÔÚÍøվĿ¼ÏÂн¨Ò»¸öÎı¾£ºtxtcounter.txt ÔÚÎı¾Ìîд1»òÆäËûʶ×Ö
2¡¢Ð½¨Ò»aspÎļþ£ºcount.asp£¬¼ÓÈëÒÔÏ´úÂ룺
<%
CountFile=Server.MapPath("txtcounter.txt")
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.OpenTextFile(CountF ......
<%'¿ªÊ¼·ÖÒ³
Const MaxPerPage=25
dim totalPut
dim CurrentPage
dim TotalPages
dim j
  ......
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("c:\Program Files")
Response.Write "¸¸Îļþ¼ÐÃû×ÖÊÇ£º" & fldr & "<br>"
If fldr.IsRootFolder = True Then
Response.Write "¸ÃÎļþ¼ÐÊÇÒ»¸ùÎļþ¼Ð" & "<br>"
Else
Resp ......
Ò»¡¢conn.asp
<%
'@Language="VBSCRIPT" CODEPAGE=65001
'meta http-equiv="Content-Type" content="text/html; charset=gb2312"
' 936 utf-8
class TDB
function qry(byval sqlquery)
& ......
½ñÌìÓöµ½Ò»¸öasp³ÌÐò£¬ÓÃReWriteÖØдURLºó£¬ÖÐÎIJÎÊýÂÒÂ룬²é×ÊÁϺó˵ÊÇReWriteËù½ÓÊյIJÎÊý×Ô¶¯×ªÎªUTF-8£¬¶øÎÒµÄǰ̨ҳÃæºÍÊý¾Ý¿â¶¼ÎªGB2312¸ñʽ£¬ºóÀ´ÔÚÍøÉÏÕÒÁ˺þã¬ÖÕÓÚÕÒµ½Ò»¸öÄܳɹ¦½«UTF-8ת»»ÎªGB2312µÄº¯Êý£¬º¯Êýת»»´úÂëÈçÏÂ
<%
function CodeConvert(fileContent)
dim stm
set stm=Server.Crea ......