落伍者站长论坛 » 新人交流投稿(入伍区) » 站长知道(解答得积分) » 精通ASP的来救救我~~~

baimaliu 发表于 2008-6-26 14:52

精通ASP的来救救我~~~

sub issue_person(num,term)
        if num<=0 or not IsNumeric(num) then
        num=5
        end if
        sql="select top "&num&" * from zt_Personal_pmember,zt_resumePersonal where zt_resumePersonal.resume_openness=0"
        if term="newperson" then
                sql=sql&" order by pmember_id desc"
        elseif term="tjperson" then
                sql=sql&" and pmember_command=1"
                sql=sql&" order by resume_announcedate desc"
        end if
        set rs=server.CreateObject("adodb.recordset")
        rs.open sql,conn,1,1
        if not(rs.eof) then
                response.Write "<table width=100% border=1 cellpadding=0 cellspacing=0 bordercolor=#F6F6F6>"
                i=0
                do while not rs.eof
                resume_announcedate=rs("resume_announcedate")
                resume_id=rs("pmember_id")
                person_name=rs("pmember_name")
                person_sex=rs("pmember_sex")
                edu_id=rs("pmember_edu")
                %>
                  <tr<%if i mod 2=0 then response.write " bgcolor='#F5F5F5'"%>>
                        <td width="37%" align="center" HEIGHT="20"><a href="person/cnresume_view.asp?rid=<%=resume_id%>" target="_blank"><%=person_name%></a><%
                        if resume_announcedate<>"" and datevalue(resume_announcedate)=date() then
                        response.Write
                        end if
                        %></td>
                        <td width="30%" align="center"><%if person_sex=1 then response.Write "男" else response.Write "女"%></td>
                <%
                edu_name=""
                If IsNumeric(edu_id) Then
                        set rs1=conn.execute("select edu_name from zt_Education where edu_id="&edu_id)
                        edu_name=rs1("edu_name")
                        rs1.close
                        set rs1=nothing
                End If
                %>
                        <td width="28%" align="center"><%=edu_name%></td>
                  </tr>
                <%
                rs.movenext
                i=i+1
                loop
                response.Write"</table>"
                rs.close
        end if
end sub

sub exhibit(num)
%>


能帮忙分析下这段代码出什么问题了不，调用出来两行两行会重复。。就是1，2行一样，3，4行一样，依次类推。如下图所示

[img]http://www.rjrencai.com/1.jpg[/img]

求高手帮帮忙哦~

baimaliu 发表于 2008-6-26 14:56

在线等答案，高手呢? 高手何在？？！

ozhh 发表于 2008-6-26 16:24

我看不出你的代码有什么问题，你确定你的数据没有问题吗？我也不是高手，不过你的代码我还是看得懂，看不出什么问题哦

9528 发表于 2008-6-26 16:55

看了你的代码，循环是没出问题的，可能你查询出来的SQL出问题了，你可以按照如下方式调试。
1.将最后的ＳＱＬ语句输出，然后在数据库里运行，看查出的数据是否正常。
给你提个建议，建议你用Javascript来控制隔行表格颜色，界面要和数据分离，你现在的程序看起来很难受哦!

伟少88 发表于 2008-6-26 19:56

很明确的告诉你.

代码没问题..

你看下数据库.

落萧 发表于 2008-6-26 20:57

*** 作者被禁止或删除 内容自动屏蔽 ***

wewazhang 发表于 2008-6-26 22:55

是不是条件写错了:cool: 啊？

baimaliu 发表于 2008-6-27 09:59

谢谢各位了，查查数据库去。。。

gnyxw 发表于 2008-6-27 12:27

是的啊

查看完整版本: 精通ASP的来救救我~~~