jiaju.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 672 行 · 第 1/3 页
ASP
672 行
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
</TD></TR>
<TR>
<TD colspan="2">
<p align="right">
<a href="jiaju_more.asp?sort=3"><font color=#ffffff>更多 </font></a> </TD></TR>
<TR>
<TD colspan="2"> </TD></TR>
<TR>
<TD colspan="2"> </TD></TR>
<TR>
<TD colspan="2"> </TD></TR>
<TR>
<TD colspan="2"> </TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR></TR>
<TR>
<TD height=5></TD></TR></TBODY></TABLE>
<div align="right">
<TABLE height=30 cellSpacing=0 cellPadding=0 width=710 border=0 id="table7">
<TBODY>
<TR>
<TD width=5><IMG height=30 src="../img/news1a.gif" width=5></TD>
<TD width=150 background=../img/news4a.gif>
<IMG height=9
src="../img/arr_w2.gif" width=9> <font color="#FFFFFF"><b>建材商品</b></font></TD>
<TD width=5><IMG height=30 src="../img/news2a.gif" width=5></TD>
<TD background=../img/news5a.gif> </TD>
<TD width=5><IMG height=30 src="../img/news3a.gif"
width=5></TD></TR></TBODY></TABLE>
</div>
<TABLE height=3 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<div align="right">
<TABLE class=out4s_green cellSpacing=0 cellPadding=0 width=710 border=0>
<TBODY>
<TR>
<TD vAlign=top>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<table width="100%" cellpadding="0" cellspacing="0">
<tr>
<td> <TABLE width="100%" height=5
border=0 cellPadding=0 cellspacing="0"
borderColor=#808080 id=table618 style="BORDER-COLLAPSE: collapse">
<TBODY>
<TR>
<TD> <DIV align=center>
<DIV align=center>
<%
Sql = "Select * From Jc_Type"
Set Rsjc = Server.CreateObject("Adodb.Recordset")
Rsjc.Open Sql,conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<%
Dim J
J = 1
While not Rsjc.Eof
%>
<td height="25"><a href="Photo.Asp?Type=<%=Trim(Rsjc("Jc_Type"))%>&class=jc" class="linkone"><%=Rsjc("Jc_Type")%></a></td>
<%
IF J mod 8 = 0 Then
Response.write"</tr><tr>"
End if
Rsjc.Movenext
J = J + 1
Wend
Rsjc.close
Set Rsjc = Nothing
%>
</tr>
</table>
</DIV>
</DIV></TD>
</TR>
</TBODY>
</TABLE>
<%
SqlJ = "Select top 3 * from Jc Order by id desc"
Set Rsj = server.CreateObject("adodb.Recordset")
Rsj.Open Sqlj,conn,1,1
%> <TABLE id=table523 style="BORDER-COLLAPSE: collapse"
cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<%
Dim c
c = 1
While NOt Rsj.Eof
%>
<TD vAlign=top align=left height=145>
<DIV align=center>
<TABLE width=171
height=137
border=0 cellPadding=0 cellspacing="0"
background="../images/housebk.gif" id=table524 style="BORDER-COLLAPSE: collapse">
<TBODY>
<TR>
<TD align=middle height=49> <DIV align=center>
<TABLE
width="100%" border=0 cellPadding=0 cellspacing="0" id=table525
style="BORDER-COLLAPSE: collapse">
<TBODY>
<TR>
<TD height=100> <P align=center>
<a href="../fyfile/<%=Trim(Rsj("pic"))%>"><img src="../fyfile/<%=Trim(Rsj("pic"))%>" alt="" name="<%=Trim(Rsj("Jc_mc"))%>" width="130" height="90" border="0"></a></P></TD>
</TR>
<TR>
<TD height=20> <P align=center>[<a href="javascript:;" class="linkone" onClick="javascript:window.open('Jc_Show.Asp?ID=<%=Trim(Rsj("ID"))%>','newhouse','width=600,height=500,top=50,left=200,scrollbars=yes');"><%=Trim(Rsj("Jc_mc"))%></A>]</P></TD>
</TR>
</TBODY>
</TABLE>
</DIV></TD>
</TR>
</TBODY>
</TABLE>
</DIV></TD>
<%
IF c mod 3 = 0 then
Response.write"</tr><tr>"
end if
rSJ.movenext
C = c + 1
Wend
Rsj.close
Set Rsj = Nothing
%>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=708
background=../img/bomgreen2.gif border=0>
<TBODY>
<TR>
<TD width=20>
<IMG height=27 src="../img/bomgreen1.gif"
width=13></TD>
<TD align=right>
<a href="jcsc.asp">
<IMG
height=27 src="../img/bomgreen3.gif" width=52
border=0></a></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
</div>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<div align="right">
<TABLE height=30 cellSpacing=0 cellPadding=0 width=710 border=0 id="table7">
<TBODY>
<TR>
<TD width=5><IMG height=30 src="../img/news1a.gif" width=5></TD>
<TD width=150 background=../img/news4a.gif>
<IMG height=9
src="../img/arr_w2.gif" width=9> <font color="#FFFFFF"><b>家居装饰</b></font></TD>
<TD width=5><IMG height=30 src="../img/news2a.gif" width=5></TD>
<TD background=../img/news5a.gif> </TD>
<TD width=5><IMG height=30 src="../img/news3a.gif"
width=5></TD></TR></TBODY></TABLE>
</div>
<TABLE height=3 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<div align="right">
<TABLE class=out4s_green cellSpacing=0 cellPadding=0 width=710 border=0>
<TBODY>
<TR>
<TD vAlign=top>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<table width="100%" cellpadding="0" cellspacing="0">
<tr>
<td> <TABLE width="100%" height=5
border=0 cellPadding=0 cellspacing="0"
borderColor=#808080 id=table618 style="BORDER-COLLAPSE: collapse">
<TBODY>
<TR>
<TD> <DIV align=center>
<DIV align=center>
<%
Sql = "Select * From Zs_Type"
Set Rsjc = Server.CreateObject("Adodb.Recordset")
Rsjc.Open Sql,conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<%
Dim a
a = 1
While not Rsjc.Eof
%>
<td height="25"><a href="Photo.Asp?Type=<%=Trim(Rsjc("Zs_Type"))%>&class=zs" class="linkone"><%=Rsjc("Zs_Type")%></a></td>
<%
IF a mod 8 = 0 Then
Response.write"</tr><tr>"
End if
Rsjc.Movenext
a = a + 1
Wend
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?