house_modi.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 459 行 · 第 1/2 页
ASP
459 行
<!--#include file="../inc/conn.asp"-->
<%
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：176189168 │
'│ │
'│ Email：fy96@163.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│ │
'└─────────────────── http://www.fyasp.com ──┘
%>
<%
If session("manager")="" Then
Response.Redirect("manage.asp")
Response.end
End If
%>
<html>
<!-- DW6 -->
<script language="javascript" src="../fyfile/ResExplore.js"></script>
<script language="JavaScript">
//资源管理器所在的具体目录
ResourceExplorePath="../fyfile/ResourceExplore.asp";
/*
参数说明：
自定义函数(返回的资源记录ID,资源名题,原始文件名称,最后更新时间)
*/
function bb(Id,fTitle,fName,fDate)
{
//请在下面添加你的代码
form2.imgname.value="OpenFile01.asp?pID="+Id;
}
</script>
<!-- 结束 -->
<script language="JavaScript">
/*
当操用户选择"资源管理器中的文件项目后便激发默认的返回函数：OnResWinReturn()"
参数说明：
OnResWinRecurn(返回的资源记录ID,资源名题,原始文件名称,最后更新时间)
*/
function OnResWinReturn(Id,fTitle,fName,fDate)
{
//请在下面添加你的代码
alert("你选择的文件信息如下：\n资源ID："+Id+"\n资源标题："+fTitle+"\n资源文件名："+fName+"\n资源更新时间："+fDate);
}
</script>
<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">
<%
id=trim(request("id"))
if id="" then
'response.end
end if
opendataconn
set rs=server.createobject("adodb.recordset")
sql="select * from house where id="&id&""
rs.open sql,conn,1,1
if not rs.eof then
%>
<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 background="../images/httable_02.gif" height="268"><table width="88%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<form action="house_modi_save.asp" name="form2" method="post">
<tr bgcolor="#585858">
<td height="25" colspan="2" align="center"> 房 产 信 息 修
改</td>
</tr>
<tr bgcolor="#585858">
<td width="18%" height="24" align="justify">信息类别：</td>
<td height="24"> <select name="xxlb" id="select9">
<option value="<%=trim(rs("xxlb"))%>">
<%
xxlb_1=trim(rs("xxlb"))
%>
<!--#include file="xxlb.asp"-->
</option>
<option value="1">出租</option>
<option value="2">求租</option>
<option value="3">求购</option>
<option value="4">出售</option>
<option value="5">合租</option>
<option value="6">置换</option>
</select>
<font color="#FF6600">＊</font></td>
</tr>
<tr bgcolor="#585858">
<td height="24" align="justify">方 位：</td>
<td height="24">
<%
set rscyte=server.CreateObject("adodb.recordset")
sqlcyte = "select * from cyte"
rscyte.Open sqlcyte,conn,1,1
%>
<select name="fangwei" id="select11" class="inp">
<option value="">-- 请选择 --</option>
<%do while not rscyte.eof%>
<option value="<%=rscyte("cyte")%>" selected><%=rscyte("cyte")%></option>
<%
rscyte.movenext
loop
rscyte.close
set rscyte=nothing
%>
</select></td>
</tr>
<tr bgcolor="#585858">
<td height="24" align="justify">
<p align="justify">小区或地段：</td>
<td height="24">
<input name="area" type="text" id="area3" value="<%=trim(rs("area"))%>" size="20"> </td>
</tr>
<tr bgcolor="#585858">
<td height="24" align="justify">总层次：</td>
<td height="24"> <SELECT name=zcenci size=1 id="select12"
style="FONT-SIZE: 9pt; WIDTH: 100px" tabIndex=5>
<OPTION value=<%=trim(rs("zcenci"))%>><%=trim(rs("zcenci"))%></OPTION>
<OPTION value=不限>不限</OPTION>
<OPTION value=1层>1层</OPTION>
<OPTION value=2层>2层</OPTION>
<OPTION value=3层>3层</OPTION>
<OPTION
value=4层>4层</OPTION>
<OPTION value=5层>5层</OPTION>
<OPTION
value=6层>6层</OPTION>
<OPTION value=7层>7层</OPTION>
<OPTION
value=8层>8层</OPTION>
<OPTION value=9层>9层</OPTION>
<OPTION
value=10层>10层</OPTION>
<OPTION value=11层>11层</OPTION>
<OPTION
value=12层>12层</OPTION>
<OPTION value=13层>13层</OPTION>
<OPTION
value=14层>14层</OPTION>
<OPTION value=15层>15层</OPTION>
<OPTION
value=16层>16层</OPTION>
<OPTION value=17层>17层</OPTION>
<OPTION
value=18层>18层</OPTION>
<OPTION value=19层>19层</OPTION>
<OPTION
value=20层>20层</OPTION>
<OPTION value=20层以上>20层以上</OPTION>
</SELECT>
</td>
</tr>
<tr bgcolor="#585858">
<td height="24" align="justify">所在层次：</td>
<td height="24"><SELECT name=cenci size=1 id="cenci"
style="FONT-SIZE: 9pt; WIDTH: 100px" tabIndex=6>
<OPTION value=<%=trim(rs("cenci"))%>><%=trim(rs("cenci"))%></OPTION>
<OPTION value=不限>不限</OPTION>
<OPTION value=1层>1层</OPTION>
<OPTION value=2层>2层</OPTION>
<OPTION value=3层>3层</OPTION>
<OPTION
value=4层>4层</OPTION>
<OPTION value=5层>5层</OPTION>
<OPTION
value=6层>6层</OPTION>
<OPTION value=7层>7层</OPTION>
<OPTION
value=8层>8层</OPTION>
<OPTION value=9层>9层</OPTION>
<OPTION
value=10层>10层</OPTION>
<OPTION value=11层>11层</OPTION>
<OPTION
value=12层>12层</OPTION>
<OPTION value=13层>13层</OPTION>
<OPTION
value=14层>14层</OPTION>
<OPTION value=15层>15层</OPTION>
<OPTION
value=16层>16层</OPTION>
<OPTION value=17层>17层</OPTION>
<OPTION
value=18层>18层</OPTION>
<OPTION value=19层>19层</OPTION>
<OPTION
value=20层>20层</OPTION>
<OPTION value=20层以上>20层以上</OPTION>
<OPTION
value=储藏间>储藏间</OPTION>
<OPTION value=地下室>地下室</OPTION>
<OPTION
value=平卧>平卧</OPTION>
<OPTION value=整栋楼>整栋楼</OPTION>
<OPTION value=不限>不限</OPTION>
</SELECT>
</td>
</tr>
<tr bgcolor="#585858">
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?