usermailedit_space.asp

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

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