house_modi_save.asp

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

<!--#include file="../inc/conn.asp"--><%
If session("manager")="" Then
  Response.Redirect("manage.asp")
  Response.end
 End If
%>
<%
opendataconn
if session("admin")="" then
response.redirect "hs.asp"
response.end
end if
function douhao(kk)
douhao="'" & replace(kk,"'","''") & "'"
end function
id=trim(request("id"))
userid=session("loginid")
xxlb=douhao(trim(request("xxlb")))
xxlb2=trim(request("xxlb"))
yxq=douhao(trim(request("yxq")))
fangwei=douhao(trim(request("fangwei")))
area=douhao(trim(request("area")))
zcenci=douhao(trim(request("zcenci")))
cenci=douhao(trim(request("cenci")))
fclx=douhao(trim(request("fclx")))
zhbz=douhao(trim(request("zhbz")))
zhprice=douhao(trim(request("zhprice")))
createyear=douhao(trim(request("year")))
jyprice=douhao(trim(request("jyprice")))
mianji=douhao(trim(request("mianji")))
meno=trim(request("meno"))
meno=douhao(replace(meno,vbcrlf,"<br>"))
sql="update house set dateandtime='"&now()&"',xxlb="&xxlb&",yxq="&yxq&",fangwei="&fangwei&",area="&area&",zcenci="&zcenci&",cenci="&cenci&",fclx="&fclx&",zhbz="&zhbz&",zhprice="&zhprice&",createyear="&createyear&",jyprice="&jyprice&",meno="&meno&",mianji="&mianji&" where id="&id&""
conn.execute sql
Response.write("<script>alert(""修改成功"");location.href=""hs.asp"";</script>")
Response.end

%>