还是不行！！！
应用程序中的服务器错误。
--------------------------------------------------------------------------------
找不到文件 'd:\VS2008\Common7\IDE\& Server.MapPath(lts.mdb)'。
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。
异常详细信息: System.Data.OleDb.OleDbException: 找不到文件 'd:\VS2008\Common7\IDE\& Server.MapPath(lts.mdb)'。
源错误:
行 19:
StrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Server.MapPath(lts.mdb)"
行 20:
Cnn = New OleDbConnection(StrCnn)
行 21:
Cnn.Open()
行 22:
'查询用户名及密码是否正确
行 23:
Sql = "select * from userinfo where nc=' & Trim(theName) & ' and pwd=' & Pwd & '"
代码如下：
Sub Sure_Click(ByVal Sender As Object, ByVal E As EventArgs) Handles Sure.Click
Dim StrCnn As String
Dim Sql As String
Dim Cnn As OleDbConnection
Dim Cmd As OleDbCommand
Dim Dr As OleDbDataReader
Dim username As String
Dim theName As String
Dim Pwd As String
'获取用户所输入的用户名
theName = t1.Text
'获取用户所输入的用户密码
Pwd = T2.Text
'连接数据库
StrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Server.MapPath(lts.mdb)"
Cnn = New OleDbConnection(StrCnn)
Cnn.Open()
'查询用户名及密码是否正确
Sql = "select * from userinfo where nc=' & Trim(theName) & ' and pwd=' & Pwd & '"
Cmd = New OleDbCommand(Sql, Cnn)
Dr = Cmd.ExecuteReader()
If (Dr.Read()) Then
Dr.Close()
'存在此用户名和密码，该用户为合法用户，将该用户的OnLine设置为1，表示该用户已登录
Sql = "Update userinfo set online='1' where nc=' & Trim(theName) & '"
Cmd = New OleDbCommand(Sql, Cnn)
Cmd.ExecuteNonQuery()
Cnn.Close()
'将用户的名称赋予Session变量，以便在其他页面中识别当前用户
Session(username) = Trim(theName)
'将页面跳转至主页
Response.Redirect("Main.aspx")
Else
'不存在匹配的用户名和密码，提示错误信息
span1.InnerHtml = "font color='red'错误的用户名或密码！font"
End If
End Sub
