asp 表格分列

来源:百度知道 编辑:UC知道 时间:2024/06/09 21:50:02
<TABLE id=lit_Employment_New
style="WIDTH: 100%; BORDER-COLLAPSE: collapse" cellSpacing=0
cellPadding=0 border=0>
<TBODY>
<%
SQL = "Select Top 8 Title,FileName,Path,DateAndTime From [pH_New_Info] Where (Typeid=11 or Typeid=10 or Typeid=7 or Typeid=8) And Flag=1 And Len(Title)>0 Order By DateAndTime Desc"
Set Rs = Conn.Execute(SQL)
For i = 1 to 8
If Rs.Eof Then Exit For
%>
<%
If Rs.Eof Then Exit For
Title = Left(Rs("Title"),16)
FileName = Rs("FileName")
Path = Rs("Path")
DateAndTime = Month(Rs("DateAndTime"))&"."&Day(Rs("DateAndTime"))
%>
<TR>

<TABLE id=lit_Employment_New
style="WIDTH: 100%; BORDER-COLLAPSE: collapse" cellSpacing=0
cellPadding=0 border=0>
<TBODY>
<%
SQL = "Select Top 8 Title,FileName,Path,DateAndTime From [pH_New_Info] Where (Typeid=11 or Typeid=10 or Typeid=7 or Typeid=8) And Flag=1 And Len(Title)>0 Order By DateAndTime Desc"
Set Rs = Conn.Execute(SQL)
For i = 1 to 8
If Rs.Eof Then Exit For
%>
<%
If Rs.Eof Then Exit For
Title = Left(Rs("Title"),16)
FileName = Rs("FileName")
Path = Rs("Path")
DateAndTime = Month(Rs("DateAndTime"))&"."&Day(Rs("DateAndTime"))
%>
<TR>