inboxmodify_do.asp

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

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

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

<%
  MailID = Request ("MailID")
  MailSubject = Request ("MailSubject")
  MailBody = Request ("MailBody")
  MailValid = Request ("MailValid")
  MemberShipLimit = Request ("MemberShipLimit")
  VIPLimit = Request ("VIPLimit")
  rs.Open "Update mailrecord set MailSubject = '" & MailSubject & "', MailBody = '" & MailBody & "', MailValid = " & MailValid & ", MemberShipLimit = " & MemberShipLimit & ", VIPLimit = " & VIPLimit & " Where ID = " & MailID & "",Conn
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "站内邮件修改成功。"
  Response.Redirect "success.asp"
  Response.End
%>