28,406
社区成员
发帖
与我相关
我的任务
分享
<table width="98%" border="0" cellspacing="0" cellpadding="0" style="border-right:0px #c7ecff solid">
<%
do while not rs.eof
Dim FromNewsClassID
FromNewsClassID = rs("NewsClassID")
NewsArticleID = rs("NewsArticleID")
Title = rs("Title")
ModifyTime = rs("ModifyTime")
FilePath = rs("FilePath")
Embody = rs("Embody")
Userid = Trim(rs("Userid"))
checkintime = year(rs("checkintime"))&"-"&month(rs("checkintime"))&"-"&day(rs("checkintime"))
%>
<tr>
<td width="47%" class="left12">
<% If Keyword<>"" Then Response.Write(Replace(Title,Keyword,"<font color=red>"&Keyword&"</font>")) Else Response.Write(conleft(Title,32)) End If%>
</td>
这里分列显示怎么写?
<td width="53%" class="left12">
<% If Keyword<>"" Then Response.Write(Replace(Title,Keyword,"<font color=red>"&Keyword&"</font>")) Else Response.Write(conleft(Title,32)) End If%>
</td>
</tr>
<%
rs.movenext
loop
%>
</table>
<%
rs.close
set rs=nothing
%>