usermailedit_num.asp

一个非常优秀的自动建站程序

<%
MailID = Request("MailID")
if (MailID="") then Response.Redirect ("error.asp?id=001")
%>
<!--#include file="top.asp"-->
<!--#include file="../checkpost.asp"-->
<%
'此模块是进行空间基本信息修改查询
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [Mail_OK] where MailID=" & MailID
rs.open sql,conn,1,3
MailName=rs("MailName")
UserID=rs("UserID")
rs.close
sql="select * from [BuyLog_List] where (BuyLogID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("UserID")=UserID
rs("BuyLogMoney")=nowMoney
rs("BuyLogDate")=now
rs("BuyLogOther")="管理员升级 " & MailName & "(" & MailID & ") 邮局用户数: " &Request.form("Num") &" 个"
rs.update
rs.close
sql="select * from [Mail_OK] where MailID=" & MailID & " and UserID=" & UserID
rs.open sql,conn,1,3
MailNum=rs("MailNum")
if rs.bof and rs.eof then Response.Redirect("error.asp?id=003")
rs("MailNum")=MailNum+Trim(Request.form("Num"))
rs.update
rs.close
Response.Redirect("UserMailEdit.asp?MailID="&MailID)
%>