注册 登录
编程论坛 ASP技术论坛

请达人帮忙

yaohu 发布于 2008-05-22 15:38, 579 次点击
下面的代码存在问题》
错误提示是: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子句的错误
但是我不知道修改
5 回复
#2
天涯听雨2008-05-22 15:45
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
#3
yaohu2008-05-22 15:55
先谢谢啦

我还没有弄明白你说的是
那个不用加单引号。
还有software_code 是数字类型
再请教
#4
hxfly2008-05-22 15:58
strsql="Select * from software where software_code="&strcode
#5
yaohu2008-05-22 16:16
达人就是达人
非常感谢!!!!
#6
hxfly2008-05-22 17:10
....
其实二楼说的很清楚了,但是你没看明白
1