📄 newhouse.asp
字号:
StrPhotoUrl=Trim(rs("slimg"))
if Instr(StrPhotoUrl,"@@@") >0 then
StrPhotoUrl=Split(StrPhotoUrl,"@@@")
for i=0 to Ubound(StrPhotoUrl)
%>
<option value="<%=StrPhotoUrl(i)%>"><%=StrPhotoUrl(i)%></option>
<%
Next
else
%>
<option value="<%=StrPhotoUrl%>"><%=StrPhotoUrl%></option>
<%end if%>
</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:431;height:91" size="2" ondblclick="return ModifyUrl('户型图','fximgname_s');">
<%
StrPhotoUrl=Trim(rs("fximg"))
if Instr(StrPhotoUrl,"@@@") >0 then
StrPhotoUrl=Split(StrPhotoUrl,"@@@")
for i=0 to Ubound(StrPhotoUrl)
%>
<option value="<%=StrPhotoUrl(i)%>"><%=StrPhotoUrl(i)%></option>
<%
Next
else
%>
<option value="<%=StrPhotoUrl%>"><%=StrPhotoUrl%></option>
<%end if%>
</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" value="<%=Trim(Rs("simg"))%>"></td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">
楼盘大图：</td>
<td height="24" colspan="3"><input name="bimgname" type="text" size="37" value="<%=Trim(Rs("bimg"))%>"></td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">
楼盘视频地址：</td>
<td height="24" colspan="3">
<input name="lpsp" type="text" size="40" value="<%=Trim(Rs("lpsp"))%>"></td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">开 发 商：</td>
<td height="24" colspan="3"> <input name="Developer" type="text" id="Developer" value="<%=Trim(Rs("Developer"))%>" size="40">
＊</td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">所在区域：</td>
<td width="29%" height="24"> <SPAN class=P9>
<%
OpenDataConn
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
strcyte=rscyte("cyte")%>
<option value="<%=strcyte%>" <%if rs("Area")=strcyte then Response.write("selected")%>><%=strcyte%></option>
<%
rscyte.movenext
loop
rscyte.close
set rscyte=nothing
%>
</select></FONT> </SPAN><font size="2"> </font>＊</td>
<td width="18%" height="24" align="center">占地面积：</td>
<td width="36%" height="24"><input name="mianji" type="text" id="mianji" value="<%=Trim(Rs("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" value="<%=Trim(Rs("beginprice"))%>" size="15">
元/M<sup>2</sup></td>
<td height="24" align="center">均 价：</td>
<td height="24"><input name="avgprice" type="text" id="avgprice" value="<%=Trim(Rs("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" value="<%=Trim(Rs("liuhua"))%>" size="15"></td>
<td height="24" align="center">容积率：</td>
<td height="24">
<input name="rongji" type="text" id="rongji" value="<%=Trim(Rs("rongji"))%>" size="15">(如：1.2)</td>
</tr>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">物业公司：</td>
<td height="24">
<input name="wuye" type="text" id="wuye" value="<%=Trim(Rs("wuye"))%>" size="15"></td>
<td height="24" align="center">预售证：</td>
<td height="24">
<input name="yusou" type="text" id="yusou" value="<%=Trim(Rs("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" value="<%=Trim(Rs("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" value="<%=Trim(Rs("busline"))%>" size="60"></td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">售楼地址：</td>
<td height="24"><input name="selladdress" type="text" id="selladdress" value="<%=Trim(Rs("selladdress"))%>" size="15">
＊</td>
<td height="24" align="center">售楼热线：</td>
<td height="24"><input name="sellhottel" type="text" id="sellhottel" value="<%=Trim(Rs("sellhottel"))%>" size="20">
＊</td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" align="center">联 系 人：</td>
<td height="24"><input name="linkman" type="text" id="linkman" value="<%=Trim(Rs("linkman"))%>" size="15">
＊</td>
<td height="24" align="center">传 真：</td>
<td height="24"><input name="sellfax" type="text" id="sellfax" value="<%=Trim(Rs("sellfax"))%>" size="20"></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" value="<%=Trim(Rs("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" value="<%=Trim(Rs("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"><%=bbHTMLDecode(Trim(Rs("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"><%=bbHTMLDecode(Trim(Rs("jianjie")))%></textarea>
＊</td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="24" colspan="4" align="center"><input name="hid" type="hidden" id="hid" value="<%=Trim(Rs("hid"))%>">
<input type="submit" name="Submit" value=" 修 改 ">
<input type="reset" name="Submit2" value=" 重 置 ">
</td>
</tr>
</form>
</table><%
Rs.Close
Set Rs=Nothing
CloseDataConn
end sub
sub saveedit
'建立上传对象
dim request2e
set request2e=New UpLoadClass
request2e.TotalSize=upload_t
request2e.MaxSize =upload_m
'允许上传的格式
request2e.FileType =uploadlx
'上传路径
request2e.SavePath= "../fyfile/"
request2e.open
wzimgname=request2e.Form("wzimgname")
xqimgname=request2e.Form("xqimgname")
slimgname=request2e.Form("slimgname")
fximgname=request2e.Form("fximgname")
simgname=request2e.Form("simgname")
bimgname=request2e.Form("bimgname")
UploadFiles=request2e.Form("UploadFiles")
hid=request2e.Form("hid")
'-------------------------------
set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * From newhouse where hid="&hid&""
rs.Open sql,Conn,1,3
strweb=LCase(request2e.Form("web"))
if left(strweb,7)<>"http://" then
strweb="http://"&strweb
end if
'***************************判断上传
if request2e.Error<>2 and request2e.Error<>1 and request2e.Error<>3 and request2e.Error<>4 then
rs("housename") =changechr(request2e.Form("housename"))
rs("Developer") =request2e.Form("Developer")
rs("area") =request2e.Form("area")
rs("mianji") =request2e.Form("mianji")
rs("beginprice") =request2e.Form("beginprice")
rs("avgprice") =request2e.Form("avgprice")
rs("houseaddress") =request2e.Form("houseaddress")
rs("busline") =request2e.Form("busline")
rs("selladdress") =request2e.Form("selladdress")
rs("sellhottel") =request2e.Form("sellhottel")
rs("linkman") =request2e.Form("linkman")
rs("sellfax") =request2e.Form("sellfax")
rs("email") =request2e.Form("email")
rs("trafficstatus") =dvHTMLEncode(changechr(request2e.Form("trafficstatus")))
rs("jianjie") =dvHTMLEncode(changechr(request2e.Form("jianjie")))
rs("wzimg") =wzimgname
rs("xqimg") =xqimgname
rs("slimg") =slimgname
rs("fximg") =fximgname
rs("simg") =simgname
rs("bimg") =bimgname
rs("liuhua") =request2e.Form("liuhua")
rs("rongji") =request2e.Form("rongji")
rs("wuye") =request2e.Form("wuye")
rs("yusou") =request2e.Form("yusou")
rs("lpsp") =request2e.Form("lpsp")
rs("uploadfiles") =UploadFiles
rs("Web") =strweb
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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -