hs.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 320 行 · 第 1/2 页
ASP
320 行
<!--#include file="../inc/conn.asp"--><%
If session("manager")="" Then
Response.Redirect("manage.asp")
Response.end
End If
%>
<%
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：176189168 │
'│ │
'│ Email：fy96@163.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│ │
'└─────────────────── http://www.fyasp.com ──┘
fyaction=request("fyaction")
OpenDataConn
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
%>
<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" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body bgcolor="#666666" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!-- ImageReady Slices (index.psd) -->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="../images/ht_01.gif" width=778 height=62 usemap="#Map" border="0"></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" background="../images/htbj.gif">
<tr>
<td valign="top" align="left" width="145" height="395">
<!--#include file="List.asp" -->
</td>
<td height="395" align="center" valign="top"> <br> <table width="621" border="0" cellspacing="0" cellpadding="0" height="98">
<tr>
<td align="center" valign="top"> <table width="606" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="../images/httable_01.gif" width=606 height=17></td>
</tr>
<tr>
<td height="268" align="center" valign="top" background="../images/httable_02.gif"><table width="559" height="39" border="0" cellpadding="0" cellspacing="0">
<form name="form1" method="post" action="hs.asp">
<tr>
<td> <img src="../images/icon_search.gif" width="15" height="15"><FONT color="#FFCC00"
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 color="#FFCC00"
size=2>区域</FONT> <FONT color=#FFCC00> </FONT><FONT color=#FFCC00><SPAN class=P9><FONT color=red>
<%
set rscyte=server.CreateObject("adodb.recordset")
sqlcyte = "select * from cyte"
rscyte.Open sqlcyte,conn,1,1
%>
<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></SPAN></FONT><font color="#FFCC00" size="2"> </font><FONT color="#FFCC00"
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 size=2>地段</FONT></font> <font color="#FFCC00">
<input name="area" type="text" id="area" size="10">
</font> <font color="#FFCC00">
<input type="submit" name="Submit" value="搜索">
</font> <font color="#FFCC00"> </font></td>
</tr>
</form>
</table>
<form name="form2" method="post" action="hs_del.asp">
<table border="0" width="576" cellspacing="1" cellpadding="0">
<tr bgcolor="#999999" class="p13">
<td width="27" align="center"> </td>
<td width="45" align="center">类别</td>
<td width="62" 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>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?