savemodify.asp

模块及功能： 1.汽车新闻 分类.查询.翻页 2.出售信息 搜索.评估.地区展示.发布.展示.固顶.刷新 3.求购信息 发布.展示.固顶.刷新 3.加盟商家管理 注册.登录.信

<!--#include file="byshop_conn.asp"-->
<%
ServerName1=Cstr(Request.ServerVariables("HTTP_REFERER"))
ServerName2=Cstr(Request.ServerVariables("SERVER_NAME"))
If Mid(ServerName1,8,len(ServerName2))<>ServerName2 Then
    Response.Write "路径有误，禁止从网站外部提交表单！"
     response.end

End if
%>
<!--#include file="cookie.asp" -->
<%
Public Function FilterHtml(Str)
    If Trim(Str) = "" Or IsNull(Str) Then
        FilterHtml=""
    Else
    Str = Replace(Str, ">", "&gt;")
    Str = Replace(Str, "<", "&lt;")
    Str = Replace(Str, Chr(32), "&nbsp;")
    Str = Replace(Str ,Chr(9), "&nbsp;")
    Str = Replace(Str, Chr(34), "&quot;")
    Str = Replace(Str, Chr(39), "&#39;")
    Str = Replace(Str, Chr(13), "")
    Str = Replace(Str, Chr(10) & Chr(10), "</p><p>")
    Str = Replace(Str, Chr(10), "<br> ")
    FilterHtml = Str
    End If
End Function
				set rs=server.CreateObject ("adodb.recordset")
sql="select * from dealer where user ='"&replace(request.cookies("by2car")("user"),"'","")&"'"
rs.open sql,conn,1,3
if  rs.eof then
response.write"<SCRIPT language=JavaScript>alert('修改加盟商家资料失改！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end 
else
rs("company")=FilterHtml(trim(request.form("company")))'公司名称
rs("email")=FilterHtml(trim(request("email")))'电子邮箱
rs("name")=FilterHtml(trim(request("name")))'真实姓名
rs("sex")=int(request("sex"))'性别
rs("address")=FilterHtml(trim(request("address")))'公司地址
rs("tel")=FilterHtml(trim(request("tel")))'电话号码
rs("mobile")=FilterHtml(trim(request("mobile")))'手机号码 
rs("fax")=FilterHtml(trim(request("fax")))'传真
rs("kefuqq")=FilterHtml(trim(request("kefuqq")))'客服QQ
rs("web")=FilterHtml(trim(request("web")))'公司网址
rs("jyfw")=FilterHtml(trim(request("operation")))'主要业务
rs("message")=FilterHtml(trim(request("message")))'公司简介
rs.update
rs.close
set rs=noting 
  response.write"<SCRIPT language=JavaScript>alert('恭喜您，您的资料修改成功！');"
   response.write"this.location.href='modify.asp';</SCRIPT>" 
   response.end 
   end if
%>