index2.asp
来自「功能的增加及完善 1.完善了上次不能读写房源编号的错误； 2.增加了不是会员」· ASP 代码 · 共 572 行 · 第 1/2 页
ASP
572 行
<!--#include file="conn.asp"-->
<%
sql="select * from counst"
set rs=conn.execute(sql)
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title><% =rs("W_name") %></title>
<link href="css/css.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0" leftmargin="0" bgcolor="#EEEEEE">
<div align="center">
<center>
<table border="0" width="778" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="1%" valign="top" background="imag/b-left.jpg"><img border="0" src="imag/b-left.jpg"></td>
</center>
<td width="98%" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="83%" background="imag/top-01-2.jpg" valign="top">
<p align="right"><img border="0" src="imag/top-01-1.jpg"></td>
<center>
<td width="17%" bgcolor="#569800"><font color="#FFFFFF">
<p style="line-height: 100%"><% =rs("W_url") %></font></td>
</tr>
</table>
</center>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="8%" valign="top" background="imag/left-d.jpg">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"><img border="0" src="imag/left-top.jpg"></td>
</tr>
<tr>
<td width="100%">
<!--#include file="huiyuan.asp"-->
<!--#include file="shousuo.asp"-->
<!--#include file="tongji.asp"-->
<!--#include file="link.asp"-->
</td>
</tr>
</table>
</td>
<td width="92%" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<!--#include file="top.asp"-->
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellpadding="5">
<tr>
<td width="50%" valign="top"><% set rscz=conn.execute("select top 8 * from house where mytype='出租 ' order by id desc")%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="2%" background="imag/k-006.jpg"><img border="0" src="imag/k-006.jpg"></td>
<td width="96%">
<table border="0" width="100%" cellspacing="1" cellpadding="0">
<% if rscz.bof and rscz.eof then
response.write "管理员暂时没有添加房源!"
else
while not rscz.eof%>
<tr>
<td width="5%"><img border="0" src="imag/001.gif"></td>
<td width="36%"><a target="_blank" href="h_open.asp?id=<% =rscz("id") %>"><% =rscz("fw_jiegou") %></a></td>
<td width="29%"><% =rscz("fw_louceng") %> 层</td>
<td width="30%"><% =rscz("fw_jiage") %><% =rscz("fw_jiageLX") %></td>
</tr>
<%
rscz.movenext
wend
end if
rscz.close
set rscz=nothing
%>
</table>
</td>
<td width="2%" background="imag/k-006-2.jpg"><img border="0" src="imag/k-006-2.jpg"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="50%" valign="top"><% set rscs=conn.execute("select top 8 * from house where mytype='出售 ' order by id desc")%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="2%"><img border="0" src="imag/k-001.jpg"></td>
<td width="96%" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" background="imag/k-002-1.jpg"><img border="0" src="imag/k-002-1.jpg"></td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#71B51C">
<tr>
<td width="33%">
<p align="right"><img border="0" src="imag/k-003.jpg"></td>
<td width="33%">
<p align="center"><b><font style="font-size: 14px" color="#FFFFFF">最新<% =rscs("mytype") %></font></b></td>
<td width="34%"><img border="0" src="imag/k-004.jpg"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="2%"><img border="0" src="imag/k-005.jpg"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="2%" background="imag/k-006.jpg"><img border="0" src="imag/k-006.jpg"></td>
<td width="96%">
<table border="0" width="100%" cellspacing="1" cellpadding="0">
<% if rscs.bof and rscs.eof then
response.write "管理员暂时没有添加房源!"
else
while not rscs.eof%>
<tr>
<td width="5%"><img border="0" src="imag/001.gif"></td>
<td width="36%"><a target="_blank" href="h_open.asp?id=<% =rscs("id") %>"><% =rscs("fw_jiegou") %></a></td>
<td width="29%"><% =rscs("fw_louceng") %> 层</td>
<td width="30%"><% =rscs("fw_jiage") %><% =rscs("fw_jiageLX") %></td>
</tr>
<%
rscs.movenext
wend
end if
rscs.close
set rscs=nothing
%>
</table>
</td>
<td width="2%" background="imag/k-006-2.jpg"><img border="0" src="imag/k-006-2.jpg"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="3%"><img border="0" src="imag/k-007-1.jpg"></td>
<td width="94%" background="imag/k-007-d.jpg">
<p align="center"><a href="house.asp?lb=出售"><img border="0" src="imag/k-007-2.jpg"></a></td>
<td width="3%"><img border="0" src="imag/k-007-3.jpg"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellpadding="5">
<tr>
<td width="50%" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="1%"><img border="0" src="imag/k-001.jpg"></td>
<td width="98%" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" background="imag/k-002-1.jpg"><img border="0" src="imag/k-002-1.jpg"></td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#71B51C">
<tr>
<td width="50%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="33%">
<p align="right"><img border="0" src="imag/k-003.jpg"></td>
<td width="33%">
<p align="center"><b><font style="font-size: 14px" color="#FFFFFF">图片欣赏</font></b></td>
<td width="34%"><img border="0" src="imag/k-004.jpg"></td>
</tr>
</table>
</td>
<td width="50%">
<p align="right"><img border="0" src="imag/k-008.jpg"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="1%"><img border="0" src="imag/k-005.jpg"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="1%" background="imag/k-006.jpg"><img border="0" src="imag/k-006.jpg"></td>
<td width="98%">
<div align="center">
<center>
<table border="0" width="16%" cellpadding="2">
<tr>
<% sqlP="select top 4 * from imgbook order by id desc"
set rsP=conn.execute(sqlP)
if rsP.eof and rsP.bof then
response.Write"暂无信息"
else
while not rsP.eof%>
<td width="20%" height="111">
<div align="center">
<center>
<table border="0" width="10">
<tr>
<td width="100%" height="103">
<table border="0" width="100%" bgcolor="#559900" cellspacing="1" cellpadding="5">
<tr>
<td width="100%" height="99" bgcolor="#FFCC00">
<p align="center"><a href="pictures.asp?id=<% =rsP("id") %>" target="_blank"><img src="<% =rsP("news_content")%>" name="P" width="110" height="89" border="0"></a></td>
</tr>
</table> </td>
</tr>
</table>
</center>
</div> </td>
<% rsP.movenext
wend
end if %>
</tr>
</table>
</center>
</div>
</td>
<td width="1%" background="imag/k-006-2.jpg"><img border="0" src="imag/k-006-2.jpg"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0" background="imag/k-009-2.jpg">
<tr>
<td width="50%"><img border="0" src="imag/k-009-1.jpg"></td>
<td width="50%">
<p align="right"><img border="0" src="imag/k-009-3.jpg"></td>
</tr>
</table>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?