收录日期:2018/11/19 05:29:57 时间:2016/06/06 22:13:46 标签:ASP.NET
错误行有指出
<% @ Page Language=VB Debug=true%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html>
<% @ Import Namespace="System.Data" %>
<% @ Import Namespace="System.Data.OLEDB" %>
<html>
<head>
<title>用户登陆</title>
</head>
<body>
<script language=vb runat="server">
sub page_lode(ByVal Sender as Object,ByVal E as EventArgs)
end sub
sub Submit(Byval Sender as Object,Byval E as Eventargs)
   if TextBox1.Text=0 Or TextBox2.Text=0 then
     label3.text="账号密码不能为空,请输入正确的账号密码。"
   else
   dim s as string=TextBox1.Text
   dim q as string=TextBox2.Text
   Dim DBCon as OLEDBConnection
   Dim DBCom as OLEDBCommand 
   Dim r as Integer 
   DBCon=new OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=l:\usersname.mdb;")      
    DBCom=New OLEDBCommand("select username,passw from usern where username=s and passw=q" ,DBCon)   
    dbcon.open() 
    r=dbCom.ExecuteScalar()  \\错误指向这一行提示“至少有一个参数未被返回值“
    if (r=1)
     Label3.text="恭喜你,登陆成功"
  else
     Label3.text="对不起,ID错误"
  End if
     DBCon.Close()
 end if
end sub
</script>
<form runat="server">
<font face="Tahoma">
<Asp:Label id="Label1"
   runat="server"
   text="输入ID"/>
<Asp:TextBox
   id="TextBox1"
   runat="server"
/>
<Asp:Label
 id="Label2"
 runat="server"
 text="输入密码"
/>
<Asp:TextBox
   id="TextBox2"
   runat="server"
   textmod="password"
   maxlength=10
   column=10
/>
<Asp:Button
   id="Submitbt"
   Text="确定"
   onClick="Submit"
   runat="server"
/>
<Asp:label
   id="label3"
   runat="server"
/>
</script>
</form>


改这句:
DBCom=New OLEDBCommand("select username,passw from usern where username='" & s & "' and passw='" & q & "'" ,DBCon)   
试过了,不行啊
呜————
改这句:
DBCom=New OLEDBCommand("select count(*) from usern where username='" & s & "' and passw='" & q & "'" ,DBCon)
dbCom.ExecuteScalar(),返回第一行第一列。
显然:select username,passw from usern where username='" & s & "' and passw='" & q & "'" ,有两个参数,PASSW未被返回。
up
ExecuteScalar()
只返回左上角第一个值。所以,另外一个就没有返回啦。
LZ可以用DataReader来取值。

今天主管向我借零钱吃饭,我翻钱包时突然想到我有隐私的东西夹在钱包里,钱包又很乱,拿这些零钱会在他面前暴露隐私,可怜不知他发现我有零钱 今天主管向我借零钱吃饭,我翻钱包时突然想到我有隐私的东西夹在钱包里,钱包又很乱,拿这些零钱会在他面前暴露隐私,可怜不知他发现我有零钱 请问条件为2个时间段之间的SQL语句该怎么些? 在程序中获得存储过程的传出参数,我这样做为什么不对? Doolitter矩阵直接三角分解法程序 大家能告诉下delphi技术群吗?? 也是继承的问题!求教. 实现两个窗口通讯,父窗口来改变弹出窗口的值。请大家看看这段代码,不知道怎么回事 再开贴加100分..请各位就ASP调试的问题指点一二. 输入MSN用户名和密码之后能够列出MSN上联系人的EMAIL和名字 使用哈希表调试出现的错误 请问:什么是扫描码? 学python与学C#.net所花的时间比大抵多少? 帮帮我吧 刚安装好DELPHI 8,不知道从何下手 VMware中共享文件夹无法写入。 在读取文本文件时,怎么获取文本文件的列? 有问题,在线等!!!!!(有代码)(50分!!!!!快啊) 请教中断执行 域名工具?域名批量查询,域名抢注工具是什么原理呢?帮帮忙解答一下,有人用C#做过这样的工具吗? Server.MapPath() 项目在开发环境能够显示图片,为什么上传后无法显示图片 mail()函数如何指定发信人名称? 求助,哪位能帮在下把这个存储过程翻译成.net能用的函数? BCB新手有几个问题请教? 相关列类型不同,如何连接 请问个相关列类型不同的连接问题 请教一个关于CComboBox的SetWindowText的问题。 紧急求助linux安装时出现的分区问题 监听无法配置和启动, 各位帮忙, 谢谢 关于在webservice中的webmethod中放入结构参数的问题?