📄 recomco_detail.asp

📁 本房地产网站功能强大
💻 ASP
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp" -->
<!--#include file="../inc/onlinecount.asp"-->
<!--#include file="../top.asp"-->
<%
 Dim Rs,Sql
 OpenDataConn
 Set Rs=Server.CreateObject("ADODB.Recordset") 
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE><%=homepage_title%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<script language="JavaScript" src="../inc/index.js"></script>
<LINK 
href="../img1/css.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.3790.2706" name=GENERATOR></HEAD>
<BODY class=bg1 text=#000000 bgColor=#ffffff leftMargin=0 topMargin=1>
<TABLE height=28 cellSpacing=0 cellPadding=0 width=980 align=center 
background=../img/headbg4.gif border=0>
  <TBODY>
  <TR>
    <TD align=right width=35>
	<IMG height=13 src="../img/headarrow.gif" 
      width=17></TD>
    <TD align=middle width=10></TD>
    <TD class=TD_Place width=935>您现在的位置：<a href="../index.aspx"><font color="#FFFFFF"><%=homepage_title%></font></a><font color="#FFFFFF">&gt;&gt; </font> 
	</TD></TR></TBODY></TABLE>
<TABLE height=7 cellSpacing=0 cellPadding=0 width=980 align=center 
background=../img/headbg5.gif border=0>
  <TBODY>
  <TR>
    <TD></TD></TR></TBODY></TABLE>
<TABLE height=497 cellSpacing=0 cellPadding=0 width=970 align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width=259 height=733 rowspan="2"><!--#include file="lpleft.asp"-->
      　</td>
    <TD vAlign=top width=711>
      
<table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td align="center" valign="top"> 
                  <div align="right">
                  <TABLE height=28 cellSpacing=0 cellPadding=0 width=705 border=0 id="table7" background="../img1/fj.jpg">
        <TBODY>
        <TR>
          <TD>&nbsp; <font color="#065BAE">推荐公司详细信息</font></TD>
          </TR></TBODY></TABLE></div>
				</td>
              </tr>
              <tr> 
                <td align="center" valign="top"> 
				<div align="center" >
					<div align="center">
					<table width="700" border="0" cellpadding="0" cellspacing="1">
  <%
  CoID=changechr(Request("CoID"))
  If CoId<>"" Then
   Rs.Open"select * from recomco where coid="&coid&"",conn,1,1
 %>
 
  <tr> 
    <td height="3" bgcolor="#FFFFFF"></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">
	<div align="center">
		<table width="700" border="1" cellpadding="0" style="border-collapse: collapse" bordercolor="#2E62A7">
        <tr bgcolor="#FCF3D6"> 
          <td height="25" colspan="3"> 
            <div><font color="#FC6808">☆<%=Trim(Rs("CoName"))%></font></div></td>
        </tr>
        <tr> 
          <td width="110" height="25" align="center" bgcolor="#FFFFFF">
			<font color="#065BAE">公司地址：</font></td>
          <td width="235" height="25" bgcolor="#FFFFFF"><font color="#065BAE">&nbsp;<%=Trim(Rs("CoAddress"))%></font></td>
          <td width="251" rowspan="14" align="center" bgcolor="#FFFFFF" height="50">  <%
							  If isNull(Trim(Rs("img"))) or Trim(Rs("img"))="" Then
							   Response.Write("<table width=196 height=140 style='filter: Glow(Color=#F3BF21, Strength=2);border:#F3BF21 solid 1pt;'><tr><td align='center'>暂无图片</td></tr></table>")
							  Else
							   Response.Write"<img src='../fyfile/"&Trim(Rs("img"))&"' width='196' height='140'>"
							  End If
							 %>
           
          </td>
        </tr>
        <tr> 
          <td height="25" align="center"><font color="#065BAE">联 系 人：</font></td>
          <td height="25" bgcolor="#E7F7E6"><font color="#065BAE">&nbsp;<%=Trim(Rs("LinkMan"))%></font></td>
        </tr>        
        <tr> 
          <td height="25" align="center" bgcolor="#FFFFFF">
			<font color="#065BAE">联系电话：</font></td>
          <td height="25" bgcolor="#FFFFFF"><font color="#065BAE">&nbsp;<%=Trim(Rs("CoTel"))%></font></td>
        </tr>
        <tr> 
          <td height="25" align="center"><font color="#065BAE">传　　真：</font></td>
          <td height="25" bgcolor="#E7F7E6"><font color="#065BAE">&nbsp;<%=Trim(Rs("CoFax"))%></font></td>
        </tr>
        <tr> 
          <td height="25" align="center" bgcolor="#FFFFFF">
			<font color="#065BAE">邮　　编：</font></td>
          <td height="25" bgcolor="#FFFFFF"><font color="#065BAE">&nbsp;<%=Trim(Rs("CoZIP"))%></font></td>
        </tr>
        <tr> 
          <td height="25" align="center"><font color="#065BAE">电子信箱：</font></td>
          <td height="25" bgcolor="#E7F7E6"><font color="#065BAE">&nbsp;</font><a href="mailto:<%=Trim(Rs("CoEmail"))%>" class="linkone"><font color="#065BAE"><%=Trim(Rs("CoEmail"))%></font></a></td>
        </tr>        
        <tr> 
          <td height="25" align="center" bgcolor="#FFFFFF">
			<font color="#065BAE">公司网址：</font></td>
          <td height="30" bgcolor="#FEFAEE"><font color="#065BAE">&nbsp;<%=Trim(Rs("CoHomeweb"))%></font></td>
        </tr>
        <tr> 
          <td align="center" bgcolor="#FFFFFF"><font color="#065BAE">公司简介：</font></td>
          <td bgcolor="#FEFAEE"><font color="#065BAE"><%=Trim(Rs("CoComment"))%>　</font></td>
        </tr>                
      </table> </div>
	</td>
  </tr>
  <%
			   End If
			   Rs.Close
			  %>
</table>
					</div>
					<table border="0" cellpadding="0" cellspacing="0" width="318" id="table9">
						<tr>
							<td>　</td>
						</tr>						
					</table>
				</div>
				</td>
              </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>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -