p2smodify_do.asp

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

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

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

<%
  OrderNo = Request ("OrderNo")
  P2SName = Request ("P2SName")
  P2SName2 = Request ("P2SName2")
  P2SName2 = "P2S_" & P2SName2 & ""
  P2SLink = Request ("P2SLink")
  P2SImg = Request ("P2SImg")
  P2SText = Request ("P2SText")
  P2SType = Request ("P2SType")
  P2SValuation = Request ("P2SValuation")
  P2SSignup = Request ("P2SSignup")
  P2SLimit = Request ("P2SLimit")
  P2SOwner = Request ("P2SOwner")
  P2SValid = Request ("P2SValid")
  P2SPeriod = Request ("P2SPeriod")
  P2sTotalSignup = Request ("P2sTotalSignup")
  P2SGroup = Request ("P2SGroup")
  GroupForP2C = Request ("GroupForP2C")
  MemberPriority = Request ("MemberPriority")
  If P2SValid <> "" Then
     P2SValid = "True"
  Else
     P2SValid = "False"
  End If
  If OrderNo = "" Then
     P2SValid = "99"
  End If
  rs.Open "Update p2s set OrderNo = '" & OrderNo & "', P2SName = '" & P2SName2 & "', P2SLink = '" & P2SLink & "', P2SImg = '" & P2SImg & "', P2SText = '" & P2SText & "', P2SType = '" & P2SType & "', P2SValuation = '" & P2SValuation & "', P2SSignup = '" & P2SSignup & "', P2SLimit = '" & P2SLimit & "', P2SOwner = '" & P2SOwner & "', P2SValid = " & P2SValid & ", P2SPeriod = '" & P2SPeriod & "', P2sTotalSignup = '" & P2sTotalSignup & "', P2SGroup = '" & P2SGroup & "', GroupForP2C = '" & GroupForP2C & "', MemberPriority = '" & MemberPriority & "' Where P2SName = '" & P2SName & "'",Conn
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "注册广告修改成功。"
  Response.Redirect "success.asp"
  Response.End
%>