Red de conocimiento informático - Material del sitio web - Cómo implementar la disposición horizontal de llamadas ASP [Ejemplo]

Cómo implementar la disposición horizontal de llamadas ASP [Ejemplo]

lt;

sql="seleccione los 3 primeros * de NOTICIAS donde firstImageNamelt;gt;'' y ok=true ordenar por ID DESC"

set rs =conn.execute(sql)

si rs.eof y rs.bof entonces

response.write "lt;trgt;lt;brgt;lt;brgt;lt;brgt; lt;brgt;lt;td align=center colspan=2 bgcolor=#E8E8F4gt;Más tarde se lanzarán actividades interesanteslt;/tdgt;lt;/trgt;"

else

Hacer Mientras no sea RS.EOF

gt;

lt; table id='time' width='175' border='0' cellpadding='0'cellspacing='0'gt

lt;tr height='16'gt;

lt;td height='16' width="226"gt;lt;a href="onews.asp? id=lt;=rs("id")gt;" target="_blank" gt;lt;p align="left"gt;lt;font color='#ff3300'gt;lt;bgt;lt;=left (rs("título"),12)gt;lt;/bgt;lt;/fontgt;lt;/pgt;lt;/agt;lt;/tdgt;

lt;/trgt; /p>

lt;trgt;

lt;td width="226"gt;

lt;p align="center"gt;lt;a href=" onews.asp?id=lt;=rs("id")gt;" target="_blank" gt;lt;img src="uppic/lt;=trim(rs("firstImageName"))gt;" ancho= "224" altura="253" border="0"gt;lt;/agt;lt;/pgt;

lt;/tdgt;

lt;/trgt; /p>

lt;/tablegt;

lt;

RS.MoveNext

Bucle

finalizar

rs.close

set conn=nada

gt

debe ser:

sql="seleccione los 3 primeros * de NOTICIAS donde firstImageNamelt;gt;'' y ok=true ordenar por ID DESC"

set rs=conn.execute(sql)

if rs.eof y rs.bof luego

response.write "lt;trgt;lt;brgt;lt;brgt;lt;brgt;lt;brgt;lt;td align=center

colspan=2 bgcolor=#E8E8F4gt;Más tarde se lanzarán actividades interesanteslt;/tdgt;lt;/trgt;"

else gt;

lt;table id='time' width ='175' border='0' cellpadding='0'cellspacing='0'gt;

lt

Hacer mientras no sea RS.EOF

IF INT(T/5)=T/5 ENTONCES

gt;

lt; tr height='16'gt; END IFgt; lt;td height='16' width="226"gt;lt;a href="onews.asp?id=lt;=rs("id")gt;" target="_blank" gt;lt;p align ="left"gt;lt;font color='#ff3300'gt;lt;bgt;lt;=left(rs("title"),12)gt;lt;/bgt;lt;/fontgt;lt;/ pgt;lt;/agt;lt;/tdgt;

lt; T=T 1 gt;

''Mismo tratamiento a continuación

lt;/trgt

lt;trgt;

lt;td width="226"gt;

lt;p align="center"gt;lt;a href ="onews.asp?id=lt;=rs("id")gt;" target="_blank" gt;lt;img src="uppic/lt;=trim(rs("firstImageName"))gt;" width="224" height="253" border="0"gt;lt;/agt;lt;/pgt;

lt;/tdgt

lt;/trgt;

lt;

RS.MoveNext

Bucle

finalizar si

rs.close

establecer conn=nada

gt;

lt;/tablegt;