recomco.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 354 行 · 第 1/2 页

                            <%
						   ps.MoveNext
						   Loop
						   Ps.Close
						   Set ps=Nothing
						  %>
                          </tr>
                        </table></td>
                    </tr>
                    <tr class="trline" height="1"> 
                      <td background="../ima/back.gif" colspan="2" height="1"></td>
                    </tr>
                    <%
					rs.movenext
					loop
					rs.close
					%>
                    <tr> 
                      <td colspan="2">　</td>
                    </tr>
                  </table>
					</tr>
				<TR>
                <TD colspan="2">
				　</tr>
				<TR>
                <TD colspan="2">
				　</tr>
				</table>
				</TD></TR>
                </table></td>
    <TD vAlign=top width=711>
      
<table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td align="center" valign="top"> 
                  <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>&nbsp;&nbsp; </TD>
          <TD width=5><IMG height=30 src="../img/news3a.gif" 
        width=5></TD></TR></TBODY></TABLE></td>
              </tr>
              <tr> 
                <td align="center" valign="top">　</td>
              </tr>
              <tr> 
                <td align="center" valign="top"> 
				<div align="center" class=out4s_green>
					<table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#D9F2D7" class="main">
                    <tr bgcolor="#FBE7AA" class="p13"> 
                      <td width="24%" height="25" align="center" bgcolor="#E7F7E6"><b><font color="#000000">公司名称</font></b></td>
                      <td width="12%" height="25" align="center" bgcolor="#E7F7E6"><b><font color="#000000">联系人</font></b></td>
                      <td width="17%" height="25" align="center" bgcolor="#E7F7E6"><b><font color="#000000">联系电话</font></b></td>
                      <td width="33%" height="25" align="center" bgcolor="#E7F7E6"><b><font color="#000000">公司地址</font></b></td>
                      <td width="14%" height="25" align="center" bgcolor="#E7F7E6"><b><font color="#000000">详细信息</font></b></td>
                    </tr>
                    <%
              dim curpage
              if request("curpage")="" then
                 curpage=1
              else
                 curpage=request("curpage")
              end if
              const numperpage=25
			  Cotype=trim(request("Cotype"))
			  opendataconn
              sql="select * from recomco"
			  if Cotype<>"" then
			  sql=sql & " where Cotype="&Cotype&""
			  end if
			  sql=sql & " order by Dateandtime desc"
              rs.open sql,conn,1,3
              if rs.eof then
             ' response.write "<table><tr><td><br></br><center>现在还没有记录！</center><br></br></td></tr></table>"
                    ' response.end
              end if
            if not rs.eof then
            rs.pagesize=numperpage
            dim totalpages
            totalpages=rs.pagecount
            'rs.absolutepage=curpage
            end if        
           dim count
           count=0
           do while not rs.eof and count<numperpage
		   If count mod 2=0 Then
		    bgcolor="#FEFAEE"
		   Else
		    bgcolor="#FFFFFF"
		   End If
              %>
                    <tr onMouseOver="this.style.backgroundColor='#FEEAD3';" onMouseOut="this.style.backgroundColor='<%=bgcolor%>'" bgcolor="<%=bgcolor%>"> 
                      <td width="24%" height="27" align="center"> <div align="center"> 
                          <%=getStr(Trim(Rs("CoName")),10)%></div></td>
                      <td width="12%" align="center"> <%=getStr(Trim(Rs("LinkMan")),3)%> </td>
                      <td width="17%" align="center"><%=left(Trim(Rs("CoTel")),13)%></td>
                      <td width="33%" align="center"><%=getStr(Trim(Rs("CoAddress")),14)%></td>
                      <td width="14%" height="27" align="center"><a href="javascript:;" class="linkone" onClick="javascript:window.open('RecomCo_Detail.asp?CoID=<%=Trim(Rs("CoID"))%>','RecomCo','width=600,height=500,top=50,left=200,scrollbars=yes');">详细信息</a></td>
                    </tr>
                    <%
              rs.movenext       
                count=count+1
                loop
              %>
                    <tr valign="middle"> 
                      <td height="30" colspan="5" align="center" bgcolor="#FFFFFF"> 
                        <div align="center"> 
                          <% if cint(curpage)<>1 then %>
                          <a href="RecomCo.asp?curpage=1&Cotype=<%=Cotype%>" class="linkone">首页&nbsp;</a> 
                          <% else %>
                          首页&nbsp; 
                          <% end if %>
                          <% if cint(curpage)>1 then %>
                          <a href="RecomCo.asp?curpage=<%=curpage-1%>&Cotype=<%=Cotype%>" class="linkone">上一页&nbsp;</a> 
                          <% else %>
                          &nbsp;上一页 
                          <% end if %>
                          <% if cint(curpage)<>cint(totalpages) then %>
                          <a href="RecomCo.asp?curpage=<%=curpage+1%>&Cotype=<%=Cotype%>" class="linkone">&nbsp;下一页 
                          <% else %>
                          &nbsp;下一页 
                          <% end if %>
                          <% if cint(curpage)<>cint(totalpages) then %>
                          </a><a href="RecomCo.asp?curpage=<%=totalpages%>&Cotype=<%=Cotype%>" class="linkone">&nbsp;末页 
                          <% else %>
                          &nbsp;末页 
                          <% end if %>
                          </a> 　　第<font color="#FF0000"><%=curpage%></font>页/共<%=totalpages%>页 　 　 </div></td>
                    </tr>
                  </table>
					<table border="0" cellpadding="0" cellspacing="0" width="318" id="table9">
						<tr>
							<td>　</td>
						</tr>
						<tr>
							<TABLE cellSpacing=0 cellPadding=0 width=708 
            background=../img/bomgreen2.gif border=0 id="table6">
              <TBODY>
              <TR>
                <TD width=20>
				<IMG height=27 src="../img/bomgreen1.gif" 
                  width=13></TD>
                <TD align=right>
				　</TD></TR></TBODY></TABLE>
						</tr>
					</table>
				</div>
				</td>
              </tr>
            </table>
<table border="0" cellpadding="0" cellspacing="0" width="318" id="table8">
	<tr>
		<td>　</td>
	</tr>
	<tr>
		</tr>
</table>
      
</TD></TR>
              </TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
    <TD vAlign=top>
      <TABLE cellSpacing=0 cellPadding=0 border=0>
        <TBODY>
        <TR>
          <TD height=5></TD></TR></TBODY></TABLE>
      <TABLE height=3 cellSpacing=0 cellPadding=0 width=75 border=0>
        <TBODY>
        <TR>
          <TD></TD></TR></TBODY></TABLE>
<!--#include file="../end.asp"-->
</BODY></HTML>