savepubbuy.asp

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

<%
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
%>
<%
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
%>
<!--#include file=byshop_conn.asp-->

<%
set rs=server.createobject("adodb.recordset")
sql="select * from 2car"
rs.open sql,conn,1,3
rs.AddNew
rs("titlename")=FilterHtml(trim(request.form("titlename")))'信息标题
rs("cartype")=FilterHtml(trim(request.form("cartype")))'汽车分类
rs("anclass")=int(request.form("anclass"))'品牌属地
rs("nclass")=int(request.form("nclass"))'汽车品牌
rs("type")=FilterHtml(trim.form(request("type")))'型号要求
rs("money")=trim(request.form("money"))'求购车价
rs("color")=FilterHtml(trim.form(request("color")))'颜色要求
rs("journey")=FilterHtml(trim.form(request("journey")))'行程要求
rs("youhao")=FilterHtml(trim.form(request("youhao")))'油耗要求
rs("pailiang")=FilterHtml(trim.form(request("pailiang")))'排量要求
rs("province")=int(request.form("province"))'省
rs("city")=int(request.form("city"))'市
rs("transfer")=int(request.form("transfer"))'有牌过户
rs("limit")=trim(request.form("limit"))'有效期
rs("content")=FilterHtml(trim(request.form("content")))'车况要求
'//
if request("fxzl")=1 then  '方向助力
rs("fxzl")=1
else
rs("fxzl")=0
end if
if request("cwrlq")=1 then  '车尾扰流器
rs("cwrlq")=1
else
rs("cwrlq")=0
end if
if request("am")=1 then  'AM/FM收音机/卡带
rs("am")=1
else
rs("am")=0
end if
if request("cdj")=1 then  'CD机
rs("cdj")=1
else
rs("cdj")=0
end if
if request("vcd")=1 then  'VCD
rs("vcd")=1
else
rs("vcd")=0
end if
if request("bx")=1 then  '冰箱
rs("bx")=1
else
rs("bx")=0
end if
if request("wd")=1 then  '雾灯
rs("wd")=1
else
rs("wd")=0
end if
if request("czdh")=1 then  '车载电话
rs("czdh")=1
else
rs("czdh")=0
end if
if request("abs")=1 then  'ABS刹车系统
rs("abs")=1
else
rs("abs")=0
end if
if request("hjlq")=1 then  '合金轮圈
rs("hjlq")=1
else
rs("hjlq")=0
end if
if request("fjs")=1 then  '副架驶安全气囊
rs("fjs")=1
else
rs("fjs")=0
end if
if request("js")=1 then  '架驶安全气囊
rs("js")=1
else
rs("js")=0
end if
if request("ktxt")=1 then  '空调系统
rs("ktxt")=1
else
rs("ktxt")=0
end if
if request("zkfd")=1 then  '中控防盗
rs("zkfd")=1
else
rs("zkfd")=0
end if
if request("slqd")=1 then  '四轮驱动
rs("slqd")=1
else
rs("slqd")=0
end if
if request("zdb")=1 then  '自动拔
rs("zdb")=1
else
rs("zdb")=0
end if
if request("sb")=1 then  '手拔
rs("sb")=1
else
rs("sb")=0
end if
if request("ebs")=1 then  'EBS
rs("ebs")=1
else
rs("ebs")=0
end if
if request("ddtx")=1 then  '天动天线
rs("ddtx")=1
else
rs("ddtx")=0
end if
if request("zpzy")=1 then  '真皮坐椅
rs("zpzy")=1
else
rs("zpzy")=0
end if
if request("zdbs")=1 then  '自动拔+手拔电动驾驶席座椅
rs("zdbs")=1
else
rs("zdbs")=0
end if
'//
if request("xsz")=1 then  '行驶证
rs("xsz")=1
else
rs("xsz")=0
end if
if request("gzfpz")=1 then  '购置费凭证
rs("gzfpz")=1
else
rs("gzfpz")=0
end if
if request("czsz")=1 then  '车船税
rs("czsz")=1
else
rs("czsz")=0
end if
if request("jdcdjz")=1 then  '机动车登记证
rs("jdcdjz")=1
else
rs("jdcdjz")=0
end if
if request("gcfp")=1 then  '购车发票
rs("gcfp")=1
else
rs("gcfp")=0
end if
'//
rs("name")=FilterHtml(trim(request.form("name")))'联系人
rs("tel")=FilterHtml(trim(request.form("tel")))'联系电话
rs("address")=FilterHtml(trim(request.form("address")))'联系地址
rs("company")=FilterHtml(trim(request.form("company")))'公司名称
rs("email")=FilterHtml(trim(request.form("email")))'电子邮箱
rs("web")=FilterHtml(trim(request.form("web")))'公司网址
rs("mobile")=FilterHtml(trim(request.form("mobile")))'手机号码
rs("kefuqq")=FilterHtml(trim(request.form("kefuqq")))'联系QQ
rs("fax")=FilterHtml(trim(request.form("fax")))'传直号码
rs("jyfw")=FilterHtml(trim(request.form("jyfw")))'主要业务
rs("adddate")=now()
rs("by_tongguo")=0
rs("usercheck")=2
rs("count")=0
rs("ip")=Request.ServerVariables("REMOTE_ADDR")
rs.Update
rs.Close
  response.write"<SCRIPT language=JavaScript>alert('发布成功，我们将在24小时内审核你发布的信息！');"
    response.write"this.location.href='default.asp';</SCRIPT>" 
   response.end 
%>