asp³£¼ûµÄÁ¬½Ó×Ö·û´®
Access Á¬½Ó×Ö·û´®
strConnect = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyDatabase.mdb;”
Access 2007 Á¬½Ó×Ö·û´®
strConnect = “Provider=Microsoft.ACE.OLEDB.12.0;Mode=Share Exclusive;Data Source=C:\MyDatabase.accdb;”
MSSQL Server Á¬½Ó×Ö·û´®
strConnect = “Provider=SQLOLEDB;Data Source=ServerName\InstanceName;Initial Catalog=DatabaseName;User ID=UserName;Password=password;”
Excel Á¬½Ó×Ö·û´®
strConnect = “Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=”"Excel 8.0;HDR=YES”";Data Source=C:\MyWorkbook.xls;”
ÆäÖÐHDRĬÈÏֵΪYES±íʾµÚÒ»ÐÐΪ×Ö¶ÎÃû, ·ñÔòµÚÒ»Ðн«×÷ΪÄÚÈÝ
Excel 2007 Á¬½Ó×Ö·û´®
strConnect = “Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=C:\MyWorkbook.xlsx;”
Îı¾Îļþ(Îı¾ÎļþÒ²Äܵ±Êý¾Ý¿âʹÓÃ)
strConnect = “Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Text;Data Source=C:\Files\;”
ßÀ, ²ÎÊýData SourceΪ°üº¬ÎļþµÄĿ¼Ãû, ¶ø²»ÊÇÎļþÃû³Æ. Èç¹ûÎı¾ÎļþµÄµÚÒ»Ðв»°üº¬×Ö¶ÎÃû³Æ, Ôò±ØÐëÔÚ²ÎÊýExtended PropertiesÖвμÓHDR=No(ͬExcel), ÒÔ±ÜÃⶪʧµÚÒ»ÐеÄÊý¾Ý.
ʹÓÃÁ¬½Ó×Ö·û´®
¸´ÖÆ´úÂë ´úÂëÈçÏÂ:
Dim conn
Sub DBOpen()
Dim db : db=Server.MapPath(”zzz.mdb”)
Set conn=Server.CreateObject(”Adodb.Connection”)
On Error Resume Next
conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & db
If Err.Number<>0 then
Err.Clear
Response.Write(”<h1>The Database link is ERROR</h1>”)
Response.End()
End If
On Error GoTo 0
End Sub
Call DBOpen()
… …
conn.CLose() : Set conn=Nothing
Ïêϸ³ö´¦²Î¿¼£ºhttp://www.jb51.net/article/20869.htm
Ïà¹ØÎĵµ£º
aspµ¼³öEXCELÊý×Ö¸ñʽ¼°×Ô¶¯ÊÊÓ¦¿í¶ÈµÄÎÊÌâ
ÏÂÃæÖ±½Ó½øÐдúÂëÑÝʾ£º
<%
If Response.IsClientConnected Then
Response.Flush
Else
Response.End
End If
Set xlApplication = Server.CreateObject("Excel.Application")
xlApplication.Visible = False
xlApplication.Workbooks.Add
Set xlWorksheet = xl ......
aspÁ¬½Óaccess,³öÏÖ0x80004005,δָ¶¨µÄ´íÎó
aspÀ´Á¬½ÓaccessÊý¾Ý¿â
±¾µØ²âÊÔ·¢ÏÖ,¾²Ì¬Ò³¿ÉÒÔ´ò¿ª.
ºÍÊý¾Ý¿â½¨Á¢Á´½ÓµÄ´úÂëconn.open connstr Ðгö´í,µ«ÊÇÒÔÇ°²âÊÔʪ¿ÉÒÔͨ¹ýµÄ.
ÔÚÍøÉÏÕÒÁËÕÒ½â¾ö°ì·¨,ÀýÈ磺 ¸øÓû§¼ÓȨÏÞ,¸ü¸ÄiisÉèÖÃ.µ«ÊÇ»¹ÊDz»ÐÐ.
¼ÌÐøÕÒ£¬ÕÒµ½Ò»ÆªÎÄÕ£¬ËµÊÇÒªÐÞ¸Äc:\windows\temp ȨÏ޵ġ£
......
ÊÔÑéÁ˺þã¬ÖÕÓڸ㶨ÁË¡£
Ê×ÏÈ£¬±ØÐëÓдíÎó¼ÌÐø½øÐеÄÉùÃ÷On Error Resume Next
È»ºó³¢ÊÔ¼òÀújmailʵÀý£º
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
¶ÔʵÀý×ö³öÅжϣ¬Èç¹û×é¼þûÓа²×°³É¹¦£¬ ......
²É¼¯¿ªÊ¼
µÚÒ»²½ÊÇ·ÖÎöÒª²É¼¯µÄÒ³Ãæ¡£
¡¡Ê¹ÓÃä¯ÀÀÆ÷´ò¿ªÒª²É¼¯µÄÒ³Ã棨Èç:http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml£¬Äã¿ÉÒÔÆäËûÒ³Ã棩£¬´ò¿ªºó£¬µã»÷ÓÒ¼ü£¬²éÔ´Îļþ¡£
µÚ¶þ²½£¬ÕÒµ½Òª²É¼¯µÄÄÚÈÝËùÔÚλÖá£
¼ÙÈçÎÒÒª²É¼¯Õâ¸öÒ³ÃæÉϵıêÌâºÍÄÚÈÝËùÔÚµÄλÖãº
±êÌâÔÚ<h1 id="artibodyTitle" st ......
ÔÚ·þÎñÆ÷ÉÏÉú³É¶¯Ì¬ÄÚÈÝÊÇʹÓÃASP×îÖ÷ÒªµÄÔÒòÖ®Ò»£¬ËùÒÔÎÒÃÇÑ¡ÔñµÄµÚÒ»¸ö²âÊÔÏîÄ¿ÊÇÈ·¶¨°Ñ¶¯Ì¬ÄÚÈÝ·¢Ë͵½Ó¦´ðÁ÷ʹÓÃʲô·½·¨×îºÃ¡£»ù±¾µÄÑ¡ÔñÓÐÁ½ÖÖ£¨ÒÔ¼°ËüÃǵÄһЩ±ä»¯£©£ºÊ¹ÓÃÄÚǶASP±ê¼Ç£¬Ê¹ÓÃResponse.WriteÓï¾ä¡£
¡¡¡¡ Ϊ²âÊÔÕâЩ²»Í¬µÄ·½·¨£¬ÎÒÃÇ´´½¨ÁËÒ»¸ö¼òµ¥µÄASPÒ³Ã棬ҳÃæÏȶ¨ÒåһЩ±äÁ¿È»ºó°ÑËüÃDzåÈëµ½±í¸ ......