日期:2014-05-17  浏览次数:21106 次

asp生成的静态页新闻动态如何改变第一条的颜色
asp生成的静态页 新闻动态一共调用了10条 如何改变第一条的颜色和其他条颜色不一样

------解决方案--------------------
dim Frow
Frow=true
If Rs.EOF And Rs.bof Then
oStr = TplErrStr
Else
Do Until Rs.EOF
  
mStr = Replace(TStr, "{NewsID}", Rs("ID"))
mStr = Replace(mStr, "{NewsDate}", month(Rs("NewsDate"))&"/"&day(Rs("NewsDate")))
If Frow=true Then
mStr = Replace(mStr, "{NewsTitle}","<span style='color:red'>" & left( Rs(LanguageSet & "Title"),13) & "</span>")
Frow=false
End If
oStr = oStr & mStr
Rs.movenext
Loop
End If