验证登录没有反应！（新手上路）

[shanshan_hcs149]

各位高手，我做的是一个登录界面！！下面是一些代码：
<%@ language="vb" runat="server" debug="true" %>
<%@ import namespace="system.data" %>
<%@ import namespace="system.data.oledb" %>
<script runat="server">
<sub login_click(sender as object,e as eventargs)
dim tag as integer
dim strcnn as string
dim strsql as string
dim cnn as oledbconnection
dim cmd as oledbcommand
dim dr as oledbdatareader
if (page.isvalid) then
strcnn="provider=microsoft.jet.oledb.4.0;data source=" + _
server.mappath("classmate.mdb")
strsql="select * from userinfosheet where loginname='" + _
username.text.tostring + "' and userpass='" + _
userpass.text.tostring + "'"
cnn=new oledbconnection(strcnn)
cnn.open()
cmd=new oledbcommand(strsql,cnn)
dr=cmd.executereader()

if (dr.read()) then
session("user")=username.text.tostring
response.redirect(main.aspx")
else
errmsg.innerhtml="<font style='color:red'>错误的用户名或密码!!</font>"
end if
end if
end sub

下面是这个事件控件的设置代码：
<asp:button id="login"
text="登录"
onclick="login_click"
runat="server" />
<span id=errmsg" runat="server" />

整个程序调试没出现错误，不过输入正确的用户与密码后（用户名与密码绝对没问题），点击登录后都显示：错误的用户名或密码！！进不了"main.aspx"页面

[张海霖]

大小写，你把strsql的值打印出来，到查询分析器执行。看看。

[skylarkzcc]

不懂vb,但如果程序没有错的话,点击没有反应, 你就双击 提交 按钮试试

[happyfamily]

查看你的sql语句吧
差不多是那儿错
Response.Write(strsql)
Response.End()

[fengyecsdn]

对VB不是很了解 但是你上边的代码有很多拼写错误
如果你真的是按照上边的代码编译能通过吗？？

[shenen]

'可能是那个strsql有问题
'我改为后代码，运行正常。
<asp:TextBox id="username" style="Z-INDEX: 101; LEFT: 49px; POSITION: absolute; TOP: 43px" runat="server"></asp:TextBox>
<asp:TextBox id="userpass" style="Z-INDEX: 102; LEFT: 54px; POSITION: absolute; TOP: 84px" runat="server"></asp:TextBox>
<asp:button id="login" text="登录" runat="server" />
<span id="errmsg" runat="server"></span>
'code behind
Private Sub login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles login.Click
Dim tag As Integer
Dim strcnn As String
Dim strsql As String
Dim cnn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
If (Page.IsValid) Then
strcnn = "provider=microsoft.jet.oledb.4.0;data source=" + _
Server.MapPath("classmate.mdb")
strsql = "select * from userinfosheet where loginname='" + _
username.Text.ToString + "' and userpass='" + _
userpass.text.tostring + "'"
cnn = New OleDbConnection(strcnn)
cnn.Open()
cmd = New OleDbCommand(strsql, cnn)
dr = cmd.ExecuteReader()

If (dr.Read()) Then
Session("user") = username.Text.ToString
Response.Redirect("main.aspx")
Else
errmsg.innerhtml = "<font style='color:red'>错误的用户名或密码!!</font>"
End If
End If
End Sub