banneradd_do.asp

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

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

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

<%
  rs.Open "Select * From config",Conn
  EmailAddress = rs ("EmailAddress")
  rs.Close
  BannerName = Request ("BannerName")
  BannerLink = Request ("BannerLink")
  BannerImg = Request ("BannerImg")
  BannerText = Request ("BannerText")
  BannerDisplay = Request ("BannerDisplay")
  BannerLimit = Request ("BannerLimit")
  BannerOwner = Request ("BannerOwner")
  BannerValid = Request ("BannerValid")
  If BannerName = "" Then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入旗帜广告名称。"
     Response.Redirect "error.asp"
     Response.End
  End If
  If BannerLink = "" Then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入旗帜广告连接。"
     Response.Redirect "error.asp"
     Response.End
  End If
  If BannerImg = "" And BannerText = "" Then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入旗帜广告图片连接或文字描述。"
     Response.Redirect "error.asp"
     Response.End
  End If
  If BannerLimit = "" Then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入旗帜广告显示限制。"
     Response.Redirect "error.asp"
     Response.End
  End If
  If BannerDisplay = "" Then
     BannerDisplay = 0
  End if
  If BannerOwner = "" Then
     BannerOwner = EmailAddress
  End if
  If BannerValid = "" Then
     BannerValid = True
  End if
  BannerName = "Banner_" & BannerName & ""
  rs.Open "Select * From banner Where BannerName = '" & BannerName & "'",Conn
  If not rs.Eof Then
     rs.Close
     Set rs = nothing
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "同名旗帜广告已经存在。"
     Response.redirect "error.asp"
     Response.End
  End if
  rs.Close
  rs.Open "Insert Into banner(BannerName, BannerLink, BannerImg, BannerText, BannerDisplay, BannerLimit, BannerOwner, BannerValid) values('" & BannerName & "', '" & BannerLink & "', '" & BannerImg & "', '" & BannerText & "', '" & BannerDisplay & "', '" & BannerLimit & "', '" & BannerOwner & "', " & BannerValid & ")",Conn
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "旗帜广告增加成功。"
  Response.redirect "success.asp"
  Response.End
%>