一个简单的IF嵌套语句,不知道错在哪了,有错误提示!!
代码如下:
<%If Trim(Rs(11,i)) <> " " Then
If Trim(Rs(18,i)) <> " " Then
Response.Write " <a href= ' "&Trim(Rs(18,i))& " ' target= '_blank '> "&Trim(Rs(11,i))& " </a> "Else
Response.Write Rs(11,i)
End If
Else
Response.Write " <a href= 'seeks.asp?pdname= "&Trim(Rs(3,i))& " ' target= '_blank '> 暂无 </a> "
End If
%>
错误提示:
Microsoft VBScript 编译器错误 错误 '800a0412 '
必须是行中的第一个语句
hbnew1.asp，行 210
Response.Write " <a href= ' "&Trim(Rs(18,i))& " ' target= '_blank '> "&Trim(Rs(11,i))& " </a> "
[解决办法]
没有看出来.
<%If Trim(Rs(11,i)) <> " " Then
If Trim(Rs(18,i)) <> " " Then
Response.Write " <a href= ' "&Trim(Rs(18,i))& " ' target= '_blank '> "&Trim(Rs(11,i))& " </a> "
Else
Response.Write Rs(11,i)
End If
Else
Response.Write " <a href= 'seeks.asp?pdname= "&Trim(Rs(3,i))& " ' target= '_blank '> 暂无 </a> "
End If
%>
[解决办法]
If Trim(Rs(11, i)) <> " " Then
If Trim(Rs(18, i)) <> " " Then
Response.Write " <a href= ' "&Trim(Rs(18, i))& " ' target= '_blank '> "&Trim(Rs(11, i))& " </a> "
Else
Response.Write Rs(11, i)
End If
Else
Response.Write " <a href= 'seeks.asp?pdname= "&Trim(Rs(3, i))& " ' target= '_blank '> 暂无 </a> "
End If
注意else的换行
[解决办法]
表面上看起来，这一句
Response.Write " <a href= ' "&Trim(Rs(18,i))& " ' target= '_blank '> "&Trim(Rs(11,i))& " </a> "Else
好像换行了，其实没有换行。我复制到DW中才发现的。
注意书写规范，程序代码已经让人头疼了，那么我们让它摆放整齐一点，让人舒服一点。
[解决办法]
Response.Write " <a href= ' "&Trim(Rs(18,i))& " ' target= '_blank '> "&Trim(Rs(11,i))& " </a> "Else
Response.Write " <a href= ' "&Trim(Rs(18,i))& " ' target= '_blank '> "&Trim(Rs(11,i))& " </a> "
Else
