pictures.asp

711房产管理系统

<!--#include file="top.asp"-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td background="images/topb.gif"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
     <%if request("gn")="more" then 
	  dim t
	 Set RsSmall=Server.Createobject("ADODB.Recordset")
	 RsSmallSrt="select * from imgbook order by id desc"
	 RsSmall.Open RsSmallSrt,Conn,1,3 %>
        <tr> 
          <% t=0
        while not RsSmall.eof %>
          <td width="369"> <div align="center">
              <table width="120" height="140" border="0" cellpadding="0" cellspacing="0">
                <tr> 
                  <td width="20" height="16"><img src="images/k1_1.gif"></td>
                  <td width="170" background="images/k1_top.gif">&nbsp;</td>
                  <td width="10"><img src="images/k1_2.gif" width="20" height="20"></td>
                </tr>
                <tr> 
                  <td height="100" background="images/k1_left.gif">&nbsp;</td>
                  <td><div align="center"><a href="pictures.asp?id=<% =RsSmall("id") %>" target="_blank"><img src="<% =RsSmall("news_content")%>" name="P" width="100" height="100" border="0"></a></div></td>
                  <td background="images/k1_right.gif">&nbsp;</td>
                </tr>
                <tr> 
                  <td height="16"><img src="images/k1_3.gif" width="20" height="20"></td>
                  <td background="images/k1_end.gif">&nbsp;</td>
                  <td><img src="images/k1_4.gif" width="20" height="20"></td>
                </tr>
              </table>
            </div></td>
          <% t=t+1
	    if t=5 then
	    t=0 %>
        </tr>
        <% end if
     RsSmall.movenext
     wend 
	 else%>
      </table>
	  </td>
  </tr>
  <tr> 
    <td background="images/topb.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="5%"><img src="images/cent_01.gif" width="37" height="20"></td>
          <td width="88%" background="images/cent_02.gif">&nbsp;</td>
          <td width="7%"><a href="pictures.asp?gn=more"><img src="images/ck001.gif" width="67" height="20" border="0"></a></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
      <%dim xiangxi
  xiangxi=request("id")
  sql="select * from imgbook where id="&xiangxi
  set rs=conn.execute(sql)
  %>
	<td background="images/topb.gif"><div align="center"> 
        <table border="0" cellpadding="0" cellspacing="0">
          <tr> 
            <td width="20" height="16"><img src="images/k1_1.gif"></td>
            <td width="170" background="images/k1_top.gif">&nbsp;</td>
            <td width="10"><img src="images/k1_2.gif" width="20" height="20"></td>
          </tr>
          <tr> 
            <td height="100" background="images/k1_left.gif">&nbsp;</td>
            <td><div align="center"><a href="<% =rs("news_content") %>"><img src="<% =rs("news_content") %>" name="p" width="450" height="450" border="0"></a></div></td>
            <td background="images/k1_right.gif">&nbsp;</td>
          </tr>
          <tr> 
            <td height="16"><img src="images/k1_3.gif" width="20" height="20"></td>
            <td background="images/k1_end.gif">&nbsp;</td>
            <td><img src="images/k1_4.gif" width="20" height="20"></td>
          </tr>
        </table>
        <p><br>
          <% =rs("classname") %>
          <br>
          <br>
        </p>
      </div></td>
  </tr>
</table>
<% end if %>
<!--#include file="let.asp"-->