p2cadd_do.asp

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

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

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

<%
  rs.Open "Select * From config",Conn
  EmailAddress = rs ("EmailAddress")
  rs.Close
  P2CName = Request ("P2CName")
  P2CGroup = Request ("P2CGroup")
  P2CLink = Request ("P2CLink")
  P2CImg = Request ("P2CImg")
  P2CText = Request ("P2CText")
  P2CType = Request ("P2CType")
  P2CTime = Request ("P2CTime")
  P2CValuation = Request ("P2CValuation")
  P2CVisit = Request ("P2CVisit")
  P2CClick = Request ("P2CClick")
  P2CRate = Request ("P2CRate")
  P2CLimit = Request ("P2CLimit")
  P2COwner = Request ("P2COwner")
  P2CTarget = Request ("P2CTarget")
  P2CValid = Request ("P2CValid")
  NeedClick = Request ("NeedClick")
  P2CTotalVisit = Request ("P2CTotalVisit")
  P2CTotalClick = Request ("P2CTotalClick")
  If P2CName = "" Then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入点击广告名称。"
     Response.Redirect "error.asp"
     Response.End
  End If
  If P2CLink = "" Then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入点击广告连接。"
     Response.Redirect "error.asp"
     Response.End
  End If
  If P2CImg = "" And P2CText = "" Then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入点击广告图片连接或文字描述。"
     Response.Redirect "error.asp"
     Response.End
  End If
  If P2CTime = "" Then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入点击广告时间。"
     Response.Redirect "error.asp"
     Response.End
  End If
  If P2CValuation = "" Then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入点击广告价值。"
     Response.Redirect "error.asp"
     Response.End
  End If
  If P2CLimit = "" Then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入点击广告点击限制。"
     Response.Redirect "error.asp"
     Response.End
  End If
  If P2CVisit = "" Then
     P2CVisit = 0
  End if
  If P2CClick = "" Then
     P2CClick = 0
  End if
  If P2CRate = "" Then
     P2CRate = 0
  End if
  If P2COwner = "" Then
     P2COwner = EmailAddress
  End if
  If P2CValid = "" Then
     P2CValid = True
  End if
  If P2CGroup = "" Then
     P2CGroup = "778835"
  End if
  If P2CTotalVisit = "" Then
     P2CTotalVisit = 0
  End if
  If P2CTotalClick = "" Then
     P2CTotalClick = 0
  End if
  P2CName = "P2C_" & P2CName & ""
  rs.Open "Select * From p2c Where P2CName = '" & P2CName & "'",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 p2c(P2CName, P2CGroup, P2CLink, P2CImg, P2CText, P2CType, P2CTime, P2CValuation, P2CVisit, P2CClick, P2CRate, P2CLimit, P2COwner, P2CTarget, P2CValid, NeedClick, P2CTotalVisit, P2CTotalClick) values('" & P2CName & "', '" & P2CGroup & "', '" & P2CLink & "', '" & P2CImg & "', '" & P2CText & "', '" & P2CType & "', '" & P2CTime & "', '" & P2CValuation & "', '" & P2CVisit & "', '" & P2CClick & "', '" & P2CRate & "', '" & P2CLimit & "', '" & P2COwner & "', '" & P2CTarget & "', " & P2CValid & ", '" & NeedClick & "', '" & P2CTotalVisit & "', '" & P2CTotalClick & "')",Conn
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "点击广告增加成功。"
  Response.redirect "success.asp"
  Response.End
%>