php建站问题

qq97986182

有没有懂这个的,红包无上限



<%
'=============================================================
'函数介绍：创建WebSite
'本函数使用ADSI，需要Administrators组用户权限
'函数名称：CreateWebSite(Computer,IPAddr,PortNum,HostName,WebSiteDirectory,LogDirectory,WebSiteInfo,GuestUserName,GuestUserPass,StartOrStop)
'用法：CreateWebSite 计算机名(一搬为LocalHost或127.0.0.1),站点IP地址,端口号,主机名,站点根目录,,LOG文件的目录站点说明,网站访问时所使用的帐号,网站访问时所用帐号的口令,是否启动站点
'例：CreateWebSite "LocalHost","127.0.0.123","80","www.test.net","E:\UserData\UserNum001","E:\UserData\UserNum001\LogFiles","wwwtest.net","IUSR_Num001_test.net","abc888",True
'=============================================================

vComputer="LocalHost"           '''''主机地址
vIPAddr="119.29.22.89"                            '''''Ip地址
vPortNum="1346"                   '''''端口号
vHostName=request("domain")                         '''' 主机名
vWebSiteDirectory="D:\phpwwwroot\phpkm\site"       ''''站点根目录
vLogDirectory="D:\phpwwwroot\phpkm\site\LogFiles"  ''''LOG文件的目录站点说明
vWebSiteInfo=request("title")                       ''''站点说明
vGuestUserName="administrator"
vGuestUserPass=""
vStartOrStop="True"   
CreateWebSite vComputer,vIPAddr,vPortNum,vHostName,vWebSiteDirectory,vLogDirectory,vWebSiteInfo,vGuestUserName,vGuestUserPass,vStartOrStop


Function CreateWebSite(Computer,IPAddr,PortNum,HostName,WebSiteDirectory,LogDirectory,WebSiteInfo,GuestUserName,GuestUserPass,StartOrStop)
Dim w3svc, WebServer, NewWebServer, NewDir
Dim Bindings, BindingString, NewBindings, SiteNum, SiteObj, bDone
On Error Resume Next
Err.Clear
'检测是否能够加载W3SVC服务（即WEB服务）
Set w3svc = GetObject("IIS://" & Computer & "/w3svc")
If Err.Number <> 0 Then '显示错误提示
response.write "无法打开: "&"IIS://" & Computer & "/w3svc"
response.end
End If
'检测是否有设定相同IP地址、端口及主机名的站点存在
BindingString = IPAddr & ":" & PortNum & ":" & HostName
For Each WebServer in w3svc
If WebServer.Class = "IIsWebServer" Then
Bindings = WebServer.ServerBindings
If BindingString = Bindings(0) Then
response.write "IP地址冲突:" & IPAddr & ",请检测IP地址！."
Exit Function
End If
End If
Next
'确定一个不存在的站点编号做为新建站点编号，系统默认WebSite站点编号为1，因此从2开始
SiteNum=2
bDone = False
While (Not bDone)
Err.Clear
Set SiteObj = GetObject("IIS://"&Computer&"/w3svc/"&SiteNum) '加载指定站点
If (Err.Number = 0) Then
'response.write " Step_1站点"&SiteNum&"存在 "
SiteNum = SiteNum + 1
Else
'response.write " Step_1站点"&SiteNum&"不存在 "
Err.Clear
Set NewWebServer = w3svc.Create("IIsWebServer",SiteNum) '创建指定站点
If (Err.Number <> 0) Then
'response.write " Step_2站点"&SiteNum&"创建失败 "
SiteNum = SiteNum + 1
Else
'response.write " Step_2站点"&SiteNum&"创建成功 "
bDone = True
End If
End If
'If (SiteNum > 50) Then '服务器最大创建站点数
'response.write "超出服务器最大创建站点数，正在创建的站点的序号为："&SiteNum&"."
'response.end
'End If
Wend
'进行站点基本配置
NewBindings = Array(0)
NewBindings(0) = BindingString
NewWebServer.ServerBindings = NewBindings
NewWebServer.ServerComment= WebSiteInfo
NewWebServer.AnonymousUserName= GuestUserName
NewWebServer.AnonymousUserPass= GuestUserPass
NewWebServer.KeyType = "IIsWebServer"
NewWebServer.FrontPageWeb = True
NewWebServer.EnableDefaultDoc = True
NewWebServer.DefaultDoc = "index.php,default.php,Index.htm"
NewWebServer.LogFileDirectory= LogDirectory
NewWebServer.SetInfo
Set NewDir = NewWebServer.Create("IIsWebVirtualDir", "ROOT")
NewDir.Path = WebSiteDirectory
NewDir.AccessRead = true
NewDir.AppFriendlyName = "应用程序" & WebSiteInfo
NewDir.AppCreate True
NewDir.AccessScript = True
Err.Clear
NewDir.SetInfo
If (Err.Number = 0) Then
Else
response.write "主目录创建时出错."
response.end
End If
If StartOrStop = True Then
Err.Clear
Set NewWebServer = GetObject("IIS://" & Computer & "/w3svc/" & SiteNum)
NewWebServer.Start
If Err.Number <> 0 Then
response.write "启动站点时出错!"
response.end
Err.Clear
Else
End If
End If

response.write "<br><br><br><br><br><br><br><br><br><br>站点创建成功，站点编号为："& SiteNum &" ，域名为："& HostName
End Function
function DelWebSite()

end function
%>
<br>

遵义静以修身

我也在研究

遵义静以修身

建站很麻烦的，真的

uudzs

楼主整混乱了！！！！

Kvin

这应该是asp创建IIS站点的程序。所以这个代码在php上是行不通的

万物皆有定数

你这明明是asp

qq97986182

我网站程序是php的，里边这个脚本是asp。不会使用

245661320

你这明明是asp