hostbuy.asp

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

<!--#include file="top.asp"-->
<!--#include file="checkpost.asp"-->
<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="5" cellspacing="1">
<tr>
<td align=center bgcolor="#FFFFFF">
<%
if Request.form("submit")="正在开通站点，请不要刷新和关闭页面" then
'此模块是进行站点的开通操作
set rs=server.createobject("adodb.recordset")
sql="select HostID,HostName,HostSize,MailSize,WebIp,MailNum,Price" & Grade & ",WebRootPath,WebMaxConnections,WebSize,WebMaxBandwidth,WebCPULimit,WebConnectionTimeout,WebAccessSource,WebAccessRead,WebAccessWrite,WebAccessScript,WebAppIsolated,WebScriptMaps,WebAppPools,WebFooter,WebIndexDoc,WebDefaultDomain from [Host_List] where HostID=" & Request.form("HostID")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
Response.Redirect("error.asp?id=006")
else
HostID=rs("HostID")
HostName=rs("HostName")
HostSize=rs("HostSize")
MailSize=rs("MailSize")
MailNum=rs("MailNum")
Price=rs("Price" & Grade)
Webip=rs("WebIP")
DefDomain=rs("WebDefaultDomain")
WebRootPath=rs("WebRootPath")
WebMaxConnections=rs("WebMaxConnections")
WebSize=rs("WebSize")
WebMaxBandwidth=rs("WebMaxBandwidth")
WebCPULimit=rs("WebCPULimit")
WebConnectionTimeout=rs("WebConnectionTimeout")
WebAccessSource=rs("WebAccessSource")
WebAccessRead=rs("WebAccessRead")
WebAccessWrite=rs("WebAccessWrite")
WebAccessScript=rs("WebAccessScript")
WebAppIsolated=rs("WebAppIsolated")
WebScriptMaps=rs("WebScriptMaps")
WebAppPools=rs("WebAppPools")
WebFooter=rs("WebFooter")
WebIndexDoc=rs("WebIndexDoc")
end if
rs.close
if Request.form("Years")<0 then Response.Redirect("error.asp?id=007")
if Money+1<Price*Request.form("Years") then Response.Redirect("error.asp?id=007")
sql="select ErrID from [Error_List] where ErrorText='" & Request.form("FtpName") & "." & DefDomain & "' and ErrorType=1"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
else
Response.Redirect("error.asp?id=008")
end if
rs.close
sql="select ErrID from [Error_List] where ErrorText='" & Request.form("FtpName") & "' and ErrorType=2"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
else
Response.Redirect("error.asp?id=008")
end if
rs.close
sql="select WebID from [Host_OK] where FtpName='" & Request.form("FtpName") & "'"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
else
Response.Redirect("error.asp?id=008")
end if
rs.close
'下面是接口函数，赋值
Set Autohost = Server.CreateObject("autohost.Createhost")
Autohost.HostIp=WebIp'服务器的IP
Autohost.HostPort=Port'程序端口
Autohost.Guid=Guid
Autohost.HostAction="createweb"'动作,这个是创建主机
Autohost.Hostuser=Request.form("FtpName")'当然是FTP用户名
Autohost.HostPass=Request.form("FtpPass")'FTP密码,在服务器上是以SERVU的加密形式保存的,所以，服务器的密码就为加密的就行
Autohost.Hostspace=HostSize*1024*1024'空间大小
Autohost.Hosthead=Request.form("FtpName")&"."&DefDomain'绑定的域名,可以自己修改
Autohost.HostPath = WebRootPath'空间所在的目录
Autohost.HostConnections = WebMaxConnections'IIS连接数
Autohost.HostBandwidth = WebMaxBandwidth*1024'可使用的带宽
Autohost.HostAccessSource = WebAccessSource'是否允许脚本资源访问
Autohost.HostFrontPageWeb=false'FP扩展,需要在服务器上先设置才行
Autohost.HostIndexDoc=WebIndexDoc'这里是开通的默认文件设置，可以留空，那样按照默认值
Autohost.HostAccessRead = WebAccessRead'读权限
Autohost.HostAccessWrite = WebAccessWrite'写权限
Autohost.HostEnableDirBrowsing = false'浏览目录
Autohost.HostLog = false'日志访问记录开,FALSE关
Autohost.HostAccessScript = WebAccessScript'是否脚本还是无
Autohost.HostCPULimit=WebCPULimit'CPU限制为如:10% 只在2000下有效
Autohost.HostSize=WebSize'站点性能 小中大 只在2000下有效
Autohost.HostAppIsolated=WebAppIsolated'应用程序保护 只在2000下有效
Autohost.HostFooter=WebFooter'站点强制广告
Autohost.HostScriptMaps=WebScriptMaps'站点脚本衍射
Autohost.HostApppool=WebApppools'站点应用程序，2003下使用
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") then 
   Response.Redirect("error.asp?ID=017")
elseif instr(ReturnValue,"主机已存在") then 
   Response.Redirect("error.asp?ID=018")
elseif instr(ReturnValue,"用户名已存在") then 
   Response.Redirect("error.asp?ID=008")
elseif ReturnValue="" then 
   Response.Redirect("error.asp?ID=012")
elseif instr(ReturnValue,"非法命令") then 
   Response.Redirect("error.asp?ID=019")
elseif instr(ReturnValue,"非法用户") then 
   Response.Redirect("error.asp?ID=020")
elseif IsNumeric(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")=clng(rs("Money"))-(clng(Price)*Request.form("Years"))
rs.update
end if
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")=-(Price*Request.form("Years"))
rs("BuyLogMoney")=Money-(Price*Request.form("Years"))
rs("BuyLogDate")=now
rs("BuyLogOther")="自助购买 " & HostName & "(" & HostID & ") 网站空间, " & Request.form("Years") & " 年。"
rs.update
rs.close
sql="select * from [Host_OK] where (WebID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("UserID")=session("ID")
rs("HostID")=HostID
rs("ServerID")=clng(ReturnValue)
rs("HostIp")=WebIp
rs("HostName")=HostName
rs("HostSize")=HostSize
rs("Connections")=WebMaxConnections
rs("Price")=Price
rs("Years")=Request.form("Years")
rs("FtpName")=Request.form("FtpName")
Set Autohost = Server.CreateObject("autohost.Createhost")
rs("FtpPass")=autohost.PassServU(Request.form("FtpPass"))
set Autohost=nothing
rs("FtpPath")=WebRootPath &"\" &Request.form("FtpName")
rs("WebState")=2
rs("DefaultDoc")=WebIndexDoc
rs("ErrDoc")="404.htm"
rs("Footer")=WebFooter
rs("AccessScript")=WebAccessScript
rs("ScriptMaps")=WebScriptMaps
rs("AppPools")=WebAppPools
rs("BeginDate")=Date()
rs("EndDate")=Date()+(Request.form("Years")*365)+1
rs.update
rs.close
sql="select WebID from [Host_OK] where FtpName='" & Request.form("FtpName") & "'"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
Response.Redirect("error.asp?id=006")
else
NewWebID=rs("WebID")
end if
rs.close
sql="select * from [Domain_OK] where WebID=" & NewWebID & " and UserID=" & session("ID") & " and DomainType=1"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
set rs1=server.createobject("adodb.recordset")
sql="select * from [Domain_OK] where (DomainID is null)"
rs1.open sql,conn,1,3
rs1.addnew
rs1("UserID")=session("ID")
rs1("WebID")=NewWebID
rs1("DomainName")=Request.form("FtpName") & "." & DefDomain
rs1("DomainType")=1
rs1.update
rs1.close
set rs1=nothing
else
rs("DomainName")=Request.form("FtpName") & "." & DefDomain
rs.update
rs.close
end if
if MailSize>0 and MailNum>0 then
set rstmp=server.createobject("adodb.recordset")
sql="select MailHost from [Mail_LIST]"
rstmp.open sql,conn,1,1
MailHost=rstmp("MailHost")
rstmp.close
set rs2=server.createobject("adodb.recordset")
sql="select * from [Mail_OK] where (MailID is null)"
rs2.open sql,conn,1,3
rs2.addnew
rs2("UserID")=session("ID")
rs2("MailName")="赠送邮箱"
rs2("MailHost")=MailHost
rs2("MailSize")=MailSize
rs2("MailNum")=MailNum
rs2("BeginDate")=Date()
rs2("EndDate")=Date()+(Request.form("Years")*365)+1
rs2("MailMater")=""
rs2("MailType")=0
rs2.update
rs2.close
end if
Response.Redirect("HostList.asp")
else
   Response.Redirect("error.asp?ID="&ReturnValue)
end if
else
if Request.form("FtpName")="" or Request.form("FtpPass1")="" or Request.form("FtpPass2")="" then Response.Redirect("error.asp?id=004")
if Request.form("FtpPass1")<>Request.form("FtpPass2") then Response.Redirect("error.asp?id=005")
if Len(Trim(Request.form("FtpName")))<3 or Len(Trim(Request.form("FtpName")))>9 then Response.Redirect("error.asp?id=008")
if inchinese(trim(Request.Form("FtpName")))=true then Response.Redirect("error.asp?id=022")
if inchinese(trim(Request.Form("FtpPass1")))=true then Response.Redirect("error.asp?id=022")
if isValidstring(Trim(Request.form("FtpName")))<>"" then Response.Redirect ("error.asp?id=022")
set rs=server.createobject("adodb.recordset")
sql="select WebID from [Host_OK] where FtpName='" & Request.form("FtpName") & "'"
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 WebIP,WebDefaultDomain,Price" & Grade & " from [Host_List] where HostID=" & Request.form("HostID")
rs.open sql,conn,1,1
if rs.bof and rs.eof then Response.Redirect("error.asp?id=001")
Webip=rs("Webip")
DefDomain=rs("WebDefaultDomain")
%>
<br>
本次交易金额为：<font color=red><%=rs("Price" & Grade)*Request.form("Years")%></font> (元)
<br><br>
赠送二级域名为：http://<%=Request.form("FtpName")%>.<%=DefDomain%>
<br><br>
注意：在交易过程中，因网速问题，可能会花时间长一些，请不要刷新或关闭页面。
<form name="form" method="post" action="HostBuy.asp">
<input type="hidden" name="HostID" value="<%=Request.form("HostID")%>">
<input type="hidden" name="FtpName" value="<%=Request.form("FtpName")%>">
<input type="hidden" name="FtpPass" value="<%=Request.form("FtpPass1")%>">
<input type="hidden" name="Years" value="<%=Request.form("Years")%>">
<input type=submit name="submit" value="确认交易" onClick="this.value='正在开通站点，请不要刷新和关闭页面'" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
</form>
<%
rs.close
Set rs = Nothing
end if
%>
</td>
</tr>
</table>
<!--#include file="foot.asp"-->