中科新闻网2017年微博热门事件:如何实现 ASP 调用 横向排列 [实例]
来源：百度文库 编辑：中科新闻网 时间：2024/05/15 15:48:37
结果输出是竖着排列,.我希望得到横向排列的结果... 请高手指点,要求把代码写全,呵呵,因为我没学过编程...
谢谢先.
<%
sql="select top 3 * from NEWS where firstImageName<>'' and ok=true order by ID DESC"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
response.write "<tr><br><br><br><br><td align=center colspan=2 bgcolor=#E8E8F4>精彩活动稍后推出</td></tr>"
else
Do While Not RS.EOF
%>
<table id='time' width='175' border='0' cellpadding='0' cellspacing='0'>
<tr height='16'>
<td height='16' width="226"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><p align="left"><font color='#ff3300'><b><%=left(rs("title"),12)%></b></font></p></a></td>
</tr>
<tr>
<td width="226">
<p align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><img src="uppic/<%=trim(rs("firstImageName"))%>" width="224" height="253" border="0"></a></p>
</td>
</tr>
</table>
<%
RS.MoveNext
Loop
end if
rs.close
set conn=nothing
%>
不要去抄网上的文章,你搜索到的,我也可以,谢谢,
我要的是就我现在的代码进行修改 ,或者添加!
在线等答案中..... 回答正确的,追加50分.. 另外,可以通过支付宝,付款解决,,如果可以收费解决的,请留下价格,和联系方法.QQ或者TAOBAO旺旺均可!!
太简单啦，来试试
我，先声名哦，你们面的表格并没有结束，你插入时最好是照着原来的地方插入，后面应该有结束表格的，这样就不会乱了，我只是加了个表格进去，嘿嘿
<%
sql="select top 3 * from NEWS where firstImageName<>'' and ok=true order by ID DESC"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
response.write "<tr><br><br><br><br><td align=center colspan=2 bgcolor=#E8E8F4>精彩活动稍后推出</td></tr>"
else
%>
<table id='time1' width='100%' border='0' cellpadding='0' cellspacing='0'>
<tr>
<%
Do While Not RS.EOF
%> <td valign="top">
<table id='time' width='175' border='0' cellpadding='0' cellspacing='0'>
<tr height='16'>
<td height='16' width="226"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><p align="left"><font color='#ff3300'><b><%=left(rs("title"),12)%></b></font></p></a></td>
</tr>
<tr>
<td width="226">
<p align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><img src="uppic/<%=trim(rs("firstImageName"))%>" width="224" height="253" border="0"></a></p>
</td>
</tr>
</table> </td>
<%
RS.MoveNext
Loop
end if
rs.close
set conn=nothing
%></tr></table>
<table id='time' width='175' border='0' cellpadding='0' cellspacing='0'>
<tr height='16'>
<td height='16' width="226"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><p align="left"><font color='#ff3300'><b><%=left(rs("title"),12)%></b></font></p></a></td>
<td width="226">
<p align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><img src="uppic/<%=trim(rs("firstImageName"))%>" width="224" height="253" border="0"></a></p>
</td>
</tr>
</table>
<%
RS.MoveNext
Loop
end if
rs.close
set conn=nothing
%>
<%
sql="select top 3 * from NEWS where firstImageName<>'' and ok=true order by ID DESC"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
response.write "<tr><br><br><br><br><td align=center colspan=2 bgcolor=#E8E8F4>精彩活动稍后推出</td></tr>"
else
Do While Not RS.EOF
%>
<table id='time' width='175' border='0' cellpadding='0' cellspacing='0'>
<tr height='16'>
<td height='16' width="226"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><p align="left"><font color='#ff3300'><b><%=left(rs("title"),12)%></b></font></p></a></td>
</tr>
<tr>
<td width="226">
<p align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><img src="uppic/<%=trim(rs("firstImageName"))%>" width="224" height="253" border="0"></a></p>
</td>
</tr>
</table>
<%
RS.MoveNext
Loop
end if
rs.close
set conn=nothing
%>
应该是：
%
sql="select top 3 * from NEWS where firstImageName<>'' and ok=true order by ID DESC"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
response.write "<tr><br><br><br><br><td align=center colspan=2 bgcolor=#E8E8F4>精彩活动稍后推出</td></tr>"
else %>
<table id='time' width='175' border='0' cellpadding='0' cellspacing='0'>
<%
Do While Not RS.EOF
IF INT(T/5)=T/5 THEN
%>
<tr height='16'> <%END IF%>
<td height='16' width="226"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><p align="left"><font color='#ff3300'><b><%=left(rs("title"),12)%></b></font></p></a></td>
<% T=T+1 %>
''下面同样处理
</tr>
<tr>
<td width="226">
<p align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><img src="uppic/<%=trim(rs("firstImageName"))%>" width="224" height="253" border="0"></a></p>
</td>
</tr>
<%
RS.MoveNext
Loop
end if
rs.close
set conn=nothing
%>
</table>
将ASP纪录集输出成n列的的表格形式显示的方法
前些日子有网友问：将ASP纪录集输出成n列的的表格形式显示的方法，现在写了一个，方便大家使用。
'定义变量
Dim cn,rs,Sql
Sql = "select CustomerID from Orders"
'记录总数
Dim TotalNumbe
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=NorthWind;Data Source=.;Password=;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, cn, 3, 1
TotalNumber = rs.RecordCount
If TotalNumber = 0 Then
Response.Write "没有记录输出。"
Else
Dim jj,nLeft,cCol
jj = 0
nCol = 415
nLeft = nCol- (TotalNumber Mod nCol)
If nLeft = nCol Then nLeft = 0
Response.Write "<table border><tr>" & vbCrLf
While not rs.EOF
Response.Write "<td>" & rs("CustomerID") & "</td>" & vbCrLf
'If (jj Mod nCol) = (nCol - 1) And jj <> TotalNumber - 1 Then Response.Write "</tr><tr>" & vbCrLf
'If (jj Mod nCol) = (nCol - 1) And jj = TotalNumber-1 Then Response.Write "</tr>" & vbCrLf
If (jj Mod nCol) = (nCol - 1) Then
If jj <> TotalNumber - 1 Then
Response.Write "</tr><tr>" & vbCrLf
Else
Response.Write "</tr>" & vbCrLf
End If
End If
jj = jj + 1
rs.MoveNext
Wend
If nLeft <> 0 And nLeft <> nCol Then
If nCol < TotalNumber Then
For i = 1 to nLeft
Response.Write "<td> </td>" & vbCrLf
Next
End If
Response.Write "</tr>" & vbCrLf
End If
Response.Write "</table>"
End If
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
Response.End
把第4和16行的center改成left
把循环顺序该下就行啦