验证登录没有反应!(新手上路)
各位高手,我做的是一个登录界面!!下面是一些代码:
<%@ 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"页面