house_fabu_save.asp

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

<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/UpLoadClass.asp"-->
<%
opendataconn
if session("loginid")="" then
response.redirect "login.asp"
response.end
end if
function douhao(kk)
douhao="'" & replace(kk,"'","''") & "'"
end function

Server.ScriptTimeout=999
'建立上传对象
dim request2
set request2=New UpLoadClass
	'上传总大小为2M
	request2.TotalSize= 2097152
	'单文件最大1M
	request2.MaxSize  = 1048576
'允许上传的格式
request2.FileType = "jpg/gif/bmp/png"
'上传路径
request2.SavePath= "../uppic/"
request2.open
pic=request2.Form("pic")
'***************************判断上传
	if request2.Error=4 then
response.write"<SCRIPT language=JavaScript>alert('图片大小超过限制，上传失败！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
	end if
	if request2.Error=2 then
response.write"<SCRIPT language=JavaScript>alert('类型有误！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
end if

userid=session("loginid")
xxlb=douhao(trim(request2.Form("xxlb")))
xxlb2=trim(request2.Form("xxlb"))
yxq=douhao(trim(request2.Form("yxq")))
fangwei=douhao(trim(request2.Form("fangwei")))
area=douhao(trim(request2.Form("area")))
zcenci=douhao(trim(request2.Form("zcenci")))
cenci=douhao(trim(request2.Form("cenci")))
fclx=douhao(trim(request2.Form("fclx")))
zhbz=douhao(trim(request2.Form("zhbz")))
zhprice=douhao(trim(request2.Form("zhprice")))
createyear=douhao(trim(request2.Form("year")))

mianmj=trim(request2.Form("mianji"))
if mianmj>99999999 then
mianji=99999999
end if
mianji=douhao(mianji)
jyprice=trim(request2.Form("jyprice"))
if jyprice>99999999 then
jyprice=99999999
end if
jyprice=douhao(jyprice)

meno=trim(request2.Form("meno"))
meno=douhao(replace(meno,vbcrlf,"<br>"))
sql="insert into house (xxlb,yxq,fangwei,area,zcenci,cenci,fclx,zhbz,zhprice,createyear,jyprice,meno,mianji,userid,bimg) values ("&xxlb&","&yxq&","&fangwei&","&area&","&zcenci&","&cenci&","&fclx&","&zhbz&","&zhprice&","&createyear&","&jyprice&","&meno&","&mianji&",'"&userid&"','"&pic&"')"
conn.execute sql
response.redirect "house.asp?xxlb="&xxlb2&""

%>