还是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 编辑 ]

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 编辑 ]

<% 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语句，不过你嵌套时写的挺有规律的。。也很好找配对呢。。

我摘于书上：还是不太懂!!兰色的配对根据题目意思好象能配上，就是红色的 <% 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 编辑 ]

if语句嵌套太多最好的办法就是，整理代码的格式和缩进，这样就能一眼看出哪个end if没写上了

我一般是把格式对其
例如
if not rs.eof and not rs.bof then
    if .... then
        ......
    end if
.........
end if
把格式对齐了一般一目了然，还有就是当写了一个if是  后面顺手写上end if然后再在里面写语句就很方面了。
这也是自己的平时的习惯，就当楼主借鉴了。

如果有else，分行了，end if不能省略、