hostedit_connections.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("connections"))="") then Response.Redirect("HostEdit.asp?WebID=" & WebID)
'if isinteger(trim(Request.Form("connections")))=false then Response.Redirect("error.asp?id=022")
'if clng(Trim(Request.form("connections")))<0 then Response.Redirect("HostEdit.asp?WebID=" & WebID)
'if isInteger(clng(Request.form("connections"))) then
   if Request.form("connections") mod 50<>0 then Response.Redirect("HostEdit.asp?WebID=" & WebID)
'else
'   Response.Redirect ("error.asp?id=022")
'end if
'在此添加对增加空间和IIS数的扣费代码
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select HostId,HostIP,HostName,ServerID,HostSize,Connections,ScriptMaps,Footer from [Host_OK] where WebID=" & WebID
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 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")
rs1.close
set rs1=nothing
Set Autohost = Server.CreateObject("autohost.Createhost")
Autohost.Hostip=rs("HostIP")
Autohost.HostPort=Port
Autohost.Guid=Guid
Autohost.Hostspace = clng(rs("HostSize"))*1024*1024'空间大小
Autohost.HostConnections = clng(Request.form("connections"))+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 Price,HostSize,Connections from [Host_OK] where WebID=" & WebID
rs.open sql,conn,1,3
if rs.bof and rs.eof then Response.Redirect("error.asp?id=003")
rs("connections")=clng(Request.form("connections"))+clng(rs("connections"))
rs.update
rs.close
sql="select * from [BuyLog_List] where (BuyLogID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("UserID")=session("ID")
rs("BuyLogMoney")=nowMoney
rs("BuyLogDate")=now
rs("BuyLogOther")="管理员升级 " & HostName & "(" & HostID & ") 网站IIS连接数: " & Request.form("connections") & " 个。"
rs.update
rs.close
set rs = nothing
end if
Response.Redirect("UserHostEdit.asp?WebID=" & WebID)
%>