📄 house.asp
字号:
<tr>
<td align="center" valign="top"><form name="form1" method="post" action="?action=del">
<table width="702" border="0" cellpadding="0" cellspacing="1" bgcolor="#E35B00">
<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="120" height="25" align="center" bgcolor="#D9F2D7" class="p13"><font color="#FF711B">房价</font></td>
<td width="47" 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="45" 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=RtnReplaceInt(Trim(request("xxlb")),0)
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"><%=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="120" align="center" bgcolor="#E7F7E6"><%=left(rs("jyprice"),15)%><%=rs("jgdw")%></td>
<td width="47" align="center" bgcolor="#E7F7E6">
<a href="?action=reset&id=<%=trim(rs("id"))%>">重发</a></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="45" align="center" bgcolor="#E7F7E6">
<a class="linkone" href="house_fabu.asp?action=edit&id=<%=trim(rs("id"))%>">修改</a></td>
</tr>
<%
rs.movenext
count=count+1
loop
rs.close
%>
<tr>
<td height="50" colspan="10" 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>
</TR>
</TBODY>
</TABLE>
<TABLE width=567 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD vAlign=top align=middle>
</TD>
</TR>
</TBODY>
</TABLE><%end sub%></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>
<%
sub del()
rcID= request.Form("id")
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 house where id=" &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 reset
strid=RtnReplaceInt(trim(request("id")),0)
set rsr=server.createobject("adodb.recordset")
sqlr="select * from house where userid='"&session("loginid")&"' and id="&strid
rsr.open sqlr,conn,3,3
rsr("dateandtime")=now()
rsr.update
rsr.close
end sub
CloseDataConn
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -