📄 newhouse_fabu.asp
字号:
<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"><iframe style="top:2px" ID="UpFile" src="../inc/Upload.asp?Type=7&Obj=slimgname_s&TObj=TempUploadFiles" frameborder=0 scrolling=no width="100%" height="27"></iframe></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"><iframe style="top:2px" ID="UpFile" src="../inc/Upload.asp?Type=8&Obj=fximgname_s&TObj=TempUploadFiles" frameborder=0 scrolling=no width="100%" height="27"></iframe></td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">
楼盘小图(必填)：</td>
<td height="24" colspan="3"><input name="simgname" type="text" size="37"><iframe style="top:2px" ID="UpFile" src="../inc/Upload.asp?Type=0&Obj=simgname&TObj=TempUploadFiles" frameborder=0 scrolling=no width="341" height="27"></iframe>＊</td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">
楼盘大图：</td>
<td height="24" colspan="3"><input name="bimgname" type="text" size="37"><iframe style="top:2px" ID="UpFile" src="../inc/Upload.asp?Type=0&Obj=bimgname&TObj=TempUploadFiles" frameborder=0 scrolling=no width="341" height="27"></iframe>＊</td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center" colspan="2">
已上传<br><input type="hidden" name="UploadFiles" value="">
<select name="TempUploadFiles" style="width:259;height:117" size="2" onclick="doPreview('TempUploadFiles','<%=WebDir%>','<%=UploadDir%>')"></select><br>
<input type="button" name="SetDefaultPic" value="设为位置图" onClick="SetPicUrl('TempUploadFiles','wzimgname');" style="background-color: #000080">
<input type="button" name="SetDefaultPic" value="设为楼盘小图" onClick="SetPicUrl('TempUploadFiles','simgname');" style="background-color: #00FF00">
<input type="button" name="SetDefaultPic" value="设为楼盘大图" onClick="SetPicUrl('TempUploadFiles','bimgname');" style="background-color: #800000">
</td>
<td height="24" align="center" colspan="2">
<fieldset style="height:90px; width:184px">
<legend>预览</legend>
<table border=0 cellpadding=0 cellspacing=1 width="180" height="90" valign=top>
<tr><td align=center valign=middle id=tdPreview height="90%">
</td></tr>
</table>
</fieldset>
</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("userid") =session("loginid")
rs("Web") =strweb
Select case clng(newhousesh)
Case clng(1)
rs("sh")=1
Case else
rs("sh")=0
End Select
rs("uploadfiles") =UploadFiles
rs.Update
rs.Close
set rs = nothing
conn.close
set conn=nothing
end if
set request2=nothing
Select case clng(newhousesh)
Case clng(1)
Response.write"<script>alert('恭喜你，楼盘添加成功！');location.href='../'</script>"
Response.end
Case else
Response.write"<script>alert('请等待管理员的审核！');location.href='../'</script>"
Response.end
End Select
end sub
%></TD>
<TD width=1 bgColor=#d7d7d7></TD>
</TR>
</TBODY>
</TABLE>
<TABLE width=970 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD vAlign=top align=middle>
</TD>
</TR>
</TBODY>
</TABLE></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><div align="center">
<!--#include file="../end.asp" -->
</div></td>
</tr>
</table>
</body>
</html>
<%
CloseDataConn
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -