找不到可安装的 ISAM
基本代码如下,运行后出现, 找不到可安装的 ISAM,什么意思啊?sub page_load(source as object , e as eventargs)
session("studentid")=request.QueryString("studentid")
session("studentpassword")=request.QueryString("studentpassword")
'设置ACCESS数据库的连接字符串
dim strconn as string
dim myconn as oledbconnection
dim sql as string
dim mycommand as oledbcommand
dim studentreader as oledbdatareader
strconn="provider=microsoft.jet.oledb.4.0 ;Date source="&server.MapPath("shujuku\#student.mdb")
myconn=new oledbconnection(strconn)
'打开数据库
sql="select * from student "
mycommand=new oledbcommand(sql, myconn)
myconn.open
'生成一个datareader
studentReader = myCommand.ExecuteReader()
'检测reader就否有记录
if studentreader.read() then
response.Write("<i>学号或者密码错误,请重新输入。")
response.Redirect("index.aspx")
else
session("check")=1
response.Redirect("student_admin.aspx?studentid='"&session("studentid")&"'")
end if
end sub