刚刚接触ASP 循环语句出错
下面这段语句,改了好多次都不成功。帮忙。谢谢IfRs("AdImg")<>""ThenstrHtmltemp="<div><ahref="""&Rs("FilePath"...
下面这段语句,改了好多次都不成功。帮忙。谢谢
If Rs("AdImg")<>"" Then
strHtmltemp="<div><a href=""" & Rs("FilePath") & """><img src='" & Rs("AdImg") & "' /></a></div>" & vbCrLf
Else
strHtmltemp="<div><a href=""" & Rs("FilePath") & """><img src=""images/nopic1.gif"" /></a></div>" & vbCrLf
Else If Rs("SmallImg")<>"" Then
strHtml="<div><a href=""" & Rs("FilePath") & """><img src='" & Rs("SmallImg") & "' /></a></div>" & vbCrLf
ElseIf Rs("KeyWord")<>"" Then
strHtmltemp="<div style='width:232px;height:81px;border:1px solid #BFCC7C'><a href=""" & Rs("FilePath") & """>" & Rs("KeyWord") & "</a></div>" & vbCrLf
Else
strHtmltemp="<div style='width:232px;height:81px;border:1px solid #BFCC7C'><a href=""" & Rs("FilePath") & """>" & Rs("Title") & "</a></div>" & vbCrLf
End If 展开
If Rs("AdImg")<>"" Then
strHtmltemp="<div><a href=""" & Rs("FilePath") & """><img src='" & Rs("AdImg") & "' /></a></div>" & vbCrLf
Else
strHtmltemp="<div><a href=""" & Rs("FilePath") & """><img src=""images/nopic1.gif"" /></a></div>" & vbCrLf
Else If Rs("SmallImg")<>"" Then
strHtml="<div><a href=""" & Rs("FilePath") & """><img src='" & Rs("SmallImg") & "' /></a></div>" & vbCrLf
ElseIf Rs("KeyWord")<>"" Then
strHtmltemp="<div style='width:232px;height:81px;border:1px solid #BFCC7C'><a href=""" & Rs("FilePath") & """>" & Rs("KeyWord") & "</a></div>" & vbCrLf
Else
strHtmltemp="<div style='width:232px;height:81px;border:1px solid #BFCC7C'><a href=""" & Rs("FilePath") & """>" & Rs("Title") & "</a></div>" & vbCrLf
End If 展开
2个回答
展开全部
你写的有点乱。。。看看这样改行不
If Rs("AdImg")<>"" Then
strHtmltemp="<div><a href=""" & Rs("FilePath") & """><img src='" & Rs("AdImg") & "' /></a></div>" & vbCrLf
Else
strHtmltemp="<div><a href=""" & Rs("FilePath") & """><img src=""images/nopic1.gif"" /></a></div>" & vbCrLf
If Rs("SmallImg")<>"" Then
strHtml="<div><a href=""" & Rs("FilePath") & """><img src='" & Rs("SmallImg") & "' /></a></div>" & vbCrLf
ElseIf Rs("KeyWord")<>"" Then
strHtmltemp="<div style='width:232px;height:81px;border:1px solid #BFCC7C'><a href=""" & Rs("FilePath") & """>" & Rs("KeyWord") & "</a></div>" & vbCrLf
Else
strHtmltemp="<div style='width:232px;height:81px;border:1px solid #BFCC7C'><a href=""" & Rs("FilePath") & """>" & Rs("Title") & "</a></div>" & vbCrLf
End If
End If
If Rs("AdImg")<>"" Then
strHtmltemp="<div><a href=""" & Rs("FilePath") & """><img src='" & Rs("AdImg") & "' /></a></div>" & vbCrLf
Else
strHtmltemp="<div><a href=""" & Rs("FilePath") & """><img src=""images/nopic1.gif"" /></a></div>" & vbCrLf
If Rs("SmallImg")<>"" Then
strHtml="<div><a href=""" & Rs("FilePath") & """><img src='" & Rs("SmallImg") & "' /></a></div>" & vbCrLf
ElseIf Rs("KeyWord")<>"" Then
strHtmltemp="<div style='width:232px;height:81px;border:1px solid #BFCC7C'><a href=""" & Rs("FilePath") & """>" & Rs("KeyWord") & "</a></div>" & vbCrLf
Else
strHtmltemp="<div style='width:232px;height:81px;border:1px solid #BFCC7C'><a href=""" & Rs("FilePath") & """>" & Rs("Title") & "</a></div>" & vbCrLf
End If
End If
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询