主题:  看我这段代码有明显的问题吗?谢谢,实在调试不出来

谁染枫林醉

职务:普通成员
等级:1
金币:1.0
发贴:148
#12004/1/15 0:40:54
<!--#include file="public/conn.asp"-->
<!--#include file="public/head.asp"-->
<%
dim sql,rs
set rs=server.createobject("adodb.recordset")
sql="select * from dls where id="&request("id")
response.write sql
rs.open sql,conn,1,1
%>
您正在查看<%=rs("name")%>的详细资料,他的编号是<%rs("id")%>
<TABLE border="0" cellspacing="0">
<tr><td><B><FONT COLOR="#663399">代理商操作</FONT><B></td></tr>
<TR><FORM METHOD=POST ACTION="">
<TD>增加销售额:</TD>
    <TD><INPUT TYPE="text" NAME="add_xse" value="add_xse"></TD>
    <td>&nbsp;&nbsp;<INPUT TYPE="submit" value="添加销售额"></td>
    </FORM>
    </TR>
<TR><FORM METHOD=POST ACTION="">


    <TD>增加奖金:</TD>
    <TD><INPUT TYPE="text" NAME="add_jj" value="add_jj"></TD>
    <td>&nbsp;&nbsp;<INPUT TYPE="submit" value="添加奖金"></td>
</FORM>
</TR>
<TR><FORM METHOD=POST ACTION="">
<TD>添加红宝石奖金:</TD>
    <TD><INPUT TYPE="text" NAME="add_hbs" value="add_hbs"></TD>
    <td>&nbsp;&nbsp;<INPUT TYPE="submit" value="添加红宝石利润"></td>
</FORM>
</TR>
<TR><FORM METHOD=POST ACTION="">
<TD>支取提成:</TD>
    <TD><INPUT TYPE="text" NAME="zq_tc" value="zq_tc"></TD>
    <td>&nbsp;&nbsp;<INPUT TYPE="submit" value="支取提成"></td>
</FORM>
</TR>
<tr>
<td>总销售额:</td>
<td><%=rs("xiaoshoue")%></td>
</tr>
<tr>
<td>一般提成:</td>
<td><%=rs("yb_ticheng")%></td>
</tr>
<tr>
<td>奖金:</td>
<td><%=rs("jiangjin")%></td>
</tr>
<tr>
<td>红宝石奖金:</td>
<td><%=rs("hbs_jiangjin")%></td>
</tr>
<tr>
<td>总提成:</td>
<td><%=rs("z_ticheng")%></td>
</tr>
<tr>
<td>已支取提成:</td>
<td><%=rs("zq_ticheng")%></td>
</tr>
<tr>
<%
rs.movenext
loop
end if
%>
<!-- 省略 -->
<td>上级代理商:</td>
<%
set rsshang=server.createobject("adodb.recordset")
sql="selcet id,name from dls where id="&rs("lishu")&""
rsshang.open sql,conn,1,1
if not rsshang.eof then
do while not rsshang.eof
%>
<td>
<A HREF="dls_caozuo.asp?id=<%=rsshang("id")%>"><%=rsshang("name")%></A>
<%
rsshang.movenext
loop
end if
rsshang.close
set rsshang=nothing
%>
</td>
</tr>
<tr>
<td>下级代理商:</td>
<%
set rsxia=server.createobject("adodb.recordset")
sql="selcet id,name from dls where lishu="&rs("id")&""
rsxia.open sql,conn,1,1
if not rsxia.eof then
do while not rsxia.eof
%>
<td><A HREF="dls_caozuo.asp?id=<%=rsxia("id")%>"><%=rsxia("name")%></A>
<%
rsxia.movenext
loop
end if
rsxia.close
set rsshang=nothing
%></td>
</tr>
</TABLE>
<%
rs.close
set rs=nothing
call closedb
%>
<!--#include file="public/foot.asp"-->



沉默是金

职务:普通成员
等级:6
金币:11.2
发贴:4357
#22004/1/15 9:21:11
sql="selcet id,name from dls where id="&rs("lishu")


你显示一下这个SQL


难人一个……