📄 hs_open.asp
字号:
</SCRIPT>
<style type="text/css">
<!--
.style9 {color: #be3105}
.style10 {color: #FF9900}
.style11 {color: #999999}
-->
</style>
<DIV align="center" id=zpw style="OVERFLOW: hidden; WIDTH:570px; HEIGHT:166px">
<TABLE cellPadding=0 width=570 border=0 cellspace="0" cellspacing="0" align="center">
<TBODY>
<TR>
<TD id=zpw1 vAlign=top width="570" height=166>
<div align="center">
<table border="0" width="100%" id="table9" cellspacing="0" cellpadding="0">
<tr><%for i=0 to pnum
PhotoPicUrlstr2=PhotoPicUrlstr1(i)
PhotoPicUrlstr21=Split(PhotoPicUrlstr2,"|")
'PhotoPicUrlstr21(0) 图片标题
'PhotoPicUrlstr21(1) 图片地址%>
<td align=center>
<a target="_blank" href="<%=PhotoPicUrlstr21(1)%>">
<img border="0" src="<%=PhotoPicUrlstr21(1)%>" width="180" height="133" alt="<%=PhotoPicUrlstr21(0)%>,<%=fw%>,<%=bzw%>,<%=shx%>,<%=homepage_title%>"></a><br>
<a target="_blank" href="<%=PhotoPicUrlstr21(1)%>"><%=PhotoPicUrlstr21(0)%></a></td>
<%next%>
</tr>
</table>
</div>
</TD>
<TD id=zpw2 vAlign=top height=166></TD></TR></TBODY></TABLE></div>
<SCRIPT>
var speed=1
zpw2.innerHTML=zpw1.innerHTML
function Marquee(){
if(zpw2.offsetWidth-zpw.scrollLeft<=0)
zpw.scrollLeft-=zpw1.offsetWidth
else{
zpw.scrollLeft++
}
}
var MyMar=setInterval(Marquee,speed)
zpw.onmouseover=function() {clearInterval(MyMar)}
zpw.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</SCRIPT></td>
</tr>
</table>
</div>
<%
else
if Instr(bimg,"|")>0 then
PhotoPicUrlstr21=Split(bimg,"|")
%><a target="_blank" href="<%=PhotoPicUrlstr21(1)%>"><img border="0" src="<%=PhotoPicUrlstr21(1)%>" width="180" height="133" alt="<%=PhotoPicUrlstr21(0)%>,<%=fw%>,<%=bzw%>,<%=shx%>,<%=homepage_title%>"></a><%
else
%><a target="_blank" href="<%=bimg%>"><img border="0" src="<%=bimg%>" width="180" height="133" alt="<%=fw%>,<%=bzw%>,<%=shx%>,<%=homepage_title%>"></a><%
end if
end if
else
%><img border="0" src="../image/nopic2.jpg" width="135" height="112" alt="暂无图片"><%
end if
%></td>
</tr>
</table>
<table width="710" height="68" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFE2BB" class="main" style="border-collapse: collapse">
<tr bgcolor="#F9DE8E" class="p13">
<td height="24" colspan="4" bgcolor="#FFFFFF">
<p align="center"><b>联系方式</b></td>
</tr><%
if userid<>"" then
%>
<br>
<%
set ms=server.CreateObject("adodb.recordset")
sql2="select * from company where userid='"&userid&"' "
ms.open sql2,conn,1,1
if not ms.eof then
reg_type=trim(ms("reg_type"))
%>
<%if reg_type="0" then%>
<%Select case clng(showtype)
Case clng(1)
%>
<tr bgcolor="#FFFFFF" class="p13">
<td height="20" width="100"> <div align="center">联 系 人：</div></td>
<td height="20" colspan="3" width="596"> <%=trim(rs("lxr"))%></td>
</tr>
<tr bgcolor="#FFFFFF" class="p13">
<td height="20" width="100"> <div align="center">联系电话：</div></td>
<td height="20" colspan="3" width="596"> <%=trim(rs("tel"))%></td>
</tr>
<%
Case clng(3)
if session("loginid")<>"" then%>
<tr bgcolor="#FFFFFF" class="p13">
<td height="20" width="100"> <div align="center">联 系 人：</div></td>
<td height="20" colspan="3" width="596"> <%=trim(rs("lxr"))%></td>
</tr>
<tr bgcolor="#FFFFFF" class="p13">
<td height="20" width="100"> <div align="center">联系电话：</div></td>
<td height="20" colspan="3" width="596"> <%=trim(rs("tel"))%></td>
</tr>
<%
end if
Case clng(2)
%>
<tr bgcolor="#FFFFFF" class="p13">
<td height="20" width="100"> <div align="center">联 系 人：</div></td>
<td height="20" colspan="3" width="596"> <%=your_name%></td>
</tr>
<tr bgcolor="#FFFFFF" class="p13">
<td height="20" width="100"> <div align="center">联系电话：</div></td>
<td height="20" colspan="3" width="596"> <%=your_tel%></td>
</tr>
<%
End Select%> <tr class="p13">
<td height="23" bgcolor="#E7F7E6" width="100"><div align="center">电子邮件：</div></td>
<td height="23" colspan="3" bgcolor="#E7F7E6" width="596"><a href="mailto:<%=trim(ms("email"))%> " class="linkone"><%=trim(ms("email"))%></a> </td>
</tr>
</table>
<%else%>
<table width="710" height="127" border="0" cellpadding="2" cellspacing="1" class="main">
<tr bgcolor="#FFFFFF" class="p13">
<td width="99" height="20"><div align="center">公司名称：</div></td>
<td height="20"><a href=zhongjie.asp?id=<%=trim(ms("id"))%>><%=trim(ms("company"))%></a> <div align="center">
</div></td>
</tr>
<tr class="p13">
<td height="16" bgcolor="#E7F7E6"><div align="center">公司地址：</div></td>
<td height="16" bgcolor="#E7F7E6"><%=trim(ms("address"))%></td>
</tr>
<tr class="p13">
<td height="24" bgcolor="#E7F7E6"><div align="center">邮 编：</div></td>
<td width="594" height="24" bgcolor="#E7F7E6"><%=trim(ms("zip"))%> </td>
</tr>
<tr class="p13">
<td height="20" bgcolor="#FFFFFF"><div align="center">电子邮件：</div></td>
<td height="20" bgcolor="#FFFFFF"><a href="mailto:<%=trim(ms("email"))%> " class="linkone"><%=trim(ms("email"))%></td>
</tr> <tr class="p13">
<td height="25" bgcolor="#E7F7E6"><div align="center">公司简介：</div></td>
<td height="20" bgcolor="#E7F7E6"><%=trim(ms("info"))%></td>
</tr><%Select case clng(showtype)
Case clng(1)
%>
<tr bgcolor="#FFFFFF" class="p13">
<td height="20"> <div align="center">联 系 人：</div></td>
<td height="20" colspan="3"> <%=trim(rs("lxr"))%></td>
</tr>
<tr bgcolor="#FFFFFF" class="p13">
<td height="20"> <div align="center">联系电话：</div></td>
<td height="20" colspan="3"> <%=trim(rs("tel"))%></td>
</tr>
<%
Case clng(3)
if session("loginid")<>"" then%>
<tr bgcolor="#FFFFFF" class="p13">
<td height="20"> <div align="center">联 系 人：</div></td>
<td height="20" colspan="3"> <%=trim(rs("lxr"))%></td>
</tr>
<tr bgcolor="#FFFFFF" class="p13">
<td height="20"> <div align="center">联系电话：</div></td>
<td height="20" colspan="3"> <%=trim(rs("tel"))%></td>
</tr>
<%
end if
Case clng(2)
%>
<tr bgcolor="#FFFFFF" class="p13">
<td height="20"> <div align="center">联 系 人：</div></td>
<td height="20" colspan="3"> <%=your_name%></td>
</tr>
<tr bgcolor="#FFFFFF" class="p13">
<td height="20"> <div align="center">联系电话：</div></td>
<td height="20" colspan="3"> <%=your_tel%></td>
</tr>
<%
End Select%>
<%
end if
end if
else
%><%Select case clng(showtype)
Case clng(1)
%>
<tr bgcolor="#FFFFFF" class="p13">
<td height="20"> <div align="center">联 系 人：</div></td>
<td height="20" colspan="3"> <%=trim(rs("lxr"))%></td>
</tr>
<tr bgcolor="#FFFFFF" class="p13">
<td height="20"> <div align="center">联系电话：</div></td>
<td height="20" colspan="3"> <%=trim(rs("tel"))%></td>
</tr>
<%
Case clng(3)
if session("loginid")<>"" then%>
<tr bgcolor="#FFFFFF" class="p13">
<td height="20"> <div align="center">联 系 人：</div></td>
<td height="20" colspan="3"> <%=trim(rs("lxr"))%></td>
</tr>
<tr bgcolor="#FFFFFF" class="p13">
<td height="20"> <div align="center">联系电话：</div></td>
<td height="20" colspan="3"> <%=trim(rs("tel"))%></td>
</tr>
<%
end if
Case clng(2)
%>
<tr bgcolor="#FFFFFF" class="p13">
<td height="20"> <div align="center">联 系 人：</div></td>
<td height="20" colspan="3"> <%=your_name%></td>
</tr>
<tr bgcolor="#FFFFFF" class="p13">
<td height="20"> <div align="center">联系电话：</div></td>
<td height="20" colspan="3"> <%=your_tel%></td>
</tr>
<%
End Select%><%
end if
rs.close
%></table><br>
<div align="center">
<table width="710" border="0" cellpadding="3" cellspacing="1" bgcolor="#D9F2D7">
<tr>
<td bgcolor="#FFFFFF">房地产信息平台公告
<p> <%=homepage_title%>为用户发布、查询信息提供了信息发布的平台，要求用户遵守国家法律、法规，发布的每一条信息都必须真实、合法、有效，不得在网站上散布恶意信息，或者冒用他人名义发出信息，侵犯他人隐私。
</p>
<p> <%=homepage_title%>作为信息交互的平台，不参与具体的交易活动，请使用网站信息的用户提高法律意识、注意自我保护，仔细识别信息内容，慎重进行交易相关事项。
</p>
<p> 请<%=homepage_title%>用户在发布房屋买卖、租赁等信息时，仔细核对联系电话，在准确无误的情况下再行提交。同时，如果您在浏览、联系、交易过程中发现了虚假信息，请及时与<%=homepage_title%>联系。</p>
<p> 虚假信息举报信箱： <A class=header
href="mailto:<%=your_email%>"><%=your_email%></A>
</p></td>
</tr>
</table></div>
</td>
</tr>
</table>
</div>
<TABLE height=5 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>
<%
else
%><p> </p>
<p> </p>
<p> </p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"><b>
<font color="#FF0000">对不起，你所查看的信息没有审核！</font></b></p>
<%end if
end if %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -