学习ASP测试网页的时候显示“列名不明确”

[dean8828]

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="b2b_includefile/css.css" rel="stylesheet" type="text/css">
<TABLE align="center" cellSpacing=0 cellPadding=0 width=165 border=0>
    <TR> 
      <TD width="972" vAlign=top>
	   <% if LngUserID="0" then 
	  		 %>
<table width=100% border=0 align=center cellpadding=0 cellspacing=0>
<tr><td width="100" border=0></td></tr>
          <form name=loginfo method=post action="chkuser.asp">
            <tr > 
              <td style='padding-left:5px' height="20">用户名：<input name=username type=text class="input_sr" size="14" maxlength="15"> 
              </td>
            </tr>
            <tr> 
            <td style='padding-left:5px' height="20">密　码：<input name=UserPassword type=password class="input_sr" size="14">
            </tr>
            <tr > 
              <td style='padding-left:5px' height="20">验证码：<input name=passcode type=text class="input_sr" size=8 maxlength="4">
              <img src="code.asp"></td>
		    </tr>
            <tr > <td colspan="2" align="center" height="20">
                <input name=Submit type=submit class="input_bot" onClick="return checkuu();" value="登录">
				<input name="Submit1" type="button" class="input_bot" onClick="location.href='reg.asp';" value="注册"> 
				<input name="Submit2" type="button" class="input_bot" onClick="location.href='repassw.asp?action=repass';" value="忘密">
            </td></tr>
          </form>
        </table>
<%
else 

dim IntOrderNum
set rsvip=server.CreateObject("adodb.recordset")
rsvip.Open "select distinct(goods) from orders where username='"&strUserName&"' and state=2 ",conn,1,1
IntOrderNum = rsvip.recordcount
rsvip.Close

rsvip.open "select [User].grpid,username,GrpID,b2b_userjb.GrpName,bookzt,b2b_userjb.Stars from [User] Inner Join b2b_userjb On [User].GrpID = b2b_userjb.GrpID where username='"&strUserName&"' ",conn,1,1

strTitle = rsVip("GrpName")
bookzt=rsVip("bookzt")
LngDiscount = rsVip("Stars")
rsvip.close
set rsvip=nothing 

if IntOrderNum=0 then %>

<table width="100%" border="0" cellspacing="1" cellpadding="1" align="center">
<tr><td width="100" background=images/bg_04.gif border=0></td></tr>
  <tr height=20>
    <td>欢迎<font color=FF6600><% = strUserName %></font> 您是<font color=FF6600><b><% = strTitle %></b></font></td>
  </tr>

  <tr>
    <td height=20>您目前没有未处理订单</td>
  </tr>
  <tr>
    <td height=20>共计:0.00元</td>
  </tr>
  <tr><td align="center" height=20><a href=profile.asp?action=profile>用户中心</a>    <a href=logout.asp>注销登录</a></td></tr>
</table>

<%

else
dim shopjiage
shopjiage = 0
set rs=server.CreateObject("adodb.recordset")
rs.open "select product.price,product.amount,product." & LstPrice & ",orders.productnum from product inner join orders on product.id=orders.id where orders.state=2 and orders.username='"&trim(strUserName)&"' ",conn,1,1
do while not rs.eof
shopjiage=shopjiage+(rs("" & LstPrice & "")+rs("price"))*rs("productnum")
rs.movenext
loop 
shopjiage=round(shopjiage,2)
%>

<table width="100%" border="0" cellspacing="1" cellpadding="1" align="center">
<tr><td width="100" background=images/bg_04.gif border=0></td></tr>
  <tr>
    <td height=20>欢迎<font color=FF6600><% = strUserName %></font> 您是<font color=FF6600><b><% = strTitle %></b></font></td>
  </tr>

  <tr>
    <td height=20>您目前有<font color="#FF6600">
      <% =IntOrderNum %></font>笔<a href="profile.asp?action=goods"><font color="#FF6600">未处理订单</font></a>
	</td>
  </tr>
  <tr>
    <td height=20>共计：<font color="#FF6600">
    <% = shopjiage %></font> 元(不含邮费)<%
							  if session("uid")<>"" then
							  	mSql="select Count(*) as Num from welcomemesbuy where UserID='"&Session("uID")&"' and isLook=False"
								set mRs=conn.execute(mSql)
								smsg=mRs("Num")
								if mRs("Num")<>0 then
									response.write "<a href='profile.asp?action=profile'>"
									response.Write "<img border='0' src='image/mespic.gif' align='absmiddle'>  "
									response.Write "</a>"
									end if
								mRs.close
								set mRs=nothing
							  end if
							  %>
							  	<script language="vbscript">
								<%if smsg<>0 then%>			       						   				
									document.write "<bgsound src='sound/newmsg.mp3' loop='1'>"
								<%end if%>   
								</script></td>
  </tr>
  <tr><td align="center" height=20><a href=profile.asp?action=profile>用户中心</a>    <a href=logout.asp>注销登录</a></td></tr>
</table>
<%
end if 
rs.close	
end if %></TD>
    </TR>
</TABLE>
<SCRIPT LANGUAGE="JavaScript">
<!--
  function checkuu()
{
    if(checkspace(document.loginfo.username.value)) {
	document.loginfo.username.focus();
    alert("用户名不能为空！");
	return false;
  }
    if(checkspace(document.loginfo.UserPassword.value)) {
	document.loginfo.UserPassword.focus();
    alert("密码不能为空！");
	return false;
  }
    if(checkspace(document.loginfo.passcode.value)){
	document.loginfo.passcode.focus();
	alert("验证码不能为空");
	return false;
	}
	
  }

//-->
</script> 

这是我做的一部分代码，在测试网页的时候遇到
Microsoft OLE DB Provider for SQL Server (0x80040E14)
列名 'grpid' 不明确。
/网站5/login.asp, 第 38 行

也就是：rsvip.open "select [User].grpid,username,GrpID,b2b_userjb.GrpName,bookzt,b2b_userjb.Stars from [User] Inner Join b2b_userjb On [User].GrpID = b2b_userjb.GrpID where username='"&strUserName&"' ",conn,1,1

第一次遇到这个问题，不知道该怎么解决。是数据库设置错误吗？

[anbs01]

数据库当中有那个列吗？

[lzp4881]

rsvip.open "select [User].grpid,username,GrpID,b2b_userjb.GrpName,bookzt,b2b_userjb.Stars from [User] Inner Join b2b_userjb On [User].GrpID = b2b_userjb.GrpID where username='"&strUserName&"' ",conn,1,1
这里面有两个grpid
应该改为
rsvip.open "select [User].grpid as ugrpid,username,b2b_userjb.GrpID as b2bgrpid,b2b_userjb.GrpName,bookzt,b2b_userjb.Stars from [User] Inner Join b2b_userjb On [User].GrpID = b2b_userjb.GrpID where username='"&strUserName&"' ",conn,1,1
或者去掉其中一个

[dean8828]

[Quote=引用 2 楼 lzp4881 的回复:]
rsvip.open "select[User].grpid,username,GrpID,b2b_userjb.GrpName,bookzt,b2b_userjb.Stars from [User] Inner Join b2b_userjb On [User].GrpID = b2b_userjb.GrpID where username='"&strUserName&"' ",conn,1,1
这里面有两个grpid
应该改为
rsvip.open "select [User].grpid as ugrpid,username,b2b_userjb.GrpID as b2bgrpid,b2b_userjb.GrpName,bookzt,b2b_userjb.Stars from [User] Inner Join b2b_userjb On [User].GrpID = b2b_userjb.GrpID where username='"&strUserName&"' ",conn,1,1
或者去掉其中一个
[/Quote]


去掉的话会显示错误，缺少RS。。

数据库里面当然有这一列

[笨笨兔兔兔兔兔]

[Quote=引用 3 楼 dean8828 的回复:]
引用 2 楼 lzp4881 的回复:
rsvip.open "select[User].grpid,username,GrpID,b2b_userjb.GrpName,bookzt,b2b_userjb.Stars from [User] Inner Join b2b_userjb On [User].GrpID = b2b_userjb.GrpID where username='"&strUserName&"' ",conn,1,1
这里面有两个grpid
应该改为
rsvip.open "select [User].grpid as ugrpid,username,b2b_userjb.GrpID as b2bgrpid,b2b_userjb.GrpName,bookzt,b2b_userjb.Stars from [User] Inner Join b2b_userjb On [User].GrpID = b2b_userjb.GrpID where username='"&strUserName&"' ",conn,1,1
或者去掉其中一个



去掉的话会显示错误，缺少RS。。

数据库里面当然有这一列
[/Quote]

缺少RS 不是这里错了,是另外的错了

[chackerL]

[Quote=引用 2 楼 lzp4881 的回复:]
rsvip.open "select[User].grpid,username,GrpID,b2b_userjb.GrpName,bookzt,b2b_userjb.Stars from [User] Inner Join b2b_userjb On [User].GrpID = b2b_userjb.GrpID where username='"&strUserName&"' ",conn,1,1
这里面有两个grpid
应该改为
rsvip.open "select [User].grpid as ugrpid,username,b2b_userjb.GrpID as b2bgrpid,b2b_userjb.GrpName,bookzt,b2b_userjb.Stars from [User] Inner Join b2b_userjb On [User].GrpID = b2b_userjb.GrpID where username='"&strUserName&"' ",conn,1,1
或者去掉其中一个
[/Quote]

去掉[User].grpid

[dean8828]

[Quote=引用 5 楼 chackerl 的回复:]
引用 2 楼 lzp4881 的回复:
rsvip.open "select[User].grpid,username,GrpID,b2b_userjb.GrpName,bookzt,b2b_userjb.Stars from [User] Inner Join b2b_userjb On [User].GrpID = b2b_userjb.GrpID where username='"&strUserName&"' ",conn,1,1
这里面有两个grpid
应该改为
rsvip.open "select [User].grpid as ugrpid,username,b2b_userjb.GrpID as b2bgrpid,b2b_userjb.GrpName,bookzt,b2b_userjb.Stars from [User] Inner Join b2b_userjb On [User].GrpID = b2b_userjb.GrpID where username='"&strUserName&"' ",conn,1,1
或者去掉其中一个


去掉[User].grpid
[/Quote]

去掉[User].grpid还是显示不明确。。。

[lzp4881]

去掉[User].grpid还是显示不明确。。。
你没有仔细看我给你改的吗?
select [User].grpid as ugrpid,username,b2b_userjb.GrpID as b2bgrpid
前面都要加上表名,

[dean8828]

[Quote=引用 7 楼 lzp4881 的回复:]
去掉[User].grpid还是显示不明确。。。
你没有仔细看我给你改的吗?
select[User].grpidas ugrpid,username,b2b_userjb.GrpIDas b2bgrpid
前面都要加上表名,
[/Quote]

没错啊，照你那样改是缺少RS啊。。。

[笨笨兔兔兔兔兔]

缺少rs的错误

估计是

end if
rs.close
end if

这行导致的...

[笨笨兔兔兔兔兔]

你的sql 语句先照前面的改...那是没错的

你的rs.close的位置有问题,再改一下就好了

[dean8828]

可以了，谢谢大家，哈哈~