📄 newhouse.asp
字号:
</select></FONT> </SPAN><font size="2">价格</font>
<input name="price1" type="text" id="price1" size="3">-<input name="price2" type="text" id="price2" size="3"><font size="2">元/m<sup>2 </sup>楼盘</font><font color="#FFCC00"><input name="houseName" type="text" id="houseName" size="8"></font>
开发商
<font color="#FFCC00">
<input name="developer" type="text" id="developer" size="8"></font> <font color="#FFCC00">
<input type="submit" name="Submit" value="搜">
</font></td>
</tr>
</form>
</table></div>
<div align="center">
<table border="0" width="95%" cellspacing="1" cellpadding="0">
<form name="form22" method="post" action="?action=del">
<tr bgcolor="#AABFEC">
<td width="4%" align="center" height="25"> </td>
<td width="17%" align="center">楼盘名称</td>
<td width="12%" align="center">区域</td>
<td width="13%" align="center">均价(元/m<sup>2</sup>)</td>
<td width="20%" align="center">开发商</td>
<td width="12%" align="center">登记时间</td>
<td width="8%" align="center">
状态</td>
<td width="8%" align="center"> </td>
<td width="5%" align="center"> </td>
</tr>
<%
userid=session("loginid")
dim curpage
if request("curpage")="" then
curpage=1
else
curpage=request("curpage")
end if
const numperpage=15
area=changechr(request("area"))
developer=changechr(request("developer"))
HouseName=changechr(request("HouseName"))
price1=changechr(request("price1"))
price2=changechr(request("price2"))
lx=changechr(request("lx"))
set rs=server.createobject("adodb.recordset")
sql="select * from NewHouse where hid is not null "
if price1<>"" then
sql=sql & " and beginprice>="&price1&" or avgprice>="&price1&""
end if
if price2<>"" then
sql=sql & " and beginprice>="&price2&" or avgprice<="&price2&""
end if
if developer<>"" then
sql=sql & " and developer like '%"&developer&"%'"
end if
if lx="tj" then
sql=sql & " and tj='1' "
end if
if HouseName<>"" then
sql=sql & " and HouseName like '%"&HouseName&"%'"
end if
if area<>"" then
sql=sql & " and area like '%"&area&"%'"
end if
sql=sql & " order by dateandtime desc "
rs.open sql,conn,1,1
if rs.eof then
response.write "<table><tr><td><br></br><center>现在还没有记录！</center><br></br></td></tr></table>"
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
hid=rs("hid")
%>
<tr bgcolor="#F3F3F3">
<td align="center" height="25"> <input name="hid" type="checkbox" class="mul2" id="hid" value="<%=hid%>">
</td>
<td align="center"> <a href="../house/newhouse_detail2.asp?HID=<%=hid%>" target="_blank"><%=Trim(rs("HouseName"))%></a></td>
<td align="center"><%=left(trim(rs("area")),4)%></td>
<td align="center"><%=Trim(rs("avgprice"))%></td>
<td align="center"><%=left(rs("developer"),6)%></td>
<td align="center"><%=formattime(rs("Dateandtime"),4)%></td>
<td align="center">
<%if rs("sh") = 1 then%><a href='?fyaction=sh1&HID=<%=Rs("HID")%>' title=取消审核 onclick="{if(confirm('确定取消审核吗?')){return true;}return false;}">已审</a> <%else%>
<a href='?fyaction=sh&HID=<%=Rs("HID")%>' onclick="{if(confirm('确定审核此信息吗?')){return true;}return false;}" title=审核信息> 未审</a><%end if%> </td>
<td align="center">
<%If rs("Tj")="1" then%>
<a href="?action=tj&ID=<%=hid%>&set=0">
已推荐</a>
<%else%>
<a href="?action=tj&ID=<%=hid%>&set=1">
推荐
</a>
<%end if%>
</td>
<td align="center"><a href="?action=edit&Hid=<%=Trim(rs("HID"))%>">修改</a></td>
</tr>
<%
rs.movenext
count=count+1
loop
rs.close
set rs=nothing
closedataconn
%>
<tr class="p13">
<td height="50" colspan="9" align="center">
<div align="center">
<% if cint(curpage)<>1 then %>
<a href="newhouse.asp?tj=<%=lx%>&curpage=1&area=<%=area%>&developer=<%=developer%>&HouseName=<%=HouseName%>&price1=<%=price1%>">首页 </a>
<% else %>
首页
<% end if %>
<% if cint(curpage)>1 then %>
<a href="newhouse.asp?tj=<%=lx%>&curpage=<%=curpage-1%>&area=<%=area%>&developer=<%=developer%>&HouseName=<%=HouseName%>&price1=<%=price1%>">上一页 </a>
<% else %>
上一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
<a href="newhouse.asp?tj=<%=lx%>&curpage=<%=curpage+1%>&area=<%=area%>&developer=<%=developer%>&HouseName=<%=HouseName%>&price1=<%=price1%>"> 下一页
<% else %>
下一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
</a><a href="newhouse.asp?tj=<%=lx%>&curpage=<%=totalpages%>&area=<%=area%>&developer=<%=developer%>&HouseName=<%=HouseName%>&price1=<%=price1%>"> 末页
<% else %>
末页
<% end if %>
</a> 第<%=curpage%>页/共<%=totalpages%>页
<input type="submit" value=" 删 除 " name="B12" onclick="return doDelete()">
</div></td>
</tr>
</form>
</table></div>
<SCRIPT language=javascript>
function doDelete()
{
if(confirm("确定要删除吗？删除后不可恢复！"))
{
return true;
}
else
{
return false;
}
}
</SCRIPT> <%
end sub
sub del()
rcID= request.Form("hid")
if rcID="" then
response.write"<script>alert('选择要删除的文件！');history.go(-1)</script>"
response.end
end if
if instr(rcID,",")>0 then
dim idArr,i
idArr=split(rcID,",")
for i = 0 to ubound(idArr)
call Delinfo(clng(idArr(i)))
'删除结束
next
else
call Delinfo(clng(rcID))
end if
end sub
sub Delinfo(ID)
sqlDel="select * from newhouse where hid=" &ID
Set rsDel= Server.CreateObject("ADODB.Recordset")
rsDel.open sqlDel,conn,1,3
'开始删除信息上传的图片
ssD_SavePathFileName=rsDel("uploadfiles")
if ssD_SavePathFileName<>"" then
ssD_SavePathFileName=replace(ssD_SavePathFileName,"||","|")
if ssD_SavePathFileName<>"" then
' 把带"|"的字符串转为数组
aSavePathFileName = Split(ssD_SavePathFileName, "|")
' 删除新闻相关的文件，从文件夹中
For i = 0 To UBound(aSavePathFileName)
' 按路径文件名删除文件
Call fy_DelFiles(aSavePathFileName(i))
Next
end if
'删除结束
end if
rsDel.delete
rsDel.update
rsDel.close
set rsDel=nothing
end sub
sub tj
Sql = "Update Newhouse Set Tj="&Request("set")&" where HID="&Request("ID")&""
Conn.Execute(Sql)
Response.write"<script>alert('操作成功！');location.href='Newhouse.asp'</script>"
Response.end
end sub
sub edit
Hid = Request("Hid")
If Hid="" Then
Response.end
End if
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open"select * from newhouse where Hid="&Hid&"",conn,1,1
%><table width="88%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<form action="?action=saveedit" name="myform" onSubmit="return CheckForm();" method="post" enctype="multipart/form-data">
<input type="hidden" name="UploadFiles" value="">
<tr bgcolor="#F3F3F3">
<td height="25" colspan="4" align="center"> 楼 盘 修 改</td>
</tr>
<tr bgcolor="#F3F3F3">
<td width="17%" height="24" align="center">楼盘名称：</td>
<td height="24" colspan="3"> <input name="housename" type="text" id="housename" value="<%=Trim(Rs("housename"))%>" size="30">
＊</td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">
位 置 图：</td>
<td height="24" colspan="3">
<input name="wzimgname" type="text" size="37" value="<%=Trim(Rs("wzimg"))%>"></td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">
小区环境：</td>
<td height="24" colspan="3"><input type="hidden" name="xqimgname" value="">
<select name="xqimgname_s" style="width:406;height:91" size="2" ondblclick="return ModifyUrl('小区环境','xqimgname_s');">
<%
StrPhotoUrl=Trim(rs("xqimg"))
if Instr(StrPhotoUrl,"@@@") >0 then
StrPhotoUrl=Split(StrPhotoUrl,"@@@")
for i=0 to Ubound(StrPhotoUrl)
%>
<option value="<%=StrPhotoUrl(i)%>"><%=StrPhotoUrl(i)%></option>
<%
Next
else
%>
<option value="<%=StrPhotoUrl%>"><%=StrPhotoUrl%></option>
<%end if%>
</select><br>
<input type="button" name="addurl" value="添加图片地址" onclick="AddUrl('图片地址','xqimgname_s');">
<input type="button" name="addurl" value="修改当前地址" onclick="ModifyUrl('图片地址','xqimgname_s');">
<input type="button" name="addurl" value="删除当前地址" onclick="DelUrl('图片地址','xqimgname_s');">
<input type="button" name="upurl" value="↑" onclick="UpUrl('图片地址','xqimgname_s');">
<input type="button" name="downurl" value="↓" onclick="DownUrl('图片地址','xqimgname_s');"></td>
</tr> <tr bgcolor="#F3F3F3">
<td height="29" align="center">
上传图片：</td>
<td height="29" colspan="3">免费版无上传功能,请输入图片绝对地址</td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">
室类实景：</td>
<td height="24" colspan="3"><input type="hidden" name="slimgname" value="">
<select name="slimgname_s" style="width:425;height:91" size="2" ondblclick="return ModifyUrl('室类实景','slimgname_s');">
<%
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -