tj_a.asp

二手书籍系统

<TABLE border=0 height="68" width="100%">
<tr>
<% 
dim j
set rstj_a=server.createobject("adodb.recordset")
sqltj_a="select top 8 * from xinxi where yz=1 and (tupian<>'0' or right(biaoti,4)='.gif' or right(biaoti,4)='.jpg' or right(biaoti,5)='.jpeg') and tuijian=1 order by fbsj desc,ID desc" 	      
rstj_a.open sqltj_a,conn,1,1
while not rstj_a.eof and not rstj_a.bof 
%>
<%for j=0 to 3                                      
if rstj_a.eof then                                      
exit for                                      
end if                                      
%>
<td align="center" valign="top" style="border-top: 2px solid #CCCCCC; ; border-left-color:#CCCCCC; border-right-color:#CCCCCC; border-bottom-color:#CCCCCC">
<%if right(rstj_a("biaoti"),4)=".gif" or right(rstj_a("biaoti"),4)=".jpg" or right(rstj_a("biaoti"),4)=".bmp" then %>
<a title="<%=rstj_a("dianhua")%>" target="_blank" href="<%=rstj_a("memo")%>"><IMG src="<%=rstj_a("biaoti")%>" width="120" height="100" border=1 style="border: 1px solid #FFFFFF; ; padding-left:2px; padding-right:2px" ><br><font color="#FF0000"><b><%=rstj_a("dianhua")%></b></font><br><u>点击进入详细</u></a>
<%end if%>
<% if rstj_a("tupian")<>"0" and rstj_a("tupian")<>"" then%>
<a title="<%=rstj_a("biaoti")%>" target="_blank" href="xinximemo.asp?cnmai=<%=rstj_a("id")%>">
<IMG src="<%=rstj_a("tupian")%>" width="120" height="100" border=1 style="border: 1px solid #FFFFFF; ; padding-left:2px; padding-right:2px" hspace="0" ><br><u><b><%=left(rstj_a("biaoti"),7)%></b></u><br><%=left(rstj_a("memo"),20)%><font size="1"></font></a>
<%end if%></td>
<%     
rstj_a.movenext                          
next  
%> </tr>
<%     
wend          
rstj_a.close
set rstj_a=nothing
%> 
</TABLE>