📄 showulhouse.asp
字号:
<!--#include file="tools.asp"-->
<html><head><title>出租房信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><link href="images/zzz.css" type="text/css" rel="stylesheet">
<script language="Javascript" src="function/function.js"></script>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function button1_onclick() {
window.close();
}
//-->
</SCRIPT>
</head>
<body text="#000000" bgColor="#ffffff" leftMargin="0" topMargin="0" onload="MM_preloadImages('images/kk2.gif')"><br>
<%
hid=trim(Request.QueryString("hid"))
if not(isnumeric(hid)) then
errdis="错误"
elseif abs(hid)>2147483648 then
errdis="错误"
else
strsql="select tm,hasimage,houseaddress,district,hall,room,area,areadis,[floor],visit,sec.intro,price,mem.uid,mem.email,mem.uname,mem.tel,convert(varchar(10),hdate,120) dat" & _
" from tbllease sec join tblusers mem on sec.uid=mem.uid where hid=" & hid
set rsd=server.CreateObject("adodb.recordset")
rsd.Open strsql,conn
if rsd.EOF and rsd.BOF then
errdis="错误"
else
strsql="update tbllease set visit=visit+1 where hid=" & hid
conn.execute(strsql)
%><center>
<table class="zzz" cellSpacing="0" cellPadding="0" width="480" bgColor="#E6F2FF" border="0">
<tbody>
<tr>
<td class="zzz" width="100%"><font color="#999999"><table class="shuang" cellSpacing="0" cellPadding="0" width="480" align="center" background="images/bg4.gif" border="0">
<tr>
<td vAlign="top" width="480"><table cellSpacing="1" cellPadding="1" width="480" bgColor="#666666" border="0">
<tbody>
<tr>
<td class="zzz" bgColor="#ffcc66" width="100%" align="center" colspan="2">基 本 信 息</td>
</tr>
<tr>
<td class="zzz" width="15%" bgColor="#EEEEEE" height="23" align="right" valign="center">地址：</td>
<td class="zzz" width="85%" bgColor="#FFFFFF" height="23"> <%if rsd("district")="浦东" then%>
<%=rsd("district")%>新区
<%else
Response.Write trim(rsd("district")&"区")
end if
%>
<%=rsd("houseaddress")%></td>
</tr>
<tr bgColor="#ffffff">
<td class="zzz" width="15%" bgColor="#EEEEEE" height="23" align="right" valign="center">面积：</td>
<td class="zzz" width="85%" bgColor="#FFFFFF" height="23"> <%=rsd("area")%>M<sup>2</sup></td>
</tr>
<tr bgColor="#ffffff">
<td class="zzz" width="15%" bgColor="#EEEEEE" height="23" align="right" valign="center">房型：</td>
<td class="zzz" width="85%" bgColor="#FFFFFF" height="23"> <%=rsd("room")%>室<%=rsd("hall")%>厅 <%=rsd("areadis")%> <%=rsd("floor")%>
<%
if rsd("hasimage")=1 then
istrsql="select * from tblimages where hid=" & hid & " and tblname='l'"
set irsd=server.CreateObject("adodb.recordset")
irsd.Open istrsql,conn
%>
<a href="mimages/<%=irsd("imgname")%>" target="_blank"><img src="images/fx.gif" border="0" WIDTH="49" HEIGHT="13"></a>
<%set irsd=nothing%>
<%end if%>
</td>
</tr>
<tr bgColor="#ffffff">
<td class="zzz" width="15%" bgColor="#EEEEEE" height="23" align="right" valign="center">价格：</td>
<td class="zzz" width="85%" bgColor="#FFFFFF" height="23"> <%=formatnumber(rsd("price"),0)%>元/月</td>
</tr>
<tr bgColor="#ffffff">
<td class="zzz" width="15%" bgColor="#EEEEEE" height="23" align="right" valign="center">电话：</td>
<td class="zzz" width="85%" bgColor="#FFFFFF" height="23"> <%=rsd("tel")%></td>
</tr>
<tr bgColor="#ffffff">
<td class="zzz" width="15%" bgColor="#EEEEEE" height="23" align="right" valign="center">电子信箱：</td>
<td class="zzz" width="85%" bgColor="#FFFFFF" height="23"> <%if rsd("email")<>"-" then%>
<a href="mailto:<%=rsd("email")%>"><%=rsd("email")%></a>
<%
else
Response.Write "-"
end if%>
</td>
</tr>
<tr bgColor="#ffffff">
<td class="zzz" width="15%" bgColor="#EEEEEE" height="23" align="right" valign="center">联系人：</td>
<td class="zzz" width="85%" bgColor="#FFFFFF" height="23">
<%if rsd("uname")="" then%>
<%=rsd("uid")%>
<%else%>
<%=rsd("uname")%>
<%end if%>
</td>
</tr>
<tr bgColor="#ffffff">
<td class="zzz" width="15%" bgColor="#EEEEEE" height="23" align="right" valign="center">登记日期：</td>
<td class="zzz" width="85%" bgColor="#FFFFFF" height="23"> <%=rsd("dat")%></td>
</tr>
<tr bgColor="#ffffff">
<td class="zzz" width="15%" bgColor="#EEEEEE" height="23" align="right" valign="center">有效期：</td>
<td class="zzz" width="85%" bgColor="#FFFFFF" height="23"> <%=rsd("tm")%></td>
</tr>
<tr bgColor="#ffffff">
<td class="zzz" width="15%" bgColor="#EEEEEE" height="23" align="right" valign="center">访问次数：</td>
<td class="zzz" width="85%" bgColor="#FFFFFF" height="23"> <%=rsd("visit")%></td>
</tr>
<tr>
<td class="zzz" bgColor="#ffcc66" width="100%" align="center" colspan="2"><INPUT type="button" value="关闭窗口" id=button1 name=button1 LANGUAGE=javascript onclick="return button1_onclick()" class="box1"></td>
</tr>
</tbody>
</table>
</center>
<%
end if
end if
if errdis<>"" then Response.Write "<font color=red>错误</font>"%>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -