savecompanylogo.asp

来自「模块及功能： 1.汽车新闻 分类.查询.翻页 2.出售信息 搜索.评」· ASP 代码 · 共 43 行

<!--#include file="byshop_conn.asp"-->
<!--#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("logo")=trim(request("logo"))'公司logo
rs.update
rs.close
set rs=noting
  response.write"<SCRIPT language=JavaScript>alert('恭喜您!公司LOGO修改成功！');"
   response.write"this.location.href='index.asp';</SCRIPT>" 
   response.end 
      
%>
<%end if%>