bannermodify_do.asp

中文bux点击站源码。配合其他站点用

<%@ LANGUAGE = VBScript %>
<!--#include file="conn.asp"-->

<!--#include file="checklogin.asp"-->

<%
  BannerName = Request ("BannerName")
  BannerName2 = Request ("BannerName2")
  BannerName2 = "Banner_" & BannerName2 & ""
  BannerLink = Request ("BannerLink")
  BannerImg = Request ("BannerImg")
  BannerText = Request ("BannerText")
  BannerDisplay = Request ("BannerDisplay")
  BannerLimit = Request ("BannerLimit")
  BannerOwner = Request ("BannerOwner")
  BannerValid = Request ("BannerValid")
  If BannerValid <> "" Then
     BannerValid = "True"
  Else
     BannerValid = "False"
  End If
  rs.Open "Update Banner set BannerName = '" & BannerName2 & "', BannerLink = '" & BannerLink & "', BannerImg = '" & BannerImg & "', BannerText = '" & BannerText & "', BannerDisplay = '" & BannerDisplay & "', BannerLimit = '" & BannerLimit & "', BannerOwner = '" & BannerOwner & "', BannerValid = " & BannerValid & " Where BannerName = '" & BannerName & "'",Conn
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "旗帜广告修改成功。"
  Response.Redirect "success.asp"
  Response.End
%>