lists(0)=":80:"''端口号为80 '' WPort=binglists '' createflag=CreateWebServer("D:\myweb","我的家园",WPort,False)''调用建站函数 '' If creatflag=0 Then '' Response.Write "创建站点失败!请确定是否有权限" '' ElseIf createflag=1 Then '' Response.Write "创建站点成功!" '' ElseIf createflag=2 Then '' Response.Write "创建站点成功,但启动站点失败,可能端口冲突!" '' End If ''************************************** Function CreateWebServer(WRoot,WComment,WPort,ServerRun) On Error Resume 页码:[1] [2] [3] [4] [5] [6] 第2页、共6页 |