📄 house.asp
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp"-->
<!--#include file="../inc/config.inc"-->
<!--#include file="fyasp_mange_check.asp"-->
<%
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：185623333 │
'│ │
'│ Email：fy96@163.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│ │
'└─────────────────── http://www.fyasp.com ──┘
opendataconn
action=request("action")
tj=request("tj")
fyaction=request("fyaction")
if fyaction<>"" then
strid=cint(request("id"))
set rs=server.createobject("adodb.recordset")
sql="select * from house where id="&strid
rs.open sql,conn,3,3
if fyaction="sh1" then
rs("sh")="0"
else
rs("sh")="1"
end if
rs.update
rs.close
end if
if tj<>"" then
strid=cint(request("id"))
set rs=server.createobject("adodb.recordset")
sql="select * from house where id="&strid
rs.open sql,conn,3,3
if tj="1" then
rs("tj")="1"
else
rs("tj")="0"
end if
rs.update
rs.close
end if
%>
<html>
<head>
<title>后台管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../ht.css" type="text/css">
<script language="javascript">
function CheckAll()
{
for (var i=0;i<document.form2.elements.length;i++)
{
document.form2.elements[i].checked=document.form2.chkall.checked
}
}
</script>
</head>
<body bgcolor="#d6dff7" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="../inc/top.asp" -->
<br>
<%
if session("house")="1" then
Select case action
Case "del"
call del
Case "add"
call add
Case "saveadd"
call saveadd
Case "edit"
call edit
Case "saveedit"
call saveedit
Case "tj"
call tj
Case else
call list
End Select
else
Response.Write "权限不足!"
Response.end
end if
sub list
%>
<div align="center">
<table width="80%" height="39" border="0" cellpadding="0" cellspacing="0">
<form name="form1" method="post" action="house.asp">
<tr>
<td> <img src="../images/icon_search.gif" width="15" height="15"><FONT
size=2>类别</FONT> <FONT color=#FFCC00>
<SELECT
name=xxlb id="xxlb" style="WIDTH: 82px">
<OPTION value="" selected>请选择</OPTION>
<OPTION
value=4>出售</OPTION>
<OPTION value=求购>求购</OPTION>
<OPTION
value=1>出租</OPTION>
<OPTION value=2>求租</OPTION>
<OPTION
value=6>置换</OPTION>
<OPTION value=5>合租</OPTION>
<OPTION value=3>求购</OPTION>
</SELECT></FONT> <FONT
size=2>区域</FONT> <SPAN class=P9>
<%
set rscyte=server.CreateObject("adodb.recordset")
sqlcyte = "select * from cyte"
rscyte.Open sqlcyte,conn,1,1
%>
<FONT color=#FFCC00><FONT color=red>
<select name="fangwei" id="fangwei" class="inp">
<option value="">请选择</option>
<%do while not rscyte.eof%>
<option value="<%=rscyte("cyte")%>"><%=rscyte("cyte")%></option>
<%
rscyte.movenext
loop
rscyte.close
set rscyte=nothing
%>
</select></FONT> </FONT></SPAN><font size="2"> 类型</font> <font color="#FFCC00">
<SELECT name=fclx id="fclx" style="WIDTH: 82px">
<OPTION
value="" selected>请选择</OPTION>
<OPTION value=单人间>单人间</OPTION>
<OPTION value=一室一卫>一室一卫</OPTION>
<OPTION value=一室一厅>一室一厅</OPTION>
<OPTION value=二室户>二室户</OPTION>
<OPTION value=二室一厅>二室一厅</OPTION>
<OPTION value=二室二厅>二室二厅</OPTION>
<OPTION value=三室户>三室户</OPTION>
<OPTION value=三室一厅>三室一厅</OPTION>
<OPTION value=三室二厅>三室二厅</OPTION>
<OPTION value=四室户>四室户</OPTION>
<OPTION value=四室一厅>四室一厅</OPTION>
<OPTION value=四室二厅>四室二厅</OPTION>
<OPTION value=四室三厅>四室三厅</OPTION>
<OPTION value=五室一厅>五室一厅</OPTION>
<OPTION value=五室二厅>五室二厅</OPTION>
<OPTION value=五室三厅>五室三厅</OPTION>
<OPTION value=跃层楼>跃层楼</OPTION>
<OPTION value=复式>复式</OPTION>
<OPTION value=公寓楼>公寓楼</OPTION>
<OPTION value=别墅>别墅</OPTION>
<OPTION value=写字楼>写字楼</OPTION>
<OPTION value=厂房>厂房</OPTION>
<OPTION value=店面>店面</OPTION>
<OPTION
value=储藏间>储藏间</OPTION>
<OPTION value=地下室>地下室</OPTION>
<OPTION
value=整栋楼>整栋楼</OPTION>
<OPTION value=其它>其它</OPTION>
</SELECT></font>
<FONT size=2>地段</FONT> <font color="#FFCC00">
<input name="area" type="text" id="area" size="10">
<input type="submit" name="Submit" value="搜索">
</font></td>
</tr>
</form>
</table>
</div>
<br><form name="form2" method="post" action="?action=del">
<div align="center">
<table border="0" width="95%" cellspacing="1" cellpadding="0">
<tr bgcolor="#AABFEC">
<td width="27" align="center" height="26"> </td>
<td width="45" align="center">类别</td>
<td width="62" align="center">区域</td>
<td width="73" align="center">户型</td>
<td width="68" align="center">地段名</td>
<td width="103" align="center">登记时间</td>
<td width="42" align="center">状态</td>
<td width="42" align="center">推荐</td>
<td width="43" align="center">编辑</td>
<td width="43" align="center">浏览</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"))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -