ADODB.Command (0x800A0CC1)在对应所需名称或序数的集合中，未找到项目。

yuwenxiang

新手上路

Rank: 1

帖子: 38
精华: 0
注册时间: 2008-3-24

1^# 大中小发表于 2008-5-10 12:46 只看该作者

ADODB.Command (0x800A0CC1)在对应所需名称或序数的集合中，未找到项目。

代码加粗的唯有错的位置，请高手班我解决一下。万分感谢！！！！
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
  <TITLE> 登录界面 </TITLE>
  <META NAME="Generator" CONTENT="EditPlus">
  <META NAME="Author" CONTENT="">
  <META NAME="Keywords" CONTENT="">
  <META NAME="Description" CONTENT="">

</HEAD>
<script language="vbscript">
sub  cmd_onclick()
if frm1.zh.value="" then
    alert "帐号不能为空"
    frm1.zh.focus
elseif frm1.psw.value="" then
    alert "密码不能为空"
    frm1.psw.focus
else
    frm1.submit

end if

end sub
sub  set_onclick()
    frm1.zh.focus
end sub

</script>
<style type="text/css">
#ta{
        border-style:solid;
        border-color:#CC0000;


    }

</style>
<BODY>
<center>
<form action="" method="post" name="frm1">
<TABLE width="302" height="138" id="ta">
<TR>
    <TD><center><b>用户名：</b></center></TD>
    <TD><input type="text" name="zh" id="td" style="width:150px"></TD>
</TR>
<TR>
    <TD><center><b>密  &nbsp码：</b></center></TD>
    <TD><input type="password" name="psw" id="td"  style="width:150px"></TD>
</TR>
<TR>
    <TD colspan=2><center><input type="button" value="登录" name="cmd">    <input type="reset" name="set"></center></TD>
</TR>
<input type="hidden" name="hi" value="1">
</TABLE></form></center>
<center><%
    dim zha,mma,sqla
     zh=request.Form("zh")
     mm=request.Form("psw")
    conopen
     cmd.commandtext="up_login"
     cmd.parameters("@zh")=zha
    cmd.parameters("@mm")=mma
    cmd.execute
     sqla=cmd.parameters("@sql")
    if request.Form("hi")="1" and sql=2 then
         response.Write "<script language='javascript'>alert('帐号不存在或密码不正确');</script>"


    end if


%></center>
</BODY>
</HTML>

搜索更多相关主题的帖子: 序数 Command ADODB 名称项目

TOP

yuwenxiang

新手上路

Rank: 1

帖子: 38
精华: 0
注册时间: 2008-3-24

2^# 大中小发表于 2008-5-10 12:49 只看该作者

不好意思，代码没有加粗，倒数第十行有错误。上面文件如下
<%
dim con,res,cmd
function conopen()
set con=server.CreateObject("adodb.connection")
set res=server.CreateObject("adodb.recordset")
set cmd=server.CreateObject("adodb.command")
if con.state=1 then
con.close
end if
con.open "file name=" & server.mappath("1.udl")
set cmd.activeconnection=con
cmd.commandtype=4
end function
function resopen(ss)
if res.state=1 then
res.close
end if
res.open "ss",con
end function

%>

TOP

yuwenxiang

新手上路

Rank: 1

帖子: 38
精华: 0
注册时间: 2008-3-24

3^# 大中小发表于 2008-5-10 12:50 只看该作者

存储过程如下，我做的登陆界面
ALTER  proc up_login
@zh varchar(20),
@mm varchar(20),
@sql int output
as
begin

if exists(select zh from dbo.login where zh=@zh)
    if exists(select mm from dbo.login where mm=@mm and zh=@zh)
        set @sql=1
    else
        set @sql=2
else
    set @sql=3

end

TOP

‹‹ 上一主题 | 下一主题 ››