p2cmodify_do.asp

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

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

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

<%
  P2CName = Request ("P2CName")
  P2CName2 = Request ("P2CName2")
  P2CName2 = "P2C_" & P2CName2 & ""
  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")
  MemberPriority = Request ("MemberPriority")
  If P2CValid <> "" Then
     P2CValid = "True"
  Else
     P2CValid = "False"
  End If
  rs.Open "Update p2c set P2CName = '" & P2CName2 & "', P2CGroup = '" & P2CGroup & "', P2CLink = '" & P2CLink & "', P2CImg = '" & P2CImg & "', P2CText = '" & P2CText & "', P2CType = '" & P2CType & "', P2CTime = '" & P2CTime & "', P2CValuation = '" & P2CValuation & "', P2CVisit = '" & P2CVisit & "', P2CClick = '" & P2CClick & "', P2CRate = '" & P2CRate & "', P2CLimit = '" & P2CLimit & "', P2COwner = '" & P2COwner & "', P2CTarget = '" & P2CTarget & "', P2CValid = " & P2CValid & ", NeedClick = '" & NeedClick & "', P2CTotalVisit = '" & P2CTotalVisit & "', P2CTotalClick = '" & P2CTotalClick & "', MemberPriority = '" & MemberPriority & "' Where P2CName = '" & P2CName & "'",Conn
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "点击广告修改成功。"
  Response.Redirect "success.asp"
  Response.End
%>