usermailedit_space.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("Space") & " M"
rs.update
rs.close'此模块是进行空间基本信息修改查询
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [Mail_OK] where MailID=" & MailID & " and UserID=" & UserID
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)
%>