标题:ADODB.Command (0x800A0CC1)在对应所需名称或序数的集合中,未找到项目。
只看楼主
yuwenxiang
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2008-3-24
 问题点数:0 回复次数:2 
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="">
<!--#include file="fun.asp"-->
 </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">&nbsp;&nbsp;&nbsp;&nbsp;<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.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 名称 项目 
2008-05-10 12:46
yuwenxiang
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2008-3-24
得分:0 
不好 意思,代码没有加粗,倒数第十行有错误。上面<!--#include file="fun.asp"-->文件如下
<%
dim con,res,cmd
function conopen()
set con=server.CreateObject("adodb.connection")
set res=server.CreateObject("adodb.recordset")
set cmd=server.CreateObject(")
if con.state=1 then
    con.close
end if
con.open "file name=" & server.mappath("1.udl")
set cmd.activeconnection=con

end function
function resopen(ss)
if res.state=1 then
    res.close
end if
res.open "ss",con
end function

%>
2008-05-10 12:49
yuwenxiang
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2008-3-24
得分:0 
存储过程如下,我做的登陆界面
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
2008-05-10 12:50



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-213495-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018941 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved