<%
dim username
dim password
UserName = Request.Form(" UserName")
Password = Request.Form(" Password")
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver="{Microsoft Access Driver (*.mdb)}"; &dbq=learnasp.mdb"
if session("username")=fgx then
response.Write"成功登录"
end if

%>

红色部分好像有问题～～

conn.Open "Driver="{Microsoft Access Driver (*.mdb)}"; &dbq=learnasp.mdb"
引号好像不正确
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("learnasp.mdb")

<%
dim conn, connstr
connstr="dirver=Microsoft Access Driver (*.mdb);DBQ=" & server.mappath("data/data.mdb")
set conn=Server.CreateObject("ADODB.Connection")
conn.open connstr
%>

conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath ("learnasp.mdb")

谢啦。问题解决了。2楼同4楼的大侠好样D。。