📄 newhouse.asp
字号:
<tr bgcolor="#F3F3F3">
<td height="29" align="center">
室内实景：</td>
<td height="29" colspan="3"><input type="hidden" name="slimgname" value="">
<select name='slimgname_s' style='width:389;height:78' size='2' ondblclick="return ModifyUrl('室内实景','slimgname_s');"></select><br>
<input type="button" name="addurl" value="添加地址" onclick="AddUrl('室内实景','slimgname_s');">
<input type="button" name="addurl" value="修改当前地址" onclick="ModifyUrl('室内实景','slimgname_s');">
<input type="button" name="addurl" value="删除当前地址" onclick="DelUrl('室内实景','slimgname_s');">
<input type="button" name="upurl" value="↑" onclick="UpUrl('室内实景','slimgname_s');">
<input type="button" name="downurl" value="↓" onclick="DownUrl('室内实景','slimgname_s');"></td>
</tr> <tr bgcolor="#F3F3F3">
<td height="29" align="center">
上传图片：</td>
<td height="29" colspan="3">免费版无上传功能,请输入图片绝对地址</td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="23" align="center">
户型图：</td>
<td height="23" colspan="3"><input type="hidden" name="fximgname" value="">
<select name='fximgname_s' style='width:389;height:78' size='2' ondblclick="return ModifyUrl('户型图','fximgname_s');"></select><br>
<input type="button" name="addurl" value="添加地址" onclick="AddUrl('户型图','fximgname_s');">
<input type="button" name="addurl" value="修改当前地址" onclick="ModifyUrl('户型图','fximgname_s');">
<input type="button" name="addurl" value="删除当前地址" onclick="DelUrl('户型图','fximgname_s');">
<input type="button" name="upurl" value="↑" onclick="UpUrl('户型图','fximgname_s');">
<input type="button" name="downurl" value="↓" onclick="DownUrl('户型图','fximgname_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 name="simgname" type="text" size="37">＊</td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">
楼盘大图：</td>
<td height="24" colspan="3"><input name="bimgname" type="text" size="37">＊</td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">
楼盘视频地址：</td>
<td height="24" colspan="3">
<input name="lpsp" type="text" size="40"></td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="23" align="center">
开 发 商：</td>
<td height="23" colspan="3"> <input name="Developer" type="text" id="Developer" size="40">
＊</td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="25" align="center">
所在区域：</td>
<td width="27%" height="25"> <SPAN class=P9>
<%
set rscyte=server.CreateObject("adodb.recordset")
sqlcyte = "select * from cyte"
rscyte.Open sqlcyte,conn,1,1
%>
<FONT color=#FFCC00>
<select name="area" id="id" 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 size="2"> </font>＊</td>
<td width="18%" height="25" align="center">占地面积：</td>
<td width="36%" height="25"><input name="mianji" type="text" id="mianji" size="15">
M<sup>2</sup>＊</td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">
起 价：</td>
<td height="24">
<input name="beginprice" type="text" id="beginprice" size="10">
元/M<sup>2</sup>＊</td>
<td height="24" align="center">均 价：</td>
<td height="24"><input name="avgprice" type="text" id="avgprice" size="15">
元/M<sup>2</sup>＊</td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">
绿 化 率：</td>
<td height="24">
<input name="liuhua" type="text" id="liuhua" size="15"></td>
<td height="24" align="center">容 积 率：</td>
<td height="24">
<input name="rongji" type="text" id="rongji" size="15">(如:1.2)</td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">
物业公司：</td>
<td height="24">
<input name="wuye" type="text" id="wuye" size="15"></td>
<td height="24" align="center">预售证：</td>
<td height="24">
<input name="yusou" type="text" id="yusou" size="15"></td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">
详细地址：</td>
<td height="24" colspan="3"><input name="houseaddress" type="text" id="houseaddress" size="50">
＊</td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">
公交路线：</td>
<td height="24" colspan="3">
<input name="busline" type="text" id="busline" size="59"></td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">
售楼地址：</td>
<td height="24"><input name="selladdress" type="text" id="selladdress" size="15">
＊</td>
<td height="24" align="center">售楼热线：</td>
<td height="24"><input name="sellhottel" type="text" id="sellhottel" size="15">
＊</td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">
联 系 人：</td>
<td height="24"><input name="linkman" type="text" id="linkman" size="15">
＊</td>
<td height="24" align="center">传 真：</td>
<td height="24"><input name="sellfax" type="text" id="sellfax" size="15"></td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="26" align="center">
E-Mail：</td>
<td height="26" colspan="3"> <input name="email" type="text" id="email" size="50">
</td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="26" align="center">
网 址：</td>
<td height="24" colspan="3"><input name="Web" type="text" id="Web" size="40"></td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="65" align="center">
交通状况：</td>
<td height="24" colspan="3"><textarea name="trafficstatus" cols="47" rows="3" id="trafficstatus"></textarea></td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="120" align="center">
楼盘简介：</td>
<td height="24" colspan="3"><textarea name="jianjie" cols="47" rows="7" id="jianjie"></textarea>
＊</td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" colspan="4" align="center">
<input type="Submit" name="Submit" value=" 添 加 ">
<input type="reset" name="Submit2" value=" 重 置 ">
</td>
</tr>
</table></form>
<%end sub
sub saveadd
'建立上传对象
dim request2
set request2=New UpLoadClass
request2.TotalSize=upload_t
request2.MaxSize =upload_m
'允许上传的格式
request2.FileType =uploadlx
'上传路径
request2.SavePath= "../fyfile/"
request2.open
wzimgname=request2.Form("wzimgname")
xqimgname=request2.Form("xqimgname")
slimgname=request2.Form("slimgname")
fximgname=request2.Form("fximgname")
simgname=request2.Form("simgname")
bimgname=request2.Form("bimgname")
UploadFiles=request2.Form("UploadFiles")
set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * From newhouse "
rs.Open sql,Conn,1,3
strweb=LCase(request2.Form("web"))
if left(strweb,7)<>"http://" then
strweb="http://"&strweb
end if
'***************************判断上传
if request2.Error<>2 and request2.Error<>1 and request2.Error<>3 and request2.Error<>4 then
rs.AddNew
rs("housename") =changechr(Request2.Form("housename"))
rs("Developer") =Request2.Form("Developer")
rs("area") =Request2.Form("area")
rs("mianji") =Request2.Form("mianji")
rs("beginprice") =Request2.Form("beginprice")
rs("avgprice") =Request2.Form("avgprice")
rs("houseaddress") =changechr(Request2.Form("houseaddress"))
rs("busline") =Request2.Form("busline")
rs("selladdress") =changechr(Request2.Form("selladdress"))
rs("sellhottel") =Request2.Form("sellhottel")
rs("linkman") =Request2.Form("linkman")
rs("sellfax") =Request2.Form("sellfax")
rs("email") =Request2.Form("email")
rs("trafficstatus") =dvHTMLEncode(changechr(Request2.Form("trafficstatus")))
rs("jianjie") =dvHTMLEncode(changechr(Request2.Form("jianjie")))
rs("wzimg") =wzimgname
rs("xqimg") =xqimgname
rs("slimg") =slimgname
rs("fximg") =fximgname
rs("simg") =simgname
rs("bimg") =bimgname
rs("liuhua") =Request2.Form("liuhua")
rs("rongji") =Request2.Form("rongji")
rs("wuye") =changechr(Request2.Form("wuye"))
rs("yusou") =Request2.Form("yusou")
rs("lpsp") =changechr(Request2.Form("lpsp"))
rs("sh")=1
rs("Web") =strweb
rs("uploadfiles") =UploadFiles
rs.Update
rs.Close
set rs = nothing
conn.close
set conn=nothing
end if
set request2=nothing
Response.write"<script>alert('添加成功！');location.href='Newhouse.asp'</script>"
Response.end
end sub
sub list
%><div align="center">
<table width="559" height="39" border="0" cellpadding="0" cellspacing="0">
<form name="form1" method="post" action="newhouse.asp">
<tr>
<td> <img src="../images/icon_search.gif" width="15" height="15"><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>
<select name="area" id="id" 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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -