如何用ASP代码实现虚拟主机

创建虚拟主机大体牵扯到用户、站点、目录、FTP、DNS等几项内容，此外，可能还有EMAIL。QWEB组件对此做了较全面的封装，需要的可以和[email protected]联系。

以下是创建一个虚拟主机的代码：

config.xml(配置信息）

<Root_Element>
   <admin>Administrator</admin>
   <adminpass>xxxxxx</adminpass>
   <readuser>IUSR_MACHINE</readuser>
   <domain>cocoo.net</domain>
    <dnsadmin>dnsadmin</dnsadmin>
     <dnsadminpass>yyyyy</dnsadminpass>
      <dnsip>10.1.143.227</dnsip>
      <group>tryit</group>
      <webdir>http://hanhong.cocoo.net</webdir>
   </Root_Element>

global.asa(配置文件）

<SCRIPT LANGUAGE=vbscript RUNAT=Server>
Sub Application_OnStart
set ff=server.createobject("microsoft.xmldom")
ff.async=false
ff.load server.mappath("config.xml")
set rootElem = ff.documentElement                                 
for e1=0 to rootElem.childNodes.length-1                     
application(trim(rootElem.childNodes.item(e1).nodeName))=trim(rootElem.childNodes.item(e1).text)
next
End Sub
</script>

index.asp(申请页面）

<%
   user=trim(request("user"))
   pass=trim(request("pass"))
   email=trim(request("email"))
   if user<>"" then
   if pass="

本文地址：http://com.8s8s.com/it/it9196.htm