savepubsell.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-->
<!--#include file="cookie.asp" -->
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from dealer where reglx=1 and user ='"&replace(request.cookies("by2car")("user"),"'","")&"'"
rs.open sql,conn,1,1
if (rs.bof and rs.eof) then
    Response.Write "提交失败！"
    response.end
    else
    userid=rs("id")
    end if

set rs=server.createobject("adodb.recordset")
sql="select * from 1car"
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(request.form("type")))'汽车型号
rs("yuanmoney")=FilterHtml(request.form("yuanmoney"))'原购车价
rs("sellmoney")=FilterHtml(request.form("sellmoney"))'出售车价
rs("color")=FilterHtml(trim(request.form("color")))'汽车颜色
rs("purpose")=FilterHtml(trim(request.form("purpose")))'原车用途
rs("shangpai")=FilterHtml(trim(request.form("shangpai")))'上牌日期
rs("seat")=FilterHtml(trim(request.form("seat")))'座位数
rs("journey")=FilterHtml(trim(request.form("journey")))'行驶路程
rs("youhao")=FilterHtml(trim(request.form("youhao")))'百里油耗
rs("motor")=FilterHtml(trim(request.form("motor")))'发动机形
rs("pailiang")=FilterHtml(trim(request.form("pailiang")))'汽车排量
rs("province")=int(request.form("province"))'省
rs("city")=int(request.form("city"))'市
rs("transfer")=int(request.form("transfer"))'车牌过户
rs("limit")=FilterHtml(trim(request.form("limit")))'有效期
rs("carpic")=FilterHtml(trim(request.form("carpic")))'最初图片
rs("carpic1")=FilterHtml(trim(request.form("carpic1")))'图片1
rs("carpic2")=FilterHtml(trim(request.form("carpic2")))'图片2
rs("carpic3")=FilterHtml(trim(request.form("carpic3")))'图片3
rs("carpic4")=FilterHtml(trim(request.form("carpic4")))'图片4
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("css")=1 then  '车船税
rs("css")=1
else
rs("css")=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("count")=0
rs("usercheck")=1
rs("userid")=userid
rs("user")=replace(request.cookies("by2car")("user"),"'","")
rs("ip")=Request.ServerVariables("REMOTE_ADDR")
rs.Update
rs.Close
  response.write"<SCRIPT language=JavaScript>alert('发布成功，我们将在24小时内审核你发布的信息！');"
   response.write"this.location.href='index.asp';</SCRIPT>" 
   response.end 
%>