newhouse_modi_ok.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 70 行

<%
If session("manager")="" Then
  Response.Redirect("manage.asp")
  Response.end
 End If
%><!--#include file="../inc/conn.asp"-->
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%
 housename=Trim(Request("housename"))
 Developer=Trim(Request("Developer"))
 area=Trim(Request("area"))
 hid=Trim(Request("hid"))
 mianji=Trim(Request("mianji"))
 beginprice=Trim(Request("beginprice"))
 avgprice=Trim(Request("avgprice"))
 houseaddress=Trim(Request("houseaddress"))
 busline=Trim(Request("busline"))
 selladdress=Trim(Request("selladdress"))
 sellhottel=Trim(Request("sellhottel"))
 linkman=Trim(Request("linkman"))
 sellfax=Trim(Request("sellfax"))
 email=Trim(Request("email"))
 Web=Trim(request("Web"))
 trafficstatus=Trim(Request("trafficstatus"))
 jianjie=Trim(Request("jianjie"))
 wzimg=Trim(Request("wzimgname"))
 xqimg=Trim(Request("xqimgname"))
 slimg=Trim(Request("slimgname"))
 fximg=Trim(Request("fximgname"))
 simg=Trim(Request("simgname"))
  liuhua=Trim(Request("liuhua"))
 rongji=Trim(Request("rongji"))
 wuye=Trim(Request("wuye"))
 yusou=Trim(Request("yusou"))

 bimg=Trim(Request("bimgname"))
 if simg="undefined" then
  simg=""
 end if
 if bimg="undefined" Then
  bimg=""
 End if
 simg=Replace(simg,vbcrlf,"")
 simg=Replace(simg," ","")
 'simg=Replace(simg,",","")
 bimg=Replace(bimg,vbcrlf,"")
 bimg=Replace(bimg," ","")
 'bimg=Replace(bimg,",","")
 OpenDataConn
  SQL = "update newhouse set housename='"&housename&"',Developer='"&Developer&"',area='"&area&"',mianji='"&mianji&"',beginprice='"&beginprice&"',avgprice='"&avgprice&"',houseaddress='"&houseaddress&"',busline='"&busline&"',selladdress='"&selladdress&"',sellhottel='"&sellhottel&"',linkman='"&linkman&"',sellfax='"&sellfax&"',email='"&email&"',Web='"&Web&"',trafficstatus='"&trafficstatus&"',jianjie='"&jianjie&"',wzimg='"&wzimg&"',xqimg='"&xqimg&"',slimg='"&slimg&"',fximg='"&fximg&"',simg='"&simg&"',liuhua='"&liuhua&"',rongji='"&rongji&"',wuye='"&wuye&"',yusou='"&yusou&"',bimg='"&bimg&"' where hid="&hid&""
  'response.write(sql)
  'response.end
  Conn.Execute(SQL)
 CloseDataConn
 Response.Redirect("newhouse_del.asp")
%>