p2rmodify_do.asp

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

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

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

<%
  P2RName = Request ("P2RName")
  P2RName2 = Request ("P2RName2")
  P2RName2 = "P2R_" & P2RName2 & ""
  P2RLink = Request ("P2RLink")
  P2RType = Request ("P2RType")
  P2RTime = Request ("P2RTime")
  P2RValuation = Request ("P2RValuation")
  P2RVisit = Request ("P2RVisit")
  P2RLimit = Request ("P2RLimit")
  P2ROwner = Request ("P2ROwner")
  P2RValid = Request ("P2RValid")
  If P2RValid <> "" Then
     P2RValid = "True"
  Else
     P2RValid = "False"
  End If
  rs.Open "Update P2R set P2RName = '" & P2RName2 & "', P2RLink = '" & P2RLink & "', P2RType = '" & P2RType & "', P2RTime = '" & P2RTime & "', P2RValuation = '" & P2RValuation & "', P2RVisit = '" & P2RVisit & "', P2RLimit = '" & P2RLimit & "', P2ROwner = '" & P2ROwner & "', P2RValid = " & P2RValid & " Where P2RName = '" & P2RName & "'",Conn
  If P2RName <> P2RName2 Then
     re.Open "Alter Table member Drop Column " & P2RName & "",Conn
     re.Open "Alter Table member Add Column " & P2RName2 & " varchar(50) default None",Conn
     sql = "Update member Set " & P2RName2 & " = 'None'"
     re.Open sql,Conn
     Conn.close
     Set Conn = nothing
  Else
     Conn.Close
     Set Conn = nothing
  End if
  Session ("Message") = "邮件广告修改成功。"
  Response.Redirect "success.asp"
  Response.End
%>