<%sub showp()
sql="select picture_27.leaf_id as leaf_id, picture_27.picture_name as picture_name, picture_27.alt as alt,leaf_27.Brief,leaf_27.Title from leaf_27,picture_27 where picture_27.leaf_id=leaf_27.leaf_id  order by leaf_27.leaf_id desc"
		
		set rs_leaf_pic=dataExecute(sql,dsn_app)		
		dim maxperpage
maxperpage=16
		
     dim  a,i
        a=1
       i=0
   response.write("<TABLE width='222' border=0 align=center cellPadding=0 cellSpacing=0> <TBODY> <TR> ")
	/// str="<table width='274' border='0' cellspacing='0' cellpadding='0'>"
	do while not rs_leaf_pic.eof 
	Brief=rs_leaf_pic("Title")
	  if a mod 4=1 then
	
	
                        Response.Write("<TD width=44 height='133' vAlign=top></TD>")  
                           else
                         Response.Write("<TD vAlign=top width='130'><TABLE width=100% border=0 align='center' cellPadding=0 cellspacing='0'   borderColorLight=#000000 class=y> <TBODY><TR> ")             
                               'Response.Write(" <TD vAlign=top>"&Brief&"</TD>")
								       Response.Write(" <TD vAlign=top>ddfdfdf</TD>")
                                Response.Write("</TR>  </TBODY></TABLE> </TD> <TD vAlign=top width=48><font color='#FFFFFF'>54565656</font></TD>")
                          end if
                          
i=i+1
a=a+1
if rs_leaf_pic.eof then exit do
if i mod 4=0 then response.write "</TR><TR>"
if i>=MaxPerPage then exit do
rs_leaf_pic.movenext
loop
	response.Write("</TR></TABLE>")
%>

sub showc27_picture_1(node_id)
		sql="select top 6 picture_27.leaf_id as leaf_id, picture_27.picture_name as picture_name, picture_27.alt as alt,leaf_27.Brief,leaf_27.Title,leaf_27.wylx,leaf_27.zlhx,leaf_27.lpwz,leaf_27.perprice from leaf_27,picture_27 where picture_27.leaf_id=leaf_27.leaf_id  and leaf_27.Node_id="&node_id&" order by leaf_27.leaf_id desc"

		set rs_leaf_pic=dataExecute(sql,dsn_app)		

Response.Write ("<table width=""100%"" border=""0"" cellspacing='1' cellpadding=""0"">")
row_count=1 
Response.Write ("	 <tr align=""left"">")
Do While Not rs_leaf_pic.EOF
pic_name=rs_leaf_pic("Picture_name")
pic_id=rs_leaf_pic("leaf_id")
wylx=left(rs_leaf_pic("wylx"),5)
zlhx=left(rs_leaf_pic("zlhx"),5)
lpwz=left(rs_leaf_pic("lpwz"),5)
perprice=left(rs_leaf_pic("perprice"),5)
Response.Write ("	  <td> ")
Response.Write ("	   <table  height=""110"" border=""0"" cellpadding=""0"" cellspacing='0' class='zt'cellspacing='1'> ")
Response.Write ("	    <tr>")
Response.Write ("	     <td  rowspan=""4""><a href='/modules/"&module_folder&"/front/Leaf_info.asp?leaf_id="&pic_id&"'target='_blank'><img src='/modules/"&module_folder&"/picture/"&pic_name&"' width='124' height='88' border='0'></a></td>")
Response.Write ("<td width=""4%"" rowspan=""4"">&nbsp;</td>")
Response.Write ("	     <td  width='24%'>物业类型:</td>")
Response.Write ("	     <td >"&wylx&"</td>")
Response.Write ("	    </tr>")
Response.Write ("	    <tr  width='24%'>")
Response.Write ("	     <td>主力户型:</td>")
Response.Write ("	     <td>"&zlhx&"</td>")
Response.Write ("	     </tr>")
Response.Write ("	    <tr>")
Response.Write ("	     <td>楼盘位置:</td>")
Response.Write ("	     <td>"&lpwz&"</td>")
Response.Write ("	    </tr>")
Response.Write ("	    <tr>")
Response.Write ("	     <td>平米均价:</td>")
Response.Write ("	     <td>"&perprice&"</td>")
Response.Write ("	    </tr>")
Response.Write ("	   </table>")
Response.Write ("	  </td>")
if row_count mod 2 <>0 then
end if
if row_count mod 2 =0 then
Response.Write ("	 </tr>")
end if

rs_leaf_pic.MoveNext
row_count=row_count+1
Loop
rs_leaf_pic.close
Response.Write ("</table>")	   
	  set rs_leaf_pic=nothing
	
end sub 

引用:

---

谢谢朋友，我发现5d是个神奇的地方，来问个问题老没有人吊你，郁闷之下自己总能解决

---