reg_modi_save.asp

本房地产网站功能强大

<%
function douhao(kkk)
douhao="" & replace(kkk,"'","''") & ""
end function
if session("loginid")="" then
response.redirect "login.asp"
response.end
end if
loginid=session("loginid")
if loginid="" then 
response.end
end if
%>
<!--#include file="../inc/conn.asp"-->
<%dim userid,pwd,repwd,name,company,country,province,address,pcode,phone,hphone
dim email,weburl,info,jperson,emp,income,bank,account,fax
opendataconn
set rs=conn.execute("select * from company where userid='"&loginid&"'")
if rs.eof then%>
<script language="JavaScript">
alert("对不起!找不到此用户代码!　　")
history.back()
</script>
<%else
phone=douhao(trim(request("phone")))
email=douhao(trim(request("email")))
question=douhao(trim(request("question")))
answer=douhao(trim(request("answer")))
company=douhao(trim(request("company")))
address=douhao(trim(request("address")))
zip=douhao(trim(request("zip")))
info=trim(request("info"))
info=douhao(replace(info,vbcrlf,"<br>"))
reg_type=douhao(trim(request("reg_type")))

sqlstr="update company set name='"&request("name")&"',phone='"&phone&"',email='"&email&"',question='"&question&"',answer='"&answer&"',company='"&company&"',address='"&address&"',zip='"&zip&"',info='"&info&"',reg_type='"&reg_type&"' where Userid='"&loginid&"'"

conn.execute sqlstr
set rs=nothing
end if
conn.close
set conn=nothing%>
<script language="JavaScript">
alert('修改成功!');
history.back();
</script>