photo.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 439 行 · 第 1/2 页
ASP
439 行
<td width="10"> </td>
<td width="12" height="19"> <div align="center">
<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
<td height="19"><a href= jiaju_detail.asp?newsid=<%=trim(rs("newsid"))%>&sort=3>
<font color=#ffffff><%=left(trim(rs("topic")),14)%></a></font></td>
</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=705 border=0>
<TBODY>
<TR>
<TD vAlign=top>
<td width="705" valign="top"> <table width="705" border="0" cellpadding="0" cellspacing="0" class="main">
<tr>
<td width="496" height="27" background="../images/user_02.jpg"> <IMG height=9
src="../images/Frams_nav.gif" width=9> <%If Request("class")="jc" then%> <B><FONT color=#fc6808>建材商城精品</FONT></B>
<%elseif Request("class")="zs" then%> <B><FONT color=#fc6808>家居装饰图片</FONT></B>
<%elseif Request("class")="jj" then%> <B><FONT color=#fc6808>家具饰品精品</FONT></B>
<%else%> <B><FONT color=#fc6808>建材商城精品</FONT></B>
<%end if%> </td>
<td width="82" background="../images/user_02.jpg"><div align="center"></div></td>
</tr>
<tr height="1">
<td height="1" colspan="2" background="../ima/back.gif"></td>
</tr>
</table>
<%
if Trim(Request("Class")="jc") then
SqlJ = "Select * from Jc where Jc_Type='"&Trim(Request("Type"))&"' Order by id desc"
Set Rsj = server.CreateObject("adodb.Recordset")
Rsj.Open Sqlj,conn,1,1
if Rsj.eof then
Response.write"<br><div align='center'>还没有此类商品</div>"
end if
elseif Trim(Request("Class")="zs") then
SqlJ = "Select * from zs where Zs_Type='"&Trim(Request("Type"))&"' Order by id desc"
Set Rsj = server.CreateObject("adodb.Recordset")
Rsj.Open Sqlj,conn,1,1
if Rsj.eof then
Response.write"<br><div align='center'>还没有此类商品</div>"
end if
elseif Trim(Request("Class")="jj") then
SqlJ = "Select * from Jj where Jj_Type='"&Trim(Request("Type"))&"' Order by id desc"
Set Rsj = server.CreateObject("adodb.Recordset")
Rsj.Open Sqlj,conn,1,1
if Rsj.eof then
Response.write"<br><div align='center'>还没有此类商品</div>"
end if
else
SqlJ = "Select * from Jc where Jc_Type='"&Trim(Request("Type"))&"' Order by id desc"
Set Rsj = server.CreateObject("adodb.Recordset")
Rsj.Open Sqlj,conn,1,1
if Rsj.eof then
Response.write"<br><div align='center'>还没有此类商品</div>"
end if
end if
Rsj.pagesize = 12
page = 1
if not Rsj.eof then
if not isempty(request.QueryString("page")) then
page = cint(trim(request.QueryString("page")))
if page<1 then
page = 1
Rsj.absolutepage = 1
elseif page>Rsj.pagecount then
page = Rsj.pagecount
Rsj.absolutepage = page
else
page = cint(trim(request.QueryString("page")))
Rsj.absolutepage = page
end if
end if
end if
%> <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=137> <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"))%>" target="_blank"><img src="../fyfile/<%=Trim(Rsj("pic"))%>" alt="" name="
<%if Trim(Request("class"))="Jc" then%>
<%=Trim(Rsj("Jc_mc"))%>
<%elseif Trim(Request("class"))="zs" then%>
<%=Trim(Rsj("Zs_mc"))%>
<%elseif Trim(Request("class"))="jj" then%>
<%=Trim(Rsj("Jj_mc"))%>
<%end if%>
" width="130" height="90" border="0"></a></P></TD>
</TR>
<TR>
<TD height=20> <P align=center>
<%if Trim(Request("class"))="jc" then%>
[<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>]
<%elseif Trim(Request("class"))="zs" then%>
[<a href="javascript:;" class="linkone" onClick="javascript:window.open('zs_Show.Asp?ID=<%=Trim(Rsj("ID"))%>','newhouse','width=600,height=500,top=50,left=200,scrollbars=yes');">
<%=Trim(Rsj("Zs_mc"))%> </a>]
<%elseif Trim(Request("class"))="jj" then%>
[<a href="javascript:;" class="linkone" onClick="javascript:window.open('jj_Show.Asp?ID=<%=Trim(Rsj("ID"))%>','newhouse','width=600,height=500,top=50,left=200,scrollbars=yes');">
<%=Trim(Rsj("Jj_mc"))%> </a>]
<%else%>
[<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>]
<%end if%>
</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>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr>
<td><div align="center">共 <%=Rsj.pagecount%> 页 当前第 <%=page%> 页 <a href="?page=1">第一页</a> <a href="?page=<%=page-1%>">上一页</a>
<a href="?page=<%=page+1%>">下一页</a>
<a href="?page=<%=Rsj.pagecount%>">最后一页</a></div></td>
</tr>
</table></td>
</div>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<div align="right">
<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>
</TD></TR></TBODY></TABLE></div>
</TD></TR></TBODY></TABLE>
<TABLE height=3 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE>
<!--#include file="../end.asp"-->
</BODY></HTML>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?