hostedit_space.asp

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

<%
WebID = Request("WebID")
if (WebID="") then Response.Redirect ("error.asp?id=001")
%>
<!--#include file="top.asp"-->
<!--#include file="checkpost.asp"-->
<%
'此代码是提供空间大小改变和IIS数改变的接口
if (Trim(Request.form("space"))="") then Response.Redirect("HostEdit.asp?WebID=" & WebID)
if isinteger(trim(Request.Form("space")))=false then Response.Redirect("error.asp?id=022")
if clng(Trim(Request.form("space")))<0 then Response.Redirect("HostEdit.asp?WebID=" & WebID)
if isInteger(clng(Request.form("space"))) then
   if Request.form("space") mod 50<>0 then Response.Redirect("HostEdit.asp?WebID=" & WebID)
else
   Response.Redirect ("error.asp?id=022")
end if
if Request.form("Years")<0 then Response.Redirect("error.asp?id=007")
if Money+1<BuyMoney then Response.Redirect("error.asp?id=007")
'在此添加对增加空间和IIS数的扣费代码
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select HostId,HostIP,HostName,ServerID,HostSize,Connections,ScriptMaps,Footer from [Host_OK] where WebID=" & WebID & " and UserID=" & session("ID")
rs.open sql,conn,1,3
if rs.bof and rs.eof then Response.Redirect("error.asp?id=003")
HostName=rs("HostName")
HostID=rs("HostID")
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select WebAccessScript,HostSize,Price" & Grade & " from [Host_List] where HostID=" & HostID
rs1.open sql1,conn,1,3
if rs1.bof and rs1.eof then Response.Redirect("error.asp?id=003")
WebAccessScript=rs1("WebAccessScript")
OrSize=rs1("HostSize")
Price=rs1("Price" & Grade)
BuyMoney=clng(Request.form("space"))*(Price/OrSize)*(Request.form("Years")/12)
rs1.close
set rs1=nothing
Set Autohost = Server.CreateObject("autohost.Createhost")
Autohost.Hostip=rs("HostIP")
Autohost.HostPort=Port
Autohost.Guid=Guid
Autohost.Hostspace = (clng(Request.form("space"))+clng(rs("HostSize")))*1024*1024'空间大小
Autohost.HostConnections = clng(rs("Connections"))'空间连接数
Autohost.Hostindex = rs("ServerID")'站点的INDEX
Autohost.HostAccessScript = WebAccessScript'是否脚本还是无
Autohost.HostAction="respace"'动作,调整空间大小命令
Autohost.HostScriptMaps=rs("ScriptMaps")'脚本衍射
Autohost.HostFooter=rs("Footer")'强制广告
ReturnValue=Autohost.send'传递给服务器执行
set Autohost=nothing
rs.close
'以下是检查服务器的返回值,因为服务器返回值里有控制符,所以这个只对返回值进行查找过滤处理
if instr(ReturnValue,"失败") then 
   Response.Redirect("error.asp?ID=012")
elseif instr(ReturnValue,"BUSING") then 
   Response.Redirect("error.asp?ID=016")
elseif instr(ReturnValue,"CLOSE") or ReturnValue="" then 
   Response.Redirect("error.asp?ID=017")
elseif instr(ReturnValue,"非法命令") then 
   Response.Redirect("error.asp?ID=019")
elseif instr(ReturnValue,"非法用户") then 
   Response.Redirect("error.asp?ID=020")
elseif instr(ReturnValue,"成功") then 
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")="自助升级 " & HostName & "(" & HostID & ") 网站空间大小, " & Request.form("Years") & " 月。"
rs.update
rs.close
sql="select Price,HostSize,Connections from [Host_OK] where WebID=" & WebID & " and UserID=" & session("ID")
rs.open sql,conn,1,3
if rs.bof and rs.eof then Response.Redirect("error.asp?id=003")
rs("HostSize")=clng(Request.form("space"))+clng(rs("HostSize"))
rs("Connections")=clng(Request.form("connections"))+clng(rs("Connections"))
rs("Price")=rs("Price")+clng(Request.form("space"))*Request.form("Price")
rs.update
rs.close
set rs = nothing
end if
Response.Redirect("HostEdit.asp?WebID=" & WebID)
%>