aloupan_ok.asp

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

<!--#include file="conn.asp"-->
<%
action=request("action")
if action="add" then    '添加数据
    set rs=server.createobject("adodb.recordset")
	rs.open "select * from loupan",conn,3,2
	rs.addnew	
    rs("name")=request.Form("name")
    rs("qushu")=request.Form("qushu")
	rs("yongtu")=request.Form("yongtu")
	rs("addr")=request.Form("addr")
	rs("enddate")=request.Form("enddate")
	rs("who")=request.Form("who")
	rs("mianji")=request.Form("mianji")
	rs("tele")=request.Form("tele")
	rs("jiage")=request.Form("jiage")
	rs("web")=request.Form("web")
	rs("lianxi")=request.Form("lianxi")
	rs("img")=request.Form("img")
    rs("content")=request.Form("content")
    rs("datt")=now()
	rs("okyes")="no"
	rs.update
	Response.Write("<script>alert('添加成功！');window.location='aloupan_add.asp';</script>")
elseif action="mdf" then   '修改数据
    id=request("id")
'	rs("name")=request("name")
'    rs("qushu")=request("qushu")
'	rs("yongtu")=request("yongtu")
'	rs("addr")=request("addr")
'	rs("enddate")=request("enddate")
'	rs("who")=request("who")
'	rs("mianji")=request("mianji")
'	rs("tele")=request("tele")
'	rs("jiage")=request("jiage")
'	rs("web")=request("web")
'	rs("lianxi")=request("lianxi")
'	rs("img")=request("img")
'   rs("content")=request("content")
	sql="update loupan set name='"&request.form("name")&"', qushu='"&request.form("qushu")&"', yongtu='"&request.form("yongtu")&"', addr='"&request.form("addr")&"', enddate='"&request.form("enddate")&"', who='"&request.form("who")&"', mianji='"&request.form("mianji")&"', tele='"&request.form("tele")&"', jiege='"&request.form("jiege")&"', web='"&request.form("web")&"', lianxi='"&request.form("lianxi")&"', content='"&request.form("content")&"' where id="&id
    conn.execute(sql)
    conn.close
    set conn=nothing
	Response.Write("<script>alert('修改成功！');window.location='aloupan_list.asp';</script>")
elseif action="yes"  then  ' 推荐
    set rs=server.createobject("adodb.recordset")
	rs.open"select * from loupan 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 "aloupan_list.asp"
elseif action="del" then   '删除数据
	sql="delete from loupan where id=" &request("id")
    set rs=conn.execute(sql)
	Response.Write("<script>alert('删除成功！');window.location='aloupan_list.asp';</script>")
end if
%>