usermailedit_num.asp

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

<%
MailID = Request("MailID")
if (MailID="") then Response.Redirect ("error.asp?id=001")
%>
<!--#include file="top.asp"-->
<!--#include file="checkpost.asp"-->
<%
if Request.form("UserMailNum")<0 then Response.Redirect("error.asp?id=003")
BuyMoney=clng(Trim(Request.form("Num")))*10*clng(Request.form("Years"))/12
if Request.form("Num")<0 then Response.Redirect("error.asp?id=007")
if Money+1<BuyMoney then Response.Redirect("error.asp?id=007")
'此模块是进行空间基本信息修改查询
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [Mail_OK] where MailID=" & MailID & " and UserID=" & session("ID")
rs.open sql,conn,1,3
MailName=rs("MailName")
rs.close
sql="select Money from [Agent_User] where ID=" & session("ID")
rs.open sql,conn,1,3
if rs.bof and rs.eof then
Response.Redirect("error.asp?id=006")
else
rs("Money")=rs("Money")-BuyMoney
rs.update
end if
nowMoney=rs("Money")
rs.close
sql="select * from [BuyLog_List] where (BuyLogID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("UserID")=session("ID")
rs("BuyLogSum")=-BuyMoney
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=" & session("ID")
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)
%>