tj.asp

来自「二手书籍系统」· ASP 代码 · 共 28 行

<TABLE border=0 cellPadding=0 cellSpacing=0 height="68">
<tr>
<% 
dim rstj,sqltj,j
set rstj=server.createobject("adodb.recordset")
sqltj="select top 8 * from xinxi where yz=1 and class1="&class1&" and tupian<>'0' order by fbsj desc,ID desc" 	      
rstj.open sqltj,conn,1,1         
while not rstj.eof      
%>
<%for j=0 to 3                                      
  if rstj.eof then                                      
  exit for                                      
  end if                                      
  %> 
<td align="center">
<a title="<%=rstj("biaoti")%>" target="_blank" href="xinximemo.asp?cnmai=<%=rstj("id")%>">
<IMG src="<%=rstj("tupian")%>" width="120" height="100" border=1 style="border: 1px solid #FFFFFF; ; padding-left:2px; padding-right:2px" hspace="3" ><br><u><%=left(rstj("biaoti"),9)%></u></a></td>
<%     
rstj.movenext                          
next  
%> 
</tr>
<%     
wend          
rstj.close
set rstj=nothing
%> 
</TABLE>