如何用ASP代码实现**
创建**大体牵扯到用户、站点、目录、FTP、DNS等几项内容,此外,可能还有EMAIL。QWEB组件对此做了较全面的封装,需要的可以和qaymuic@163.com联系。
以下是创建一个**的代码:
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="" or instr(email,"@")<2 then
response.write "<font color='red'>填写错误</font>"
else
SET GG=SERVER.CREATEOBJECT("QWEB.USER")
gg.LOGOn application("admin")