savereg.asp

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

<!--#include file="byshop_conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="by2carmd5.asp"-->
<%

ServerName1=Cstr(Request.ServerVariables("HTTP_REFERER"))
ServerName2=Cstr(Request.ServerVariables("SERVER_NAME"))
If Mid(ServerName1,8,len(ServerName2))<>ServerName2 Then
    Response.Write "路径有误，禁止从网站外部提交表单！"
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
agree=replace(trim(request.form("agree")),"'","")
user=replace(trim(request.form("username")),"'","")
user=FilterHtml(user)
set rs=server.CreateObject ("adodb.recordset")
sql="select user from dealer where user='"&user&"'"
rs.open sql,conn,1,3
if not rs.eof then
response.write"<SCRIPT language=JavaScript>alert('该用户名已经存在，重新填写用户名。');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end 
end if

company=replace(trim(request.form("company")),"'","")
company=FilterHtml(company)
 set rs=server.CreateObject ("adodb.recordset")
sql="select company from dealer where company='"&company&"'"
rs.open sql,conn,1,3
if not rs.eof then
response.write"<SCRIPT language=JavaScript>alert('您的公司信息已经存在，请不要重复提交。');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if 
set rs=server.CreateObject ("adodb.recordset")
sql="select * from dealer "
rs.open sql,conn,1,3
rs.addnew
rs("user")=user'用户名
rs("company")=company'公司名称
rs("pass")=by2carmd5(trim(request.form("password")))'密码
rs("email")=FilterHtml(trim(request.form("email")))'电子邮箱
rs("name")=FilterHtml(trim(request.form("realname")))'真实姓名
rs("sex")=int(request.form("sex"))'性别
rs("address")=FilterHtml(trim(request.form("address")))'公司地址
rs("tel")=FilterHtml(trim(request.form("tel")))'电话号码
rs("mobile")=FilterHtml(trim(request.form("mobile")))'手机号码
rs("fax")=FilterHtml(trim(request.form("fax")))'传真号码
rs("web")=FilterHtml(trim(request.form("web")))'公司网址
rs("kefuqq")=FilterHtml(trim(request.form("qq")))'客服QQ
rs("address")=FilterHtml(trim(request.form("address")))'地址
rs("jyfw")=FilterHtml(trim(request.form("operation")))'主要业务
rs("message")=FilterHtml(trim(request.form("message")))'公司简介
rs("lastip")=Request.ServerVariables("REMOTE_ADDR")'
rs("addtime")=date()
rs("count")=0
rs("shenghe")=0
rs.update
rs.close
set rs=noting
if agree <>"on" then
  response.write"<SCRIPT language=JavaScript>alert('恭喜您!成为"&WebName&"的加盟商家,我们在24小时内审核您的信息，您对本站的服务条约有异议，请及时联系我们！'); "
  response.write"this.location.href='login.asp';</SCRIPT>"
 response.end 
 else
  response.write"<SCRIPT language=JavaScript>alert('恭喜您!成为"&WebName&"的加盟商家,我们在24小时内审核您的信息！');"
   response.write"this.location.href='login.asp';</SCRIPT>" 
   response.end 
     end if 
%>