hostedit_type.asp

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

<%
WebID = Request("WebID")
if (WebID="") then Response.Redirect ("error.asp?id=001")
%>
<!--#include file="top.asp"-->
<!--#include file="../checkpost.asp"-->
<%
if trim(Request.Form("ScriptMaps"))<>"" then
set rs=server.createobject("adodb.recordset")
sql="select * from [Host_OK] where WebID=" & WebID
rs.open sql,conn,1,3
if rs.bof and rs.eof then Response.Redirect("error.asp?id=011")
Set Autohost = Server.CreateObject("autohost.Createhost")
Autohost.Hostip=rs("HostIP")
Autohost.HostPort=Port
Autohost.Guid=Guid
Autohost.Hostspace = rs("HostSize")'空间大小
Autohost.HostConnections = clng(rs("Connections"))'空间连接数
Autohost.Hostindex = rs("ServerID")'站点的INDEX
Autohost.HostAccessScript = rs("AccessScript")'是否脚本还是无
Autohost.HostAction="respace"'动作,调整空间大小命令
Autohost.HostScriptMaps=Request.Form("ScriptMaps")'脚本衍射
Autohost.HostFooter=rs("Footer")'强制广告
ReturnValue=Autohost.send'传递给服务器执行
set Autohost=nothing

'以下是检查服务器的返回值,因为服务器返回值里有控制符,所以这个只对返回值进行查找过滤处理
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 

rs("ScriptMaps")=trim(Request.Form("ScriptMaps"))
rs.update	
end if
set rs=nothing
end if
Response.Redirect("UserHostEdit.asp?WebID=" & WebID)
%>