标题:请达人帮忙
只看楼主
yaohu
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2008-4-21
 问题点数:0 回复次数:5 
请达人帮忙
下面的代码存在问题》
错误提示是:80040e07
标准表达式类型不匹配
<body bgcolor="#9999FF">
<!--#include file="conn.asp" -->
<%
  dim strcode
  strcode=request("sname1")
  response.Write("strcode='"&strcode&"'")
  
  if strcode="" then
     response.Redirect("ad-software.asp")
     end if
%>
<%
   set rs=Server.CreateObject("adodb.recordset")
   strsql="select * from software "
   strsql=strsql & "where software_code='"&strcode&"'"
   rs.open strsql,conn,1,1
   'rs.open "software",conn,1,3
   'do while not rs.eof
   'if rs("software_code")=strcode then
%>
<form action="did2.asp? id=<%=rs("software_code")%>" method="post" name="f1">
<table align="center" border="1">
<tr><td>软件编号</td>
    <td><input name="text1" value="<%=rs("software_code")%>" /></td>
    </tr>
<tr><td>软件名称</td>
    <td><input name="text2" value="<%=rs("software-name")%>" /></td>
</tr>
<tr><td>制作公司</td>
     <td><textarea name="text3"><%=rs("software-company")%></textarea></td>
     </tr>
<tr><td>软件分类</td>
     <td><input name="text12" value="<%=rs("sclass")%>" /></td>
     </tr>
<tr><td>软件介绍</td>
    <td><textarea name="text4"><%=rs("software-intro")%></textarea></td>
    </tr>
<tr><td>创建日期</td>
    <td><input name="text5" value="<%=rs("software-init")%>" /></td>
    </tr>
<tr><td>审核状态</td>
    <td><input name="text6" value="<%=rs("software-state")%>" /></td>
    </tr>
<tr><td>存放地址</td>
    <td><input name="text7" value="<%=rs("software-address")%>" /></td>
    </tr>
<tr><td>下载次数</td>
    <td><input name="text8" value="<%=rs("software-count")%>" /></td>
    </tr>
<tr><td>软件大小</td>
    <td><input name="text9" value="<%=rs("software-size")%>" /></td>
    </tr>
<tr><td>关键字</td>
    <td><input name="text10" value="<%=rs("software-key")%>" /></td>
    </tr>
<tr><td>上传人</td>
    <td><input name="text11" value="<%=rs("upload-person")%>" /></td>
    </tr>
<tr><td align="center"><!--<input name="按钮"  type="button"  value="返回" align="middle" onclick="history.back()" /> --></td>
    <td align="center"><input name="butonn1" type="button" value="更新及审核" align="middle"  />
    </tr>                         
</table>
</form>
<% 'end if
'rs.movenext
'loop %>
<%
  rs.close
  set rs=nothing

%>
</body>
</html>

具体是的 rs.open strsql,conn,1,1
这行语句的错误
经过排查,我发现是where子句的错误
但是我不知道修改
搜索更多相关主题的帖子: strcode strsql software 
2008-05-22 15:38
天涯听雨
Rank: 2
来 自:东莞
等 级:论坛游民
威 望:4
帖 子:497
专家分:64
注 册:2007-8-25
得分:0 
dim strcode
  strcode=request("sname1")
  
  
  if strcode="" then
     response.Redirect("ad-software.asp")
  end if
  set rs=Server.CreateObject("adodb.recordset")
  
  如果software_code 为字符就要加上单引号,是数字就不用。
  strsql="Select * from software where software_code='"&strcode&"'"
  rs.open strsql,conn,1,1

从明天起做幸福的人,喂马劈柴周游世界!
2008-05-22 15:45
yaohu
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2008-4-21
得分:0 
先谢谢啦

我还没有弄明白你说的是
那个不用加单引号。
还有software_code 是数字类型
再请教
2008-05-22 15:55
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5807
专家分:108
注 册:2005-4-7
得分:0 
strsql="Select * from software where software_code="&strcode

2008-05-22 15:58
yaohu
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2008-4-21
得分:0 
达人就是达人
非常感谢!!!!
2008-05-22 16:16
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5807
专家分:108
注 册:2005-4-7
得分:0 
....
其实二楼说的很清楚了,但是你没看明白

2008-05-22 17:10



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




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

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