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

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ÍøÒ³¼ÆÊýÆ÷Ô´´úÂë

1¡¢ÔÚÍøվĿ¼ÏÂн¨Ò»¸öÎı¾£ºtxtcounter.txt ÔÚÎı¾Ìîд1»òÆäËûʶ×Ö
2¡¢Ð½¨Ò»aspÎļþ£ºcount.asp£¬¼ÓÈëÒÔÏ´úÂ룺
<% 
CountFile=Server.MapPath("txtcounter.txt") 
Set FileObject=Server.CreateObject("Scripting.FileSystemObject") 
Set Out=FileObject.OpenTextFile(CountF ......

ÓÃASPËæ»ú²úÉúËæ»úÊý

<%
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ÀàµÄ±àд

ASPÀà
£½£½£½£½£½£½£½£½£½
ʹÓÃVBSµÄASPÒ²Äܶ¨ÒåÀàµÄ£¡±¾ÎĽ«½éÉܶ¨Ò塢ʹÓÃÀàµÄ»ù±¾·½·¨¡£
ÔÚASP£¨ÌØָʹÓÃVBSµÄASP£¬ÏÂͬ£©ÀʹÓÃClassÓï¾äÀ´ÉùÃ÷Ò»¸öÀà¡£Óï·¨ÈçÏ£º
Class ˈ̞
End Class
ÀàµÄ¶¨Òå¡¢±äÁ¿¡¢ÊôÐԺͷ½·¨µÈ¶¼°üº¬ÔÚClass...End Class¿éÖС£
ÏÂÃæ¾Í¿ÉÒÔ¶¨ÒåÀàµÄÊôÐԺͷ½·¨ÁË¡£Õýʽ½²ÊôÐÔ¡¢·½·¨µ ......

ASP MapPath ·½·¨

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) °üº ......

asp_Êý¾Ý¿â²Ù×÷·â×°

Ò»¡¢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)
 & ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ