📄 adminhouseview.asp
字号:
<!--#include file="conn.asp"-->
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<STYLE type="text/css"> <!-- a:link { text-decoration: none; font-family: AdobeSm; color: #000000 }
a:visited { text-decoration: none; color: #000000 }
A:hover {COLOR: green; FONT-FAMILY: "宋体"; TEXT-DECORATION: underline;}
body { font-size: 9pt; font-family: 宋体, Arial;color: #000000}
TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体", "Arial";color: #000000}
p {FONT-SIZE: 9pt; FONT-FAMILY: "宋体", "Arial";color: #000000}
body { margin-top: 0; margin-bottom: 0; color: #000000 }
--></STYLE>
</head>
<%
if request("hcgood")="" then
response.write "错误，非法，或数据不存在"
response.end
end if
ck=request.querystring("hcgood")
sql = "select * from house where id="&ck
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
%>
<div align="center">
<table border="0" width="100%">
<tr>
<td width="64" style="border: 1px dotted #CCCCCC">地址</td>
<td width="475" style="border: 1px dotted #CCCCCC"><%=rs("region")%><%=rs("address")%>
</td>
</tr>
<tr>
<td width="64" style="border: 1px dotted #CCCCCC">发布类型</td>
<td width="475" style="border: 1px dotted #CCCCCC">
<%=rs("puttype")%>
</td>
</tr>
<tr>
<td width="64" style="border: 1px dotted #CCCCCC">房屋权属</td>
<td width="475" style="border: 1px dotted #CCCCCC"><%=rs("right")%>
</td>
</tr>
<tr>
<td width="64" style="border: 1px dotted #CCCCCC">户型</td>
<td width="475" style="border: 1px dotted #CCCCCC"><%=rs("frame")%>
</td>
</tr>
<tr>
<td width="64" style="border: 1px dotted #CCCCCC">基础设施</td>
<td width="475" style="border: 1px dotted #CCCCCC"><%=rs("base")%>
</td>
</tr>
<tr>
<td width="64" style="border: 1px dotted #CCCCCC">设备情况</td>
<td width="475" style="border: 1px dotted #CCCCCC">
<%=rs("equipment")%></td>
</tr>
<tr>
<td width="64" style="border: 1px dotted #CCCCCC">装修程度</td>
<td width="475" style="border: 1px dotted #CCCCCC"><%=rs("fitment")%>
</td>
</tr>
<tr>
<td width="64" style="border: 1px dotted #CCCCCC">建筑面积</td>
<td width="475" style="border: 1px dotted #CCCCCC">
<%=rs("buildarea")%>平方米
</tr>
<tr>
<td width="64" style="border: 1px dotted #CCCCCC">楼层</td>
<td width="475" style="border: 1px dotted #CCCCCC"><%=rs("floor")%>楼
</td>
</tr>
<tr>
<td width="64" style="border: 1px dotted #CCCCCC">房价</td>
<td width="475" style="border: 1px dotted #CCCCCC">
<%=rs("price")%></td>
</tr>
<tr>
<td width="64" style="border: 1px dotted #CCCCCC">登记日期</td>
<td width="475" style="border: 1px dotted #CCCCCC">
<%=rs("accessdate")%> <%=rs("effectdays")%>天内有效
到期时间:<%
currentDate = rs("accessdate")
newDate = DateAdd("d",rs("effectdays"),currentDate)
response.write newDate&" 今天是"&date()
%>
</td>
</tr>
<tr>
<td width="64" style="border: 1px dotted #CCCCCC"> </td>
<td width="475" style="border: 1px dotted #CCCCCC"><%
if newdate<date() then
response.write "<font color=red><b>此信息已过期,这是最后一次查看！将会自动删除</b></font>"
dele=1
else
response.write "此信息没到期，有效"
end if
%>
</td>
</tr>
<tr>
<td width="64" style="border: 1px dotted #CCCCCC">联系人</td>
<td width="475" style="border: 1px dotted #CCCCCC"><%=rs("linkman")%>
</td>
</tr>
<tr>
<td width="64" style="border: 1px dotted #CCCCCC">联系方式</td>
<td width="475" valign="bottom" style="border: 1px dotted #CCCCCC"><%=rs("connect")%>
</td>
</tr>
<tr>
<td width="64" height="18" style="border: 1px dotted #CCCCCC">备注</td>
<td width="475" height="18" style="border: 1px dotted #CCCCCC"><%=rs("demo")%>
</td>
</tr>
</table>
<%
if dele=1 then
sql = "delete * from house where id="&ii
conn.Execute(sql)
end if
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -