newhouse_add_ok.asp

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

<%
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"))
 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 wzimg="undefined" then
  wzimg=""
 end if
 if xqimg="undefined" Then
  xqimg=""
 End if
 if slimg="undefined" Then
  slimg=""
 End if
 if fximg="undefined" Then
  fximg=""
 End if
 if bimg="undefined" Then
  bimg=""
 End if
 if bimg="undefined" Then
  bimg=""
 End if
 wzimg=Replace(wzimg,vbcrlf,"")
 wzimg=Replace(wzimg," ","")
 'wzimg=Replace(wzimg,",","")
 xqimg=Replace(xqimg,vbcrlf,"")
 xqimg=Replace(xqimg," ","")
 'xqimg=Replace(xqimg,",","")
 slimg=Replace(slimg,vbcrlf,"")
 slimg=Replace(slimg," ","")
 'slimg=Replace(slimg,",","")
 fximg=Replace(fximg,vbcrlf,"")
 fximg=Replace(fximg," ","")
 'fximg=Replace(fximg,",","")
 simg=Replace(simg,vbcrlf,"")
 simg=Replace(simg," ","")
 'simg=Replace(simg,",","")
 bimg=Replace(bimg,vbcrlf,"")
 bimg=Replace(bimg," ","")
 'bimg=Replace(bimg,",","")
 OpenDataConn
sql = "insert into newhouse(housename,Developer,area,mianji,beginprice,avgprice,houseaddress,busline,selladdress,sellhottel,linkman,sellfax,email,Web,trafficstatus,jianjie,wzimg,xqimg,slimg,fximg,simg,liuhua,rongji,wuye,yusou,bimg) values('"&housename&"','"&Developer&"','"&area&"','"&mianji&"','"&beginprice&"','"&avgprice&"','"&houseaddress&"','"&busline&"','"&selladdress&"','"&sellhottel&"','"&linkman&"','"&sellfax&"','"&email&"','"&Web&"','"&trafficstatus&"','"&jianjie&"','"&wzimg&"','"&xqimg&"','"&slimg&"','"&fximg&"','"&simg&"','"&liuhua&"','"&rongji&"','"&wuye&"','"&yusou&"','"&bimg&"')"
  'response.write(sql)
 'response.end
Conn.Execute(sql)
 CloseDataConn
 Response.Redirect("newhouse_del.asp")
%>