帮我看看哪里出了问题?(页 1) - ASP技术论坛

ycbbg 发表于 2008-6-3 11:15

帮我看看哪里出了问题?

<% Function company1(n,Table)
Table = Lcase(Trim(Table))
%>

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="main">
<tr>
<td width="80%" align="left" height="25" bgcolor="#178EDE">  <font color="#ffffff">最新加入企业</font></td>
<td width="20%" bgcolor="#178EDE"><a  href=nchy/mingpian.asp class="linkone" target="_blank"><font color="#ffffff">更多...</font></a></td>
</tr>
</table>
<table width="100%"  align="center" cellpadding="0" cellspacing="0" class="main">

                           <%

   set rs=server.CreateObject("adodb.recordset")
   sql="select top "&n&" id,company,typename from '"& Table &"' where zj='1' order by dnt desc, place desc"
rs.open sql,conn,1,3

   Do While Not Rs.Eof


   %>
                           <tr>
                              <td width=15></td><td height="18" align="left"><img src="ima/arrow5.gif" width="5" height="5" align="absmiddle">
                              <% if rs("typename")="装饰装璜" then%> <a  href=nchy/zhuangshi-mp.asp?id=<%=trim(rs("id"))%>&typename=<%=rs("typename")%> class="linkone" target="_blank"><%else%><a  href=nchy/company_mingpian.asp?id=<%=trim(rs("id"))%>&typename=<%=rs("typename")%> class="linkone" target="_blank"><%end if%><font color="#333333"><%=getStr(trim(rs("company")),18)&".."%></font></a></td>
                           <td width=20><img  src="nchy/img/08065819.gif" ></td>
   </tr>
                           <tr class="trline"  height="1">
                              <td width=15></td><td background="ima/back.gif"  height="1" colspan="2"></td>
                           </tr>
                           <%
   Rs.MoveNext
   Loop
   Rs.Close
   set rs=nothing

   %>
                        </table>
<% End Function%>

调用后提示:[color=SandyBrown]查询语法错误。查询子句不完整。[/color]

ycbbg 发表于 2008-6-3 11:25

请高手指点,在线等!!

hmhz 发表于 2008-6-3 12:23

把红色两个豆号去掉
sql="select top "&n&" id,company,typename from [color=Red]'[/color]"& Table &"[color=Red]'[/color] where zj=[color=Red]'[/color]1[color=Red]'[/color] order by dnt desc, place desc"

ycbbg 发表于 2008-6-3 14:00

试过了,没用

yms123 发表于 2008-6-3 14:57

sql="select top "&n&" id,company,typename from '"& Table &"' where zj='1' order by dnt desc, place desc"
Response.Write(Sql)
显示一下sql语句然后把这句话后面的代码暂时的注释掉。

ycbbg 发表于 2008-6-4 09:13

用Response.Write(Sql)后

select top 8 id,company,typename from '' where zj='1' order by dnt desc, place desc
Microsoft VBScript 运行时错误错误 '800a01a8'

缺少对象: ''

怎么变量没传值呀

hmhz 发表于 2008-6-4 09:21

朽木不可雕也

ycbbg 发表于 2008-6-4 09:35

可以了，传值过程中出了点问题

正确的是：
sql="select top "&n&" id,company,typename from "& Table &" where zj='1' order by dnt desc, place desc"

谢谢各位了，
Response.Write(Sql)很管用

zhangyao3287 发表于 2008-6-4 10:43

Response.Write()
Response.End()
ASP里面错误测试经常用到

页: [1]