| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2160 人关注过本帖
标题:还是if else 语句什么时候可省end if 嵌套多了分不清了, 请好心给我看一下 ...
只看楼主 加入收藏
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
结帖率:79.38%
收藏
 问题点数:0 回复次数:6 
还是if else 语句什么时候可省end if 嵌套多了分不清了, 请好心给我看一下。
还是if else 语句什么时候可省end if 嵌套多了分不清了什么与什么配套, 请好心给我看一下。

If Not Rs.Eof And Not Rs.Bof Then
%>
          <% If Rs("User") = Session("User") Then %>
          <tr>
            <td width="168" height="23" align="right">密码提示问题:</td>
            <td width="468">&nbsp;<%=Rs("Answer")%></td>
          </tr>
          <tr>
            <td height="23" align="right">密码提示答案:</td>
            <td>&nbsp;<%=Rs("Question")%></td>
          </tr>
          <% End If %>
          <tr>
            <td width="168" height="23" align="right">注册时间:</td>
            <td width="468">&nbsp;<%=Rs("RegTime")%></td>
          </tr>
          <tr>
            <td height="23" align="right">个人资料被浏览次数:</td>
            <td>&nbsp;<%=Rs("VisitNum")%></td>
          </tr>
          <tr>
            <td height="23" align="right">登陆次数:</td>
            <td>&nbsp;<%=Rs("LoginNum")%></td>
          </tr>
          <tr>
            <td height="30" colspan="2" align="center" bgcolor="#B5D8FF">个人信息</td>
          </tr>
          <tr>
            <td height="23" align="right">性别:</td>
            <td>&nbsp;<%     If Rs("Gender")=1 Then
                                    Response.Write "男"
                                ElseIf Rs("Gender")=0 Then
                                    Response.Write "女"
                                Else
                                    Response.Write "保密"
                                End If
                            %></td>
          </tr>
          <tr>
            <td height="23" align="right">出生日期:</td>
            <td>&nbsp;<%=Rs("Birth")%></td>
          </tr>
          <tr>
            <td height="23" align="right">个人头像:</td>
            <td>&nbsp;
                <%    If Rs("Face")<>"" Then   
                                    Response.Write "<img src=upphoto/"&Rs("Face")&" width=60 height=60>"
                                Else
                                    Response.Write "<img src=images/noface.gif width=60 height=60>"                                
                                End If
                                %></td>
          </tr>
          <tr>
            <td height="23" align="right">学历:</td>
            <td>&nbsp;<%=Rs("Edu")%></td>
          </tr>
          <tr>
            <td height="23" align="right">职业:</td>
            <td>&nbsp;<%=Rs("Work")%></td>
          </tr>
          <tr>
            <td height="23" align="right">籍贯:</td>
            <td>&nbsp;<%=Rs("Native")%></td>
          </tr>
          <tr>
            <td height="23" align="right">交友对象:</td>
            <td>&nbsp;<%=Rs("Intent")%></td>
          </tr>
          <tr>
            <td height="23" align="right">自我简介:</td>
            <td>&nbsp;<%=g_UnHtml(Rs("Aboutme"))%></td>
          </tr>
          <tr>
            <td height="30" colspan="2" align="center" bgcolor="#B5D8FF">联系方式</td>
          </tr>
             <% If Rs("User") = Session("User") Or Rs("IsView") = 0 Then %>
          <tr>
            <td height="23" align="right">QQ:</td>
            <td>&nbsp;<%=Rs("Qq")%></td>
          </tr>
          <tr>
            <td height="23" align="right">MSN:</td>
            <td>&nbsp;<%=Rs("Msn")%></td>
          </tr>
          <tr>
            <td height="23" align="right">E-Mail:</td>
            <td>&nbsp;<%=Rs("Email")%></td>
          </tr>
                  <% If Rs("User") = Session("User") Then %>
          <tr>
            <td height="23" align="right">是否隐藏联系方式:</td>
            <td>&nbsp;<% If Rs("IsView")=1 Then Response.Write "隐藏" Else Response.Write "不隐藏" %></td>
          </tr>         
          <tr>
            <td height="40" align="right"> </td>
            <td>&nbsp;&nbsp;&nbsp;<a href="edit_myinfo.asp">我要修改</a></td>这句代码放在这里与放在<% End If %>后面好象效果一样
          </tr>
                  <% End If %>    这里的 <End If %> 与上面哪一个if  配套?     
            <tr>
            <td height="40" align="right"> </td>

           <td><a href="edit_myinfo.asp">我要修改</a></td>

     <% Else %>
          <tr>
            <td height="30" align="center" colspan="2">Sorry!该会员已设置保密</td>
          </tr>        
            <% End If %>         
          <%
              If User <> Session("User") Then
                Rs("VisitNum") = Rs("VisitNum") + 1
                Rs.Update
            End If
  %>        
          <% If User <> Session("User") Then %>
          <tr>
            <td height="50" colspan=2 align=center bgcolor=#ffffff><a href="send_msg.asp?receiver=<%=user%>"><img src="images/send.gif" width="179" height="36" border="0"></a>
              <a href="my_photo.asp?user=<%=Rs("User")%>"><img src="images/btn_photo.gif" width="179" height="36" border="0"></a></td>
          </tr>
          <% End If %>
<%
    End If


[ 本帖最后由 sylknb 于 2010-3-17 12:51 编辑 ]
搜索更多相关主题的帖子: 好心 语句 end else 嵌套 
2010-03-17 12:07
lele2007
Rank: 5Rank: 5
来 自:广东省深圳
等 级:职业侠客
威 望:6
帖 子:1028
专家分:305
注 册:2007-9-4
收藏
得分:0 
if a="lele" then response.write "乐乐"    '当判断和执行的语句在同一行时,可以省略 end if...语句。。。

嵌套太多if语句,配对时是挺麻烦的。。
一般太多时,我会对if语句注释提醒一下。。没用过。。没做过一个页面中嵌套很多很多的if...或者适当改写成select case..起码多时比较好找。。

例如:

if a = 1 then

  if b = 2 then
    .........

  end if   '我是:if b = 2 then  的结束end if....^_^

end if   '我是:if a = 1 then  的结束end if....^_^


注释是灵活的,就看怎么自己写提示信息呢。。
呵呵,个人习惯。。

[ 本帖最后由 lele2007 于 2010-3-17 13:07 编辑 ]

学习编程www.
2010-03-17 12:51
lele2007
Rank: 5Rank: 5
来 自:广东省深圳
等 级:职业侠客
威 望:6
帖 子:1028
专家分:305
注 册:2007-9-4
收藏
得分:0 
<% If Rs("IsView")=1 Then Response.Write "隐藏" Else Response.Write "不隐藏" %></td>
          </tr>         
          <tr>
            <td height="40" align="right"> </td>
            <td>&nbsp;&nbsp;&nbsp;<a href="edit_myinfo.asp">我要修改</a></td>这句代码放在这里与放在<% End If %>后面好象效果一样
          </tr>
                  <% End If %>    这里的 <End If %> 与上面哪一个if  配套?  


与你最近的if语句配对的了。。If Rs("IsView")=1 Then  它.



<% If Rs("IsView")=1 Then Response.Write "隐藏" Else Response.Write "不隐藏" %>

这里的Else写在同一行了。。 Esle要换行。。或者加一个冒号  :



你这个页面是嵌套了一些if语句,不过你嵌套时写的挺有规律的。。也很好找配对呢。。



学习编程www.
2010-03-17 13:04
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
我摘于书上:还是不太懂!!兰色的配对根据题目意思好象能配上,就是红色的 <% End If %>它到底于誰配对。因VB中有时可省ENDIF。有三个问题,请指教。

<% If Rs("User") = Session("User") Or Rs("IsView") = 0 Then %>
         
                 (1) <% If Rs("User") = Session("User") Then %>此句好象没有<%endif%>了
         
                       (2) <% If Rs("IsView")=1 Then Response.Write "隐藏" Else Response.Write "不隐%>         
                <a href="edit_myinfo.asp">我要修改</a> 这句是不是与上面ELSE 有关吗?
                           
                <% End If %>     这个<% endif%> 与  (1)配对还是与(2)配对            
            <% Else %>
<td height="30" align="center" colspan="2">Sorry!该会员已设</td></tr>        
            <% End If %>


[ 本帖最后由 sylknb 于 2010-3-17 18:39 编辑 ]
2010-03-17 18:22
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
if语句嵌套太多最好的办法就是,整理代码的格式和缩进,这样就能一眼看出哪个end if没写上了
2010-03-18 08:56
ASP_boy
Rank: 2
来 自:安徽
等 级:论坛游民
威 望:1
帖 子:31
专家分:86
注 册:2010-3-24
收藏
得分:0 
我一般是把格式对其
例如
if not rs.eof and not rs.bof then
    if .... then
        ......
    end if
.........
end if
把格式对齐了一般一目了然,还有就是当写了一个if是  后面顺手写上end if然后再在里面写语句就很方面了。
这也是自己的平时的习惯,就当楼主借鉴了。

人生战场,谨慎相待
2010-03-24 10:12
apull
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:三体星系
等 级:版主
威 望:216
帖 子:1506
专家分:9241
注 册:2010-3-16
收藏
得分:0 
如果有else,分行了,end if不能省略、
2010-03-24 13:12
快速回复:还是if else 语句什么时候可省end if 嵌套多了分不清了, 请好心给我看 ...
数据加载中...
 
   



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

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