accessÊý¾Ý¿âÁ¬½Ó - Web ¿ª·¢ / ASP
ÎÒÁ¬½ÓaccessÊý¾Ý¿â£¬ÒÔǰһֱºÜºÃ£¬×î½üÈ´×ÜÊdzö´í£¨Êý¾Ý¿âÁ¬½Ó³ö´í!£¡£©£¬´úÂëÈçÏ£º
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.open connstr
if err then
err.clear
set conn=nothing
response.write "Êý¾Ý¿âÁ¬½Ó³ö´í!£¡"
Response.End
end if
err ºÎʱÊÇtrueѽ
Äã°ÑÕâ¸öifÓï¾ä×¢Ê͵ô ¿´¿´´íÎóÐÅÏ¢
conn¶ÔÏó´´½¨ÁËô.
Ó¦¸ÃÔÚÇ°ÃæÐ´,On Error Resume Next,²»È»²»ÖªµÀ´ÓÄÄÀ↑ʼµÄ,ÔÚÕâ¸ö·¶Î§Ö®ÄÚÒ»°ãÀ´ÈκδíÎóerr¶¼»áÎªÕæ.
²»ÖªµÀÊý¾Ý¿âÁ¬½Ó´íÔÚÄÄÀï,ÏȰÑÕâ¶ÎÈ¥µô,¿´¿´±¨Ê²Ã´´í,ÔÙÌù³öÀ´¸øÄã¿´¿´
VB code:
if err<>0 then '0£ºÕý³£
err.clear
set conn=nothing
response.write "Êý¾Ý¿âÁ¬½Ó³ö´í!£¡"
Response.End
end if
if err<>0 then
¸ÄÕý£º
Err.number<>0
VB code:
<%
dim startime,Conn,rs,rs1,rs2
startime=timer()
on error resume next '³¢ÊÔÁ¬Êý¾Ý¿â£¬Ò»Ö±µ½³¬Ê±
set Conn=server.CreateObject("ADODB.Connection")
Conn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("¡°&db&¡±")
Conn.open()
%>
Ïà¹ØÎÊ´ð£º
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
¸÷λ¸ßÊֺã¬Âé·³°ïÎÒ¿´ÏÂÕâ¸öÊý¾Ý¿âÁ¬½ÓÎÊÌ⣺
×öÁËÒ»¸öBBSµ«ÊÇÊý¾Ý¿â¾ÍÊÇÁ¬½Ó²»ÉÏ¡£´íÎó´úÂëÈçÏÂ
HTTP Status 500 -
------------------------------------------------------------------------------- ......
¾ÍÊÇÊÇ·ñÖ§³Ö¶à¸öÁ¬½ÓµÄ²Ù×÷£¿ÔÚÒ»¸ö³ÌÐòÁ¬½ÓÕâ¸öÊý¾Ý¿âʱ£¬ÁíÒ»¸ö³ÌÐò»¹ÄÜÔÙÁ¬½ÓÕâ¸öÊý¾Ý¿âÂð£¿
×î¶àÖ§³Ö¶àÉÙ²¢·¢Á¬½Ó£¿
Ö§³Ö¡£
http://msdn.microsoft.com/en-us/library/ms810829.aspx
×î¶àÖ§³Ö¶àÉÙ²¢· ......
±í½á¹¹ÊÇÕâÑùµÄ£º
µ«ÎÒÓÃDTSµ¼³öµÄʱºò³ö´íÁË£º
²Ù×÷ÒÑÍ£Ö¹...
- ÕýÔÚ³õʼ»¯Êý¾ÝÁ÷ÈÎÎñ (³É¹¦)
- ÕýÔÚ³õʼ»¯Á¬½Ó (³É¹¦)
- ÕýÔÚÉèÖà SQL ÃüÁî (³É¹¦)
- ÕýÔÚÉèÖÃÔ´Á¬½Ó (³É¹¦)
- ÕýÔÚÉèÖÃÄ¿±êÁ¬½Ó (³É¹¦)
- ......
ÏÂÃæÊÇÊý¾Ý
ID Money PID
1 50
2 40 1
3 30 1
4 ......