azhiye_ok.asp

一个专业的房地产门户网站

<!--#include file="conn.asp"-->
<%
action=request("action")
if action="add" then    '添加数据
	
	typeid=request.form("type")
    ming=request.form("ming")
    dizhi=request.form("dizhi")
    dianhua=request.form("dianhua")
    lianxi=request.form("lianxi")
	web=request.form("web")
	xiangmu=request.form("xiangmu")
	jianjie=request.form("jianjie")
	
	set rs=server.createobject("adodb.recordset")
	rs.open "select * from zhiye",conn,3,2
	rs.addnew
	rs("typeid")=typeid
	rs("ming")=ming
	rs("dizhi")=dizhi
	rs("dianhua")=dianhua
	rs("lianxi")=lianxi
	rs("web")=web
	rs("xiangmu")=xiangmu
	rs("jianjie")=jianjie
	rs("okyes")="no"
	rs.update
	
	'sql="insert into zhiye (typeid,ming,dizhi,dianhua,lianxi,web,xiangmu,jianjie) valus ('"&typeid&"','"&ming&"','"&dizhi&"','"&dianhua&"','"&lianxi&"','"&web&"','"&xiangmu&"','"&jianjie&"') "
	'response.write(sql)
	'response.end
	'conn.Execute(sql)

	Response.Write("<script>alert('添加成功！');window.location='azhiye_add.asp';</script>")

elseif action="mdf" then   '修改数据

	typeid=request.form("type")
    ming=request.form("ming")
    dizhi=request.form("dizhi")
    dianhua=request.form("dianhua")
    lianxi=request.form("lianxi")
	web=request.form("web")
	xiangmu=request.form("xiangmu")
	jianjie=request.form("jianjie")
	
	set rs=server.createobject("adodb.recordset")
	rs.open"select * from zhiye where id=" &request("id"),conn,1,3
	rs.addnew
	rs("typeid")=typeid
	rs("ming")=ming
	rs("dizhi")=dizhi
	rs("dianhua")=dianhua
	rs("lianxi")=lianxi
	rs("web")=web
	rs("xiangmu")=xiangmu
	rs("jianjie")=jianjie
	rs.update
	Response.Write("<script>alert('修改成功！');window.location='azhiye_list.asp';</script>")
	
elseif action="yes"  then  ' 推荐
    set rs=server.createobject("adodb.recordset")
	rs.open"select * from zhiye where id=" &request("id"),conn,1,3
	if rs("okyes")="yes" then
    rs("okyes")="no"
    else
    rs("okyes")="yes"
	rs("datt")=now()
    end if
    rs.update
	response.redirect "azhiye_list.asp"
	
elseif action="del" then   '删除数据
	sql="delete from zhiye where id=" &request("id")
    set rs=conn.execute(sql)
	Response.Write("<script>alert('删除成功！');window.location='azhiye_list.asp';</script>")
end if
%>