📄 fewhouse.asp
字号:
<!--#include file="tools.asp"-->
<html><head><title>行业新闻</title>
<script>
if (!document.layers&&!document.all)
event="test"
function showtip2(current,e,text){
if (document.all&&document.readyState=="complete"){
document.all.tooltip2.innerHTML='<table class=box1 bgcolor="#FFFFCC"><tr><td valign="middle"><font style="font-family: 宋体; font-size: 9pt;">'+text+'</font></td></tr></table>'
document.all.tooltip2.style.pixelLeft=event.clientX+document.body.scrollLeft+10
document.all.tooltip2.style.pixelTop=event.clientY+document.body.scrollTop+10
document.all.tooltip2.style.visibility="visible"
}
else if (document.layers){
document.tooltip2.document.nstip.document.write(''+text+'')
document.tooltip2.document.nstip.document.close()
document.tooltip2.document.nstip.left=0
document.tooltip2.left=e.pageX+10
document.tooltip2.top=e.pageY+10
document.tooltip2.visibility="show"
}
}
function hidetip2(){
if (document.all)
document.all.tooltip2.style.visibility="hidden"
else if (document.layers){
document.tooltip2.visibility="hidden"
}
}
</script>
<div id="tooltip2" style="position:absolute;clip:rect(0 300 50 0);width:300px; top: 31px; left: 103px; visibility: hidden; height: 11px">
</div>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><link href="images/zzz.css" type="text/css" rel="stylesheet">
<meta content="MSHTML 6.00.2462.0" name="GENERATOR"></head>
<body background="images/bg3.gif" topMargin="0">
<marquee id="cool" onmouseover="cool.stop()" onmouseout="cool.start()" scrollAmount="2" scrollDelay="150" direction="up" width="175" height="280" align="center">
<table cellSpacing="0" cellPadding="5" width="100%" border="0">
<tbody>
<%
strsql="select top 5 hid,houseaddress,hall,room,toilet,tel,ctel,me.uname from tbllease le join tblmembers me on le.uid=me.uid order by hid desc"
set rsdh=server.CreateObject("adodb.recordset")
rsdh.Open strsql,conn
while not rsdh.EOF
%>
<tr><td><span class="zzz">
[出租]<a href="showlhouse.asp?hid=<%=rsdh("hid")%>" target="_blank"
onMouseOver="showtip2(this,event,'<%=rsdh("uname")%>')" onMouseOut="hidetip2()"
>
<%=rsdh("houseaddress")%> <%=fhousemodel(rsdh("room"),rsdh("hall"),rsdh("toilet"))%>
<%if isnull(rsdh("ctel")) or rsdh("ctel")="" then
Response.Write rsdh("tel")
else
Response.Write rsdh("ctel")
end if
%>
</a>
</span></td></tr>
<%
rsdh.MoveNext
wend
rsdh.Close
%>
<%
strsql="select top 5 hid,houseaddress,hall,room,toilet,tel,ctel,me.uname from tblsecondhouse le join tblmembers me on le.uid=me.uid order by hid desc"
rsdh.Open strsql,conn
while not rsdh.EOF
%>
<tr><td><span class="zzz">
[二手]<a href="showshouse.asp?hid=<%=rsdh("hid")%>" target="_blank"
onMouseOver="showtip2(this,event,'<%=rsdh("uname")%>')" onMouseOut="hidetip2()"
>
<%=rsdh("houseaddress")%> <%=fhousemodel(rsdh("room"),rsdh("hall"),rsdh("toilet"))%>
<%if isnull(rsdh("ctel")) or rsdh("ctel")="" then
Response.Write rsdh("tel")
else
Response.Write rsdh("ctel")
end if
%>
</a>
</span></td></tr>
<%
rsdh.MoveNext
wend
set rsdh=nothing
%>
</tbody></table></marquee></body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -