📄 delhouse.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 language=JavaScript>
<!--
function SnR_MarkIE(theURL,theName,alertMsg) { //v3.0.3
var agt = navigator.userAgent.toLowerCase();
var is_win = ((agt.indexOf("win")!= -1) || (agt.indexOf("16bit")!= -1));
var is_win95 = ((agt.indexOf("win95")!= -1) || (agt.indexOf("windows 95")!= -1));
var is_win16 = ((agt.indexOf("win16")!= -1) || (agt.indexOf("16bit")!= -1) || (agt.indexOf("windows 3.1")!= -1) || (agt.indexOf("windows 16-bit")!= -1) );
var is_win31 = ((agt.indexOf("windows 3.1")!= -1) || (agt.indexOf("win16")!= -1) || (agt.indexOf("windows 16-bit")!= -1));
var is_win98 = ((agt.indexOf("win98")!= -1) || (agt.indexOf("windows 98")!= -1));
var is_winnt = ((agt.indexOf("winnt")!= -1) || (agt.indexOf("windows nt")!= -1));
var is_win32 = (is_win95 || is_winnt || is_win98 || (agt.indexOf("win32")!= -1) || (agt.indexOf("32bit")!= -1));
//Error Causing Element from above line: ((is_major >= 4) && (navigator.platform == "Win32")) ||
var is_Mac = (agt.indexOf("mac") != -1);
if (document.all && (is_win32)) { //IE Windows Only
window.external.AddFavorite(theURL,theName);
}
else { // all others
alert(alertMsg);
}
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_findObj(n, d) { //v4.0
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && document.getElementById) x=document.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
function MM_showHideLayers() { //v3.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v='hide')?'hidden':v; }
obj.visibility=v; }
}
function adB_onclick() {
window.open('defaul.asp','','resizable=1,scrollbars=no,width=550 height=300')
}
function s1_onchange() {
window.location=window.s1.value
}
//-->
</SCRIPT>
<style type="text/css">
input,textarea {
color : #000000;
font-family : Verdana, Arial, Helvetica, sans-serif;
font-size : 12px;
font-weight : normal;
background-color : #FFFFFF;
}
.bginput { background-color:#FFFFFF; border: #000000; border-style: solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px;
font-family : Verdana, Arial, Helvetica, sans-serif;
font-size : 12px;
}
select {
color : #000000;
font-family : 宋体;
font-size : 12px;
font-weight : normal;
background-color : #FFFFFF;
}
</style>
</HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0
onload="MM_preloadImages('images/kk2.gif')">
<!--#include file="title.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新网页 3</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body>
<%
if trim(Request.Form("b1"))<>"" then
hid=trim(Request.Form("hid"))
tbl=trim(Request.Form("tbl"))
if hid<>"" then
strsql="delete from " & tbl & " where hid in (" & hid & ")"
conn.execute(strsql)
'Response.Write strsql
ss="选定房源已删除！"
else
ss="未选定要删除的房源！"
end if
end if
%>
<table class="shuang" cellSpacing="0" cellPadding="0" width="778" align="center"
background="images/bg4.gif" border="0">
<tr>
<td><div align="center"><center><table width="100%" border="0" cellspacing="0"
cellpadding="10" align="center" background="images/bg4.gif">
<tr>
<td class="bodyline"><div align="center"><center><table width="100%" cellpadding="0"
cellspacing="0" border="0">
<tr>
<td><table cellpadding="1" cellspacing="0" border="0" bgcolor="#ffffff" width="100%"
align="center">
<tr>
<td>
<font style="FONT-SIZE: 12px" color="red" class="thtcolor"><%=ss%></font>
<table cellpadding="4" cellspacing="1" border="0" width="758">
<!-- *** -->
<tr>
<td bgcolor="#006699" colspan="2" width="778"><font style="FONT-SIZE: 12px"
color="#ffffff" class="thtcolor">新房列表</font><font face="verdana, arial, helvetica"
style="FONT-SIZE: 12px" color="#ffffff" class="thtcolor">.</font></td>
</tr>
<!-- *** -->
<%
uid=Request.Cookies("uid")
strsql="select hid,housename from tblnewhouse where uid=" & sqlstr(uid) & " order by hid desc"
set rsd=server.CreateObject("adodb.recordset")
rsd.Open strsql,conn,adOpenStatic
if rsd.EOF and rsd.BOF then
%>
<tr><td bgcolor="#DEE3E7" width="778" colspan="2">暂无信息！</td>
<%else%>
<%
while not rsd.EOF
%>
<form action="delhouse.asp" method="post" id=form1 name=form1>
<tr>
<td bgcolor="#DEE3E7" width="24"><input type="checkbox" name="hid" value="<%=rsd("hid")%>"></td>
<td bgcolor="#DEE3E7" width="684">
<font style="FONT-SIZE: 12px"><%=rsd("housename")%></font></td>
</tr>
<tr>
<td bgcolor="#dee3e7" width="708" colspan="2">
</tr>
<%
rsd.MoveNext
wend
%>
<tr>
<td bgcolor="#dee3e7" width="708" colspan="2">
<input type="submit" name="b1" value="删除">
</td>
<input type="hidden" name="tbl" value="tblnewhouse">
</td>
</form>
<%end if
rsd.Close%>
</tr>
<tr>
<td bgcolor="#006699" colspan="2" width="778"><font style="FONT-SIZE: 12px"
color="#ffffff" class="thtcolor">二手房列表</font><font
face="verdana, arial, helvetica" style="FONT-SIZE: 12px" color="#ffffff" class="thtcolor">.</font></td>
</tr>
<%
strsql="select hid,houseaddress from tblsecondhouse where uid=" & sqlstr(uid) & " order by hid desc"
rsd.Open strsql,conn,adOpenStatic
if rsd.EOF and rsd.BOF then
%>
<tr><td bgcolor="#DEE3E7" width="778" colspan="2">暂无信息！</td>
<%else%>
<%
while not rsd.EOF
%>
<form action="delhouse.asp" method="post" id=form1 name=form1>
<tr>
<td bgcolor="#DEE3E7" width="24"><input type="checkbox" name="hid" value="<%=rsd("hid")%>"></td>
<td bgcolor="#DEE3E7" width="684">
<font style="FONT-SIZE: 12px"><%=rsd("houseaddress")%></font></td>
</tr>
<tr>
<td bgcolor="#dee3e7" width="708" colspan="2">
</tr>
<%
rsd.MoveNext
wend
%>
<tr>
<td bgcolor="#dee3e7" width="708" colspan="2">
<input type="submit" name="b1" value="删除">
</td>
<input type="hidden" name="tbl" value="tblsecondhouse">
</td>
</form>
<%end if
rsd.Close%>
</tr>
<tr>
<td bgcolor="#006699" colspan="2" width="778"><font style="FONT-SIZE: 12px"
color="#ffffff" class="thtcolor">出租房列表</font><font
face="verdana, arial, helvetica" style="FONT-SIZE: 12px" color="#ffffff" class="thtcolor">.</font></td>
</tr>
<%
strsql="select hid,houseaddress from tbllease where uid=" & sqlstr(uid) & " order by hid desc"
rsd.Open strsql,conn,adOpenStatic
if rsd.EOF and rsd.BOF then
%>
<tr><td bgcolor="#DEE3E7" width="778" colspan="2">暂无信息！</td>
<%else%>
<%
while not rsd.EOF
%>
<form action="delhouse.asp" method="post" id=form1 name=form1>
<tr>
<td bgcolor="#DEE3E7" width="24"><input type="checkbox" name="hid" value="<%=rsd("hid")%>"></td>
<td bgcolor="#DEE3E7" width="684">
<font style="FONT-SIZE: 12px"><%=rsd("houseaddress")%></font></td>
</tr>
<tr>
<td bgcolor="#dee3e7" width="708" colspan="2">
</tr>
<%
rsd.MoveNext
wend
%>
<tr>
<td bgcolor="#dee3e7" width="708" colspan="2">
<input type="submit" name="b1" value="删除">
</td>
<input type="hidden" name="tbl" value="tbllease">
</td>
</form>
<%end if
rsd.Close%>
</tr>
<!-- *** -->
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center></div></td>
</tr>
</table>
</center></div></td>
</tr>
</table>
</body>
</html>
<!--#include file="footer.asp"-->
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -