好基于ASP,ACCESS
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim student_name,student_no
student_name=session("student_name")
student_no=session("student_no")
student_password=session("student_password")
if session("student_name")=empty then
response.write "<div align=""center"">您还没有登录,请<a href=""signup.asp"">返回</a> 登录</div>"
response.end
end if
' 建立Connection 对象
set conn= Server.CreateObject("adodb.connection")
'定义OLE DB连接字符串
'provider="provider=microsoft.jet.oledb.4.0;"
'dbpath="data source="&server.mappath("/webtest/data/webtest.mdb")
'打开连接
'conn.open provider & dbpath
cnnstr="DBQ=" + server.mappath("data/webtest.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'打开连接
'conn.open provider & dbpath
conn.open cnnstr