house.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 360 行 · 第 1/2 页
ASP
360 行
<TD height="45"
align=middle vAlign=bottom> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD vAlign=top align=middle bgColor=#e3e3e3
height=1></TD>
</TR>
</TABLE></TD>
<TD width=5 bgColor=#e3e3e3></TD>
<TD width="710" align=middle vAlign=top> <TABLE width=710 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height=8></TD>
</TR>
<TR>
<TD align=middle
background=../image/center_r5_c8.gif
height=50><div align="center"><font color="#666666">您好!<font color="#FF0000"><%=session("loginid")%></font>,欢迎您来到会员管理中心!您可以按左边的菜单进行管理.</font></div></TD>
</TR>
<TR>
<TD
height=30 align=middle bgcolor="#62C128"><table width="50%" border="0" align="center" cellpadding="0" cellspacing="0" class="main">
<tr>
<td height="25"> <div align="center"> </div></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
<TABLE width=710 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width=1 bgColor=#d7d7d7></TD>
<TD vAlign=top align=middle bgColor=#fafafa><table width="100%" height="221" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top"><form name="form1" method="post" action="house_del.asp">
<table width="702" border="0" cellpadding="0" cellspacing="1" bgcolor="#62C128">
<tr>
<td width="40" height="25" align="center" bgcolor="#D9F2D7" class="p13"><font color="#FF711B">删除</font></td>
<td width="54" height="25" align="center" bgcolor="#D9F2D7" class="p13"><font color="#FF711B">类别</font></td>
<td width="72" height="25" align="center" bgcolor="#D9F2D7" class="p13"><font color="#FF711B">区域</font></td>
<td width="104" height="25" align="center" bgcolor="#D9F2D7" class="p13"><font color="#FF711B">户型</font></td>
<td width="115" height="25" align="center" bgcolor="#D9F2D7" class="p13"><font color="#FF711B">地段名</font></td>
<td width="89" height="25" align="center" bgcolor="#D9F2D7" class="p13"><font color="#FF711B">房价</font></td>
<td width="103" height="25" align="center" bgcolor="#D9F2D7" class="p13"><font color="#FF711B">登记时间</font></td>
<td width="58" height="25" align="center" bgcolor="#D9F2D7" class="p13">
<font color="#FF711B">状态</font></td>
<td width="59" height="25" align="center" bgcolor="#D9F2D7" class="p13"><font color="#FF711B">详细信息</font></td>
</tr>
<%
userid=session("loginid")
dim curpage
if request("curpage")="" then
curpage=1
else
curpage=request("curpage")
end if
const numperpage=15
xxlb=trim(request("xxlb"))
opendataconn
sql="select * from house where userid='"&userid&"' "
if xxlb<>"" then
sql=sql & " and xxlb='"&xxlb&"'"
end if
sql=sql & " order by dateandtime desc "
rs.open sql,conn,1,1
if rs.eof then
response.write "<center>现在还没有记录！</center>"
'response.end
end if
if not rs.eof then
rs.pagesize=numperpage
dim totalpages
totalpages=rs.pagecount
rs.absolutepage=curpage
end if
dim count
count=0
do while not rs.eof and count<numperpage
If count mod 2=0 Then
bgcolor="#FEFAEE"
Else
bgcolor="#FFFFFF"
End If
%>
<tr onMouseOver="this.style.backgroundColor='#FEEAD3';" onMouseOut="this.style.backgroundColor='<%=bgcolor%>'" bgcolor="<%=bgcolor%>">
<td width="40" height="22" align="center" bgcolor="#E7F7E6">
<input name="id" type="checkbox" id="id2" value="<%=trim(rs("id"))%>">
</td>
<td width="54" align="center" bgcolor="#E7F7E6"><div align="center">
<%xxlb_1=trim(rs("xxlb"))%>
<!--#include file="xxlb.asp"-->
</div></td>
<td width="72" align="center" bgcolor="#E7F7E6"><font color="#FF9900">
</font><%=left(rs("fangwei"),15)%> </td>
<td width="104" align="center" bgcolor="#E7F7E6"><a href="house_modi.asp?id=<%=trim(rs("id"))%>"><%=left(rs("fclx"),15)%></a><%if rs("bimg")<>"" then%><font color="#FF0000">(图)</font><%end if%></td>
<td width="115" align="center" bgcolor="#E7F7E6"><%=left(rs("area"),15)%></td>
<td width="89" align="center" bgcolor="#E7F7E6"><%=left(rs("jyprice"),15)%></td>
<td width="103" align="center" bgcolor="#E7F7E6">
<%response.write year(rs("dateandtime")) & "-" & month(rs("dateandtime")) & "-" & day(rs("dateandtime"))%>
</td>
<td width="58" align="center" bgcolor="#E7F7E6">
<%if rs("sh")=1 then%><font color="#008000">已审</font><%else%><font color="#FF0000">未审</font><%end if%></td>
<td width="59" align="center" bgcolor="#E7F7E6">
<a class="linkone" href="house_modi.asp?id=<%=trim(rs("id"))%>">查看修改</a></td>
</tr>
<%
rs.movenext
count=count+1
loop
rs.close
%>
<tr>
<td height="50" colspan="9" align="center" bgcolor="#FFFFFF" class="p13">
<div align="center">
<% if cint(curpage)<>1 then %>
<a href="house.asp?curpage=1&xxlb=<%=xxlb%>" class="linkone">首页 </a>
<% else %>
首页
<% end if %>
<% if cint(curpage)>1 then %>
<a href="house.asp?curpage=<%=curpage-1%>&xxlb=<%=xxlb%>" class="linkone">上一页 </a>
<% else %>
上一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
<a href="house.asp?curpage=<%=curpage+1%>&xxlb=<%=xxlb%>" class="linkone"> 下一页
<% else %>
下一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
</a><a href="house.asp?curpage=<%=totalpages%>&xxlb=<%=xxlb%>" class="linkone"> 末页
<% else %>
末页
<% end if %>
</a>
<input name="xxlb2" type="hidden" id="xxlb2" value="<%=xxlb%>">
第<font color="#FF0000"><%=curpage%></font>页/共<%=totalpages%>页
<input type="submit" name="Submit2" value="删除">
</div></td>
</tr>
</table>
</form></td>
</tr>
</table></TD>
<TD width=1 bgColor=#d7d7d7></TD>
</TR>
</TBODY>
</TABLE>
<TABLE width=567 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD vAlign=top align=middle>
<IMG height=38
src="../image/center_r29_c9.jpg"
width=710></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TABLE></TD>
</TR>
</TABLE>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" class="main">
<tr>
<td> </td>
</tr>
<tr>
<td> <!--#include file="../end.asp" --> <div align="center"></div></td>
</tr>
</table>
</body>
</html>
<%
Set Rs=Nothing
CloseDataConn
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?