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Éú³
Ïà¹ØÎĵµ£º
1¡¢ÔÚÍøվĿ¼ÏÂн¨Ò»¸öÎı¾£ºtxtcounter.txt ÔÚÎı¾Ìîд1»òÆäËûʶ×Ö
2¡¢Ð½¨Ò»aspÎļþ£ºcount.asp£¬¼ÓÈëÒÔÏ´úÂ룺
<%
CountFile=Server.MapPath("txtcounter.txt")
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.OpenTextFile(CountF ......
<%
Function gen_key(digits)
'Create and define array
dim char_array(50)
char_array(0) = "0"
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"
char_array( ......
ASPÀà
£½£½£½£½£½£½£½£½£½
ʹÓÃVBSµÄASPÒ²Äܶ¨ÒåÀàµÄ£¡±¾ÎĽ«½éÉܶ¨Ò塢ʹÓÃÀàµÄ»ù±¾·½·¨¡£
ÔÚASP£¨ÌØָʹÓÃVBSµÄASP£¬ÏÂͬ£©ÀʹÓÃClassÓï¾äÀ´ÉùÃ÷Ò»¸öÀà¡£Óï·¨ÈçÏ£º
Class ˈ̞
End Class
ÀàµÄ¶¨Òå¡¢±äÁ¿¡¢ÊôÐԺͷ½·¨µÈ¶¼°üº¬ÔÚClass...End Class¿éÖС£
ÏÂÃæ¾Í¿ÉÒÔ¶¨ÒåÀàµÄÊôÐԺͷ½·¨ÁË¡£Õýʽ½²ÊôÐÔ¡¢·½·¨µ ......
http://www.w3school.com.cn/asp/met_mappath.asp
¶¨ÒåºÍÓ÷¨
MapPath ·½·¨¿É°ÑÖ¸¶¨µÄ·¾¶Ó°Éäµ½·þÎñÆ÷ÉÏÏàÓ¦µÄÎïÀí·¾¶ÉÏ¡£
×¢ÊÍ£º´Ë·½·¨²»ÄÜÓÃÓÚ Session.OnEnd ºÍ Application.OnEnd ÖС£
ʵÀý
ʵÀý 1
¾ÙÀý£¬Îļþ test.asp λÓÚ C:\Inetpub\wwwroot\Script¡£
Îļþ Test.asp (λÓÚ C:\Inetpub\wwwroot\Script) °üº ......
Ò»¡¢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)
& ......