sponsoradd_do.asp

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

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

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

<%
  rs.Open "Select * From config",Conn
  EmailAddress = rs ("EmailAddress")
  rs.Close
  SponsorName = Request ("SponsorName")
  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 SponsorName = "" Then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入首页广告名称。"
     Response.Redirect "error.asp"
     Response.End
  End If
  If SponsorLink = "" Then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入首页广告连接。"
     Response.Redirect "error.asp"
     Response.End
  End If
  If SponsorImg = "" And SponsorText = "" Then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入首页广告图片连接或文字。"
     Response.Redirect "error.asp"
     Response.End
  End If
  If SponsorEndDate = "" Then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入首页广告结束日期。"
     Response.Redirect "error.asp"
     Response.End
  End If
  If SponsorBeginDate = "" Then
     SponsorBeginDate = Date()
  End if
  If SponsorOwner = "" Then
     SponsorOwner = EmailAddress
  End if
  If SponsorValid = "" Then
     SponsorValid = True
  End if
  SponsorName = "Sponsor_" & SponsorName & ""
  rs.Open "Select * From sponsor Where SponsorName = '" & SponsorName & "'",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 sponsor(SponsorName, SponsorType, SponsorLink, SponsorImg, SponsorText, SponsorBeginDate, SponsorEndDate, SponsorOwner, SponsorValid) values('" & SponsorName & "', '" & SponsorType & "', '" & SponsorLink & "', '" & SponsorImg & "', '" & SponsorText & "', '" & SponsorBeginDate & "', '" & SponsorEndDate & "', '" & SponsorOwner & "', " & SponsorValid & ")",Conn
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "首页广告增加成功。"
  Response.redirect "success.asp"
  Response.End
%>