Question

asp代码if语句错误提示缺少then

代码如下

<%
Function HeadNavigation()
Dim rs, sql,urlname
urlname=Request.ServerVariables("SCRIPT_NAME")
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from Qianbo_Navigation where ViewFlag order by Sequence asc"
rs.Open sql, conn, 1, 1
If rs.bof And rs.EOF Then
response.Write "暂无导航"
Else
Do
If ISHTML = 1 Then
If urlname="""&rs("HtmlNavUrl")&""" Then
response.Write " <li class="selected"><a href="""&rs("HtmlNavUrl")&""" title="""&rs("NavName")&""">"&rs("NavName")&"</a></li>"
Else
response.Write " <li><a href="""&rs("HtmlNavUrl")&""" title="""&rs("NavName")&""">"&rs("NavName")&"</a></li>"
End if
If urlname="""&rs("NavUrl")&""" Then
response.Write " <li class="selected"><a href="""&rs("NavUrl")&""" title="""&rs("NavName")&""">"&rs("NavName")&"</a></li>"
Else
response.Write " <li><a href="""&rs("NavUrl")&""" title="""&rs("NavName")&""">"&rs("NavName")&"</a></li>"
End if
End If
rs.movenext
Loop Until rs.EOF
End If
rs.Close
Set rs = Nothing
End Function
%>
错误提示:

Microsoft VBScript 编译器错误 错误 '800a03f9'

缺少 'Then'

/Top.Asp，行 43

If urlname="""&rs("HtmlNavUrl")&""" Then
-------------------^

Answer 1

正确代码如下：
Function HeadNavigation()
Dim rs, sql,urlname
urlname=Request.ServerVariables("SCRIPT_NAME")
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from Qianbo_Navigation where ViewFlag order by Sequence asc"
rs.Open sql, conn, 1, 1
If rs.bof And rs.EOF Then
response.Write "暂无导航"
Else
Do
If ISHTML = 1 Then
If urlname=rs("HtmlNavUrl") Then
response.Write " <li class=""selected""><a href="""&rs("HtmlNavUrl")&""" title="""&rs("NavName")&""">"&rs("NavName")&"</a></li>"
Else
response.Write " <li><a href="""&rs("HtmlNavUrl")&""" title="""&rs("NavName")&""">"&rs("NavName")&"</a></li>"
End if
If urlname=rs("NavUrl") Then
response.Write " <li class=""selected""><a href="""&rs("NavUrl")&""" title="""&rs("NavName")&""">"&rs("NavName")&"</a></li>"
Else
response.Write " <li><a href="""&rs("NavUrl")&""" title="""&rs("NavName")&""">"&rs("NavName")&"</a></li>"
End if
End If
rs.movenext
Loop Until rs.EOF
End If
rs.Close
Set rs = Nothing
End Function

Answer 2

="""&rs("HtmlNavUrl")&""" 为什么要这么写呢？&""" 没有任何意义啊！！
If urlname=rs("HtmlNavUrl") Then

追问

修改之后``

Microsoft VBScript 编译器错误 错误 '800a03ea'

语法错误

/Top.Asp，行 43

If urlname=&rs("HtmlNavUrl")& Then
-----------^

追答

你没按我说的写，为什么还要加&

追问

抱歉``少删一个

Microsoft VBScript 编译器错误 错误 '800a0401'

语句未结束

/Top.Asp，行 44

response.Write " "&rs("NavName")&""
----------------------------^
现在是这个``

追答

response.Write " "&rs("NavName")&""
引号不能乱用