ASPÎÞ·¨¹Ø±ÕµÄEXCEL - Web ¿ª·¢ / ASP
¸½¼þµØÖ·http://download.csdn.net/source/2341319
ÓÉÓÚÕâÀï²»ÄÜÉÏ´«¸½¼þ£¬Ö»ÄÜ·ÅÔÚÕâÀïÁË
VB code:
<%
strAddr = Server.MapPath(".")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set f = objFSO.GetFile(strAddr&"\1.xls")
if f.attributes<>0 then
f.attributes = 0
end if
Set Excel_File = CreateObject("Excel.Application")
Excel_File.AutomationSecurity=3
Set Excel_WorkBook=Excel_File.Workbooks.open(strAddr&"\1.xls")
Set Excel_Sheet = Excel_WorkBook.Worksheets(1)
'Excel_Sheet.Range("A1" , "A2" ).EntireRow.Delete
'Excel_Sheet.Rows(UsedRange.Rows.count).Delete
If objFSO.FileExists(strAddr&"\Excel\1.xls") Then
objFSO.DeleteFile strAddr&"\Excel\1.xls",True
End If
Set objFSO = Nothing
Excel_WorkBook.SaveAs strAddr&"\Excel\1.xls"
Excel_WorkBook.Save
Excel_File.DisplayAlerts = False
Excel_WorkBook.Close
Excel_WorkBook.Close
Excel_File.Quit
Excel_File.Quit
Set Excel_Sheet = Nothing
Set Excel_WorkBook = Nothing
Set Excel_File = Nothing
%>
Âé·³¸÷λ¸ßÊÖ¸ø¿´¿´ÎªÊ²Ã´ÁË
ûÈË»áô
ÔÚ
If objFSO.File
Ïà¹ØÎÊ´ð£º
aspÐéÄâÖ÷»úʵÏÖα¾²Ì¬µÄ·½·¨£º
1¡¢ ÖØÐ´url²ÎÊý
Step1: ½¨Á¢Ç°Ì¨Îļþindex.asp£¬ÐÞ¸Äurl²ÎÊýÐÎʽ¡£ÓÉÓÚ¶ÁÈ¡Êý¾Ý¿âÖеļǼ²»ÊÇרÌâµÄÖØµã£¬¹ÊÖ±½Ó¸ø³ö:
<!--#include file="config.asp" -->
&l ......
Microsoft JET Database Engine '80040e07'
±ê×¼±í´ïʽÖÐÊý¾ÝÀàÐͲ»Æ¥Åä¡£
\wwwroot\update.asp, line 20
--------------------------------------------------------------------------------
Ho ......
ÔõÑù½«ASP³ÌÐòת»»Îª.NET³ÌÐò ?
ÕÒ¸öÈ«²Å·Òë¡£
ÊÖ¶¯È¥Ð´
¸Ð¾õд¹ýaspµÄ£¬À´Ð´asp.net£¬ÉÏÊÖÓ¦¸Ã¿ìµã¡£
¸üÄÜÀí½âasp.netµÄһЩÄÚ²¿¼¼Êõ
asp.net¶¼±»·â×°ÁË
ÎÒÊÇ×ö.NetµÄ£¬¶ÔASPһֱû½Ó´¥µ½£¬ºÜİÉú¡£
¹« ......
¹ØÓÚÍøÕ¾°²È«µÄÎÊÌ⣡
ÎÒÁ˽⵽µÄÍøÕ¾°²È«ÎÊÌâ°üÀ¨£º
sql×¢Èë©¶´ºÍ±©¿â©¶´»¹ÓÐÉÏ´«Â©¶´
³ýÁËÕâЩ»¹ÓÐÆäËûµÄ©¶´Ã´£¿
×¢Èë©¶´¿ÉÒÔͨ¹ý¹ýÂËÀ´·ÀÖ¹
±©¿â©¶´Ôõô·ÀÖ¹
»¹ÓÐÈËÉÏ´«µÄľÂíÊÇ.gif
ÕâÖÖ©¶´Ôõôȥ± ......
´ó¼ÒºÃ£¬ÎÒÏÖÔÚÓÐÒ»¸öÓÃaspдµÄÁÄÌìÊÒ£¬ÏÖÔÚµÄÏëÌí¼ÓÒ»¸ö¹¦ÄÜ£¬¾ÍÊǵ±ÓÐÈËÉÏÏßµÄʱºò£¬·¢³öÌáʾ£¬±ÈÈçÉùÒôÏìһϣ¬ÏÖÔÚÏëÓÃjavaʵÏÖÕâ¸ö¹¦ÄÜ£¬ÇëÎÊ´ó¼ÒÔõôʵÏÖ£¿
ллÁË£¬ÎÒ»á¼Ó·ÖµÄ
aspºÍjavaÕûºÏµ½Ò»ÆðÈ¥£¿ºÎ±Ø ......