新闻标题 和 发布时间 不在同一行显示 怎么办?
前台新闻显示代码:
<div c<div class="TB_content">
<%Call Ok3w_Article_List(27,6,1,17,False,False,true,2,False,"")%>
</div>
-------------------------
(其中TB_content的CSS为:
.TB_content{width:340px; height:190px; float:right; font-size:12px; line-height:20px; padding-top:10px; padding-bottom:8px; text-align:left;}
)
==============================================================================================================
后台Ok3w_Article_List函数为:
Private Sub Ok3w_Article_List(ClassID,Rows,Cels,LeftN,IsCommend,DisClass,DisTime,TimeFormat,DisHits,OrderType)
Sql="select top " & Rows * Cels & " Id,Title,TitleColor,TitleURL,AddTime,Hits from Ok3w_Article where ChannelID=1 and IsPass=1 and IsDelete=0"
If ClassID<>"" Then Sql=Sql & " and SortPath like '%," & ClassID & ",%'"
If IsCommend Then Sql=Sql & " and IsCommend=1"
Select Case OrderType
Case "hot"
Sql = Sql & " order by Hits desc,AddTime desc,ID desc"
Case "rnd"
Randomize
Sql = Sql & " order by Rnd(-(ID+"&Rnd()&")),ID desc"
Case "new"
Sql = Sql & " order by AddTime desc,ID desc"
Case Else
Sql = Sql & " order by IsTop desc,IsCommend desc,AddTime desc,ID desc"
End Select
Rs.Open Sql,Conn,0,1
StrTmp = "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
Do While Not Rs.Eof
StrTmp = StrTmp & "<tr>"
For II=1 To Cels
If Rs.Eof Then
StrTmp = StrTmp & "<td> </td>"
Else
StrTmp = StrTmp & "<td class=""newstitle""><div>"
If DisClass Then
StrTmp = StrTmp & "[<a href=""" & Htmldns & """list.asp?id=" & Rs("ClassID") & """>" & GetClassName(Rs("ClassID")) & "</a>]"
Else
StrTmp = StrTmp & "·"
End If
StrTmp = StrTmp & Format_TitleURL("show.asp",Rs("ID"),Rs("Title"),Rs("TitleColor"),Rs("TitleURL"),LeftN)
StrTmp = StrTmp & "</div><span>"
If DisHits Then
StrTmp = StrTmp & " 查看:" & Rs("Hits")
End If
If DisTime Then
StrTmp = StrTmp & " " & Format_Time(Rs("AddTime"),TimeFormat)
End If
StrTmp = StrTmp & "</span>"
StrTmp = StrTmp & "</td>"
Rs.MoveNext
End If
If Cels<>1 And II<>Cels Then
StrTmp = StrTmp & "<td> </td>"
End If
Next
StrTmp = StrTmp & "</tr>"
Loop
Rs.Close
StrTmp = StrTmp & "</table>"
Response.Write(StrTmp)
End Sub