hostedit_domain.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("Domain"))="") then Response.Redirect ("error.asp?id=004")
if isValidDomainstring(Trim(Request.form("Domain")))<>"" then Response.Redirect ("error.asp?id=022")
if inchinese(trim(Request.Form("Domain")))=true then Response.Redirect("error.asp?id=022")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select ServerID,HostIP 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")
else
  HostIP=rs("HostIP")
  ServerID=rs("ServerID")
end if
rs.close
'添加主机头
if Request.form("act")="add" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select ErrID from [Error_List] where ErrorText='" & Request.form("Domain") & "' and ErrorType=1"
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
Response.Redirect("error.asp?id=008")
end if
rs.close
sql="select DomainID from [Domain_OK] where DomainName='" & Request.form("Domain") & "'"
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
Response.Redirect("error.asp?id=008")
end if
rs.close
Set Autohost = Server.CreateObject("autohost.Createhost")
Autohost.HostIp=HostIP
Autohost.HostPort=Port
Autohost.Guid=Guid
Autohost.HostAction="webhead"'动作,修改主机头命令
Autohost.HostIndex=ServerID'站点INDEX
Autohost.HostHead=Trim(Request.form("Domain"))'主机头
Autohost.HostHeadOp="add"'添加,删除是DEL
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")
else
sql="insert into [Domain_OK] (UserID,WebID,DomainName,DomainType) values('"&session("ID")&"','"&WebID&"','"&Trim(Request.form("Domain"))&"',0)"
conn.Execute(Sql)
set rs = nothing
end if
'删除主机头
elseif Request.form("act")="del" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select DomainName from [Domain_OK] where WebID=" & WebID & " and UserID=" & session("ID") & " and DomainType=0 and DomainName='" & Trim(Request.form("Domain")) & "'"
rs.open sql,conn,1,1
if rs.bof and rs.eof then Response.Redirect("error.asp?id=003")
rs.close
Set Autohost = Server.CreateObject("autohost.Createhost")
Autohost.HostIp=HostIP
Autohost.HostPort=Port
Autohost.Guid=Guid
Autohost.HostAction="webhead"
Autohost.HostIndex=ServerID
Autohost.HostHead=Trim(Request.form("Domain"))
Autohost.HostHeadOp="del"
ReturnValue=Autohost.send
'以下是检查服务器的返回值,因为服务器返回值里有控制符,所以这个只对返回值进行查找过滤处理
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.open "delete from [Domain_OK] where WebID=" & WebID & " and UserID=" & session("ID") & " and DomainType=0 and DomainName='" & Trim(Request.form("Domain")) & "'",conn,1
set rs = nothing
else
   Response.Redirect("error.asp?ID="&ReturnValue)
end if
end if
Response.Redirect("HostEdit.asp?WebID=" & WebID)
%>