sponsormodify_do.asp

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

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

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

<%
  SponsorName = Request ("SponsorName")
  SponsorName2 = Request ("SponsorName2")
  SponsorName2 = "Sponsor_" & SponsorName2 & ""
  SponsorType = Request ("SponsorType")
  SponsorLink = Request ("SponsorLink")
  SponsorImg = Request ("SponsorImg")
  SponsorText = Request ("SponsorText")
  SponsorBeginDate = Request ("SponsorBeginDate")
  SponsorEndDate = Request ("SponsorEndDate")
  SponsorOwner = Request ("SponsorOwner")
  SponsorValid = Request ("SponsorValid")
  If SponsorValid <> "" Then
     SponsorValid = "True"
  Else
     SponsorValid = "False"
  End If
  rs.Open "Update sponsor set SponsorName = '" & SponsorName2 & "', SponsorType = '" & SponsorType & "', SponsorLink = '" & SponsorLink & "', SponsorImg = '" & SponsorImg & "', SponsorText = '" & SponsorText & "', SponsorBeginDate = '" & SponsorBeginDate & "', SponsorEndDate = '" & SponsorEndDate & "', SponsorOwner = '" & SponsorOwner & "', SponsorValid = " & SponsorValid & " Where SponsorName = '" & SponsorName & "'",Conn
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "首页广告修改成功。"
  Response.Redirect "success.asp"
  Response.End
%>