Á¬accessÊý¾Ý¿âÁ¬²»ÉÏÊÇÔõô»ØÊ - Web ¿ª·¢ / ASP

VBScript code:
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"

On Error Resume Next
dim conn
dim connstr
dim db
db="../Data/info.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr

If conn.Errors.count>0 Then
Response.Write "<script language='javascript'>alert('Êý¾Ý¿âÁ¬½Ó³ö´í,ÇëÁªÏµÏµÍ³¹ÜÀíÔ±!');window.location='';</script>"
Else
'Response.Write "Êý¾Ý¿âÁ¬½Ó³É¹¦£¡"
End If
%>

´úÂëÊÇÕâÑùµÄ£¬±£Ö¤Â·¾¶ÊǶԵģ¬¶øÇÒÎÒÕâÑùÁ¬ÆäËüµÄaccessÊý¾Ý¿âÒ²ÄÜÁ¬ÉÏ£¬¾ÍÊÇÎÒÏÖÔÚÒªÁ¬µÄÕâ¸öÁ¬²»ÉÏ£¬ºÜÓôÃÆ£¡£¡£¡£¡

---

°ÑÕâ¾äÈ¥µôOn Error Resume Next£¬ÈÃÒ³ÃæÏÔʾһÏ´íÎóÄÚÈÝ

---

»¹ÓУ¬ÄãÓõķþÎñÆ÷ÊÇʲô£¿iis6¼°ÒÔºóĬÈÏÊDz»ÔÊÐí·ÃÎÊ../ÕâÑùµÄÄÚÈݵģ¬ÐèÒªÅäÖòſÉÒÔ

---

iis7 ÎÒ¿ªÆôÁ˸¸Â·¾¶£¬»¹ÊDz»ÐÐ

---

°´ÎÒһ¥˵µÄ£¬ÏÈ°Ñ´íÎóÏÔʾ³öÀ´

---

db="../Data/info.mdb"
·¾¶ÎÊÌâ

---

ÒýÓÃ

°ÑÕâ¾äÈ¥µôOn Error Resume Next£¬ÈÃÒ³ÃæÏÔʾһÏ´íÎóÄÚÈÝ

Ö§³Ö´íÎó²Å»áÖªµÀÔ­Òò£¡
{