📄 list.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="conn/conn.asp"-->
<%
dim typeto,idtype
typeto=trim(request("typeto"))
idtype=trim(request("idtype"))
%>
<%
set rs=server.createobject("adodb.recordset")
sql="update "& typeto &" set dj=dj+1 where zid = "&request("zid")
rs.open sql,conn,1,3
sql="select * from "& typeto &" where zid = "&request("zid")
rs.open sql,conn,1,1
name1=(rs.Fields.Item("username").Value)
fdat=(rs.Fields.Item("dat").Value)
Num1=Cstr(year(fdat))
Num2=Cstr(month(fdat))
Num3= Cstr(day(fdat))
%>
<html>
<head>
<title>房源详细信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.9size { font-family: "宋体"; font-size: 9pt; color: #000000; text-decoration: none}
a:hover { font-family: "宋体"; font-size: 9pt; color: #FFFFFF; text-decoration: underline}
-->
</style>
</head>
<SCRIPT language=JavaScript1.2>
var bookmarkurl=<% =url %>
var bookmarktitle=<% =name %>
function addbookmark(){
if (document.all)
window.external.AddFavorite(bookmarkurl,bookmarktitle)
}
</SCRIPT>
<body bgcolor="#FFFFFF" background="img/bg.gif" leftmargin="0">
<table width="570" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="580">
<div align="center">
<center>
<table width="566" border="3" cellspacing="1" cellpadding="2" class="9size" bordercolorlight="#BDBD79" bordercolordark="#BDBD79" style="border-collapse: collapse" bordercolor="#FFFFFF">
<tr bgcolor="#6666FF">
<td height="38" colspan="4" bgcolor="#F9FBF0"> <p align="center">
<b><span style="font-size: 10.5pt">第 <font color="#FF0000">
<% If (rs.Fields.Item("num").Value)="" Then %>
<%=(rs.Fields.Item("zid").Value)%>
<% Else %>
<%= (rs.Fields.Item("num").Value) %>
<% End If %>
</font> 号房产详细信息</span></b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="103" class="plaintext" bgcolor="#F1F5DC"><font color="#000000">房产地域:</font></td>
<td width="146" class="plaintext" height="25" bgcolor="#F9FBF0"><%=(rs.Fields.Item("Diduan").Value)%> </td>
<td width="111" class="plaintext" height="25" bgcolor="#F1F5DC"><font color="#000000">阅读次数</font>:</td>
<td width="171" class="plaintext" height="25" bgcolor="#F9FBF0"><%=(Rs.Fields.Item("dj").Value)%> </td>
</tr>
<tr bgcolor="#6666FF">
<td width="103" class="plaintext" bgcolor="#F1F5DC">房产类别:</td>
<td width="146" class="plaintext" height="25" bgcolor="#F9FBF0"><%=(rs.Fields.Item("Fangx").Value)%> </td>
<td class="plaintext" height="25" width="111" bgcolor="#F1F5DC">装修情况:</td>
<td class="plaintext" height="25" width="171" bgcolor="#F9FBF0"><%=(rs.Fields.Item("zx").Value)%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="103" class="plaintext" bgcolor="#F1F5DC">房产套型:</font></td>
<td width="146" class="plaintext" height="25" bgcolor="#F9FBF0"><%=(rs.Fields.Item("Taox").Value)%> </td>
<td class="plaintext" height="25" width="111" bgcolor="#F1F5DC"><font color="#000000">房产权属</font>:</td>
<td class="plaintext" height="25" width="171" bgcolor="#F9FBF0"><%=(rs.Fields.Item("changq").Value)%> </td>
</tr>
<tr bgcolor="#6666FF">
<td width="103" class="plaintext" bgcolor="#F1F5DC">小区路段:</td>
<td width="146" class="plaintext" height="25" bgcolor="#F9FBF0"><%=(rs.Fields.Item("xiaoqm").Value)%> </td>
<td class="plaintext" height="25" width="111" bgcolor="#F1F5DC">建成日期:
</td>
<td class="plaintext" height="25" width="171" bgcolor="#F9FBF0"><font size="2">
<% if (rs.Fields.Item("D").Value)=" " then %>
无
<% else %>
<% =(rs.Fields.Item("D").Value)%>
<% end if %>
</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="103" class="plaintext" height="26" bgcolor="#F1F5DC"><font color="#000000">房产面积</font>:</td>
<td width="146" class="plaintext" height="26" bgcolor="#F9FBF0"><%=(rs.Fields.Item("Mianj").Value)%><font color="#000000">平方米</font></td>
<td class="plaintext" height="26" width="111" bgcolor="#F1F5DC"><font color="#000000">登记时间</font>:</td>
<td class="plaintext" height="26" width="171" bgcolor="#F9FBF0">
<% =Num1 %> <font color="#000000">年</font> <% =Num2 %> <font color="#000000">月</font> <% =Num3 %> <font color="#000000">日</font></td>
</tr>
<tr bgcolor="#6666FF">
<td width="103" class="plaintext" bgcolor="#F1F5DC"><span style="font-size: 9pt">
<% If typeto="sale" Then
response.Write("价 格")
else
response.Write("租 金")
end if %>
</span>:</td>
<td width="146" class="plaintext" height="25" bgcolor="#F9FBF0"><%=(rs.Fields.Item("jiag").Value)%><%=(rs.Fields.Item("fangshi").Value)%></td>
<td class="plaintext" height="25" width="111" bgcolor="#F1F5DC"><font color="#FF0000">联
系 人:</font></td>
<td class="plaintext" height="25" width="171" bgcolor="#F9FBF0"><font color="#FF0000">
<%if request.cookies("okadmin")="" then %>
<%= name %>
<% Else %>
<%=(rs.Fields.Item("Contperson").Value)%></font> <% End If %> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="103" class="plaintext" height="24" bgcolor="#F1F5DC"><font color="#000000">房产楼层</font>:</td>
<td width="146" class="plaintext" height="24" bgcolor="#F9FBF0"><font color="#000000">楼层:</font><%=(rs.Fields.Item("lc").Value)%><font color="#000000">，共</font><%=(rs.Fields.Item("Tc").Value)%><font color="#000000">层</font></td>
<td class="plaintext" height="24" width="111" bgcolor="#F1F5DC"><font color="#FF0000">
联系电话:</font></td>
<td class="plaintext" height="24" width="171" bgcolor="#F9FBF0"><font color="#FF0000">
<% If request.Cookies("okadmin")="" Then %>
<%= tel %>
<% Else %>
<%=(rs.Fields.Item("tele").Value)%> </font> <% End If %> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="plaintext" height="25" width="103" bgcolor="#F1F5DC"><font color="#000000">备 注:</font></td>
<td class="plaintext" colspan="3" height="25" bgcolor="#F9FBF0">
<font size="2">
<% if (rs.Fields.Item("Content").Value)=" " then %>
无
<% else %>
<% =(rs.Fields.Item("Content").Value)%>
<% end if %>
</font> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="plaintext" height="25" bgcolor="#F1F5DC">房产照片:</td>
<td class="plaintext" colspan="3" height="25" bgcolor="#F9FBF0">
<% If rs("img")<>"" Then %> <div align="center"><img src="<%= rs("img") %>"></div>
<% Else %>
该房产没有上传图片
<% End If %> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="4" bgcolor="#F1F5DC" class="plaintext"><b>服务专线：<%= tel %> </b><font color="#000000">（请记住该房源的序列号:<b><font color="#FF0000">
<% If (rs.Fields.Item("num").Value)="" Then %>
<%=(rs.Fields.Item("zid").Value)%>
<% Else %>
<%= (rs.Fields.Item("num").Value) %>
<% End If %>
</font></b>）<b> </b></font> </td>
</tr>
<tr align="right" bgcolor="#FFFFFF">
<td height="25" colspan="4" bgcolor="#F1F5DC" class="plaintext"> [<a href="javascript:window.print()" class="link2">打印本页</a>] [<a href="javascript:window.close()" class="link2">关闭窗口</a>]
</td>
</tr>
<%
rs.close
set rs=nothing
%>
</table>
</center>
</div>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -