1. 程式人生 > >asp在IIS上建立一個web站點

asp在IIS上建立一個web站點


<%
'********************************************************************************** 
'
 建立一個WebServer 
'
 必須引數:WRoot,為建立站點的物理目錄;WComment為站點說明;WPort為站點埠;ServerRun為是否自動執行 
'
 當建立成功時返回1,失敗時提示退出並返回0,當建立站點成功但啟動失敗時返回2 
'
********************************************************************************** 
'

'
******************注意:WPort為List型別,意為伺服器埠,*************** 

'
  本函式在IIS5.0上通過,**必須以管理員身份登入** 
'
 埠舉例: 
'
 Dim WPort,bindlists,createflag,oComputer 
'
 oComputer="LocalHost" 
'
 binglists=Array(0) 
'
 binglists(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 
'
******************************************************************************** 
'
關於Ftp站點的建立我已發表在asp版,請有興趣的朋友自己去檢視 
'
如有問題,歡迎跟我聯絡:[email protected] 

Function CreateWebServer(WRoot,WComment,WPort,ServerRun) 
    
OnErrorResumeNext 
    
Dim ServiceObj,ServerObj,VDirObj 
    
Set ServiceObj =GetObject("IIS://"&oComputer&"/W3SVC")' 首先建立一個服務例項 

    WNumber
=1 
    
DoWhileIsObject(ServiceObj.GetObject("IIsWebServer",WNumber)) 
        
If Err.number<>0Then 
            Err.Clear() 
            
ExitDo 
        
EndIf 
        WNumber
=WNumber+1 
    
Loop 

    
Set ServerObj = ServiceObj.Create("IIsWebServer", WNumber)' 然後建立一個WEB伺服器 

    
If (Err.Number <>0Then' 是否出錯 
'Response.Write "錯誤: 建立Web伺服器的ADSI操作失敗!" 
        CreateWebServer=0 
        
ExitFunction 
    
EndIf 

    
' 接著配置伺服器 
    ServerObj.ServerSize =1' 中型大小 
    ServerObj.ServerComment = WComment '說明 
    ServerObj.ServerBindings = WPort '埠 
    ServerObj.EnableDefaultDoc=True 

    
' 提交資訊 
    ServerObj.SetInfo 
    
    
' 最後,建立虛擬目錄 
Set VDirObj = ServerObj.Create("IIsWebVirtualDir""ROOT"

    
If (Err.Number <>0Then' 是否出錯 
'Response.Write "錯誤: 建立虛擬目錄的ADSI操作失敗!" 
        CreateWebServer=0 
        
ExitFunction 
    
EndIf 

    
' 配置虛擬目錄 
    VDirObj.Path = WRoot 
    VDirObj.AccessRead 
=True 
    VDirObj.AccessWrite 
=True 
    VDirObj.EnableDirBrowsing 
=False 
    VDirObj.EnableDefaultDoc
=True 
    VDirObj.AccessScript
=True 
    VDirObj.AppCreate2 
2 
    VDirObj.AppFriendlyName
="預設應用程式" 
    VDirObj.SetInfo 

    
If ServerRun =TrueThen 
        ServerObj.Start 
        
If (Err.Number <>0Then' Error! 
'Response.Write "錯誤: 起動伺服器時出錯!請手動啟動WebServer "&WComment&"!<br>" 
            CreateWebServer=2 
        
ExitFunction 
        
EndIf 
    
EndIf 

    
Set VDirObj=Nothing 
    
Set ServerObj=Nothing 
    
Set ServiceObj=Nothing 
    CreateWebServer
=1 
End Function 
%
>

相關推薦

asp在IIS建立一個web站點

<%'********************************************************************************** ' 建立一個WebServer ' 必須引數:WRoot,為建立站點的物理目錄;WComment為站點說明;WPort為站點埠;Se

怎麼在eclipse用最原始的方法建立一個web專案

1.開啟eclipse,然後建立一個動態web專案,如下圖 2.然後要選擇Tomcat執行版本 注意,如果這裡你的Tomcat版本不是8.0,恭喜你,你得修改一下Tomcat的配置檔案了。  用解壓工具開啟Tomcat安裝目錄裡面的lib目錄,依次往下走:or

Idea建立一個Web專案,並且再tomcat釋出

Idea建立一個Web專案,並且再tomcat上釋出 1、為什麼要寫idea建立web專案 因為大多數新手再面對idea的時候,建立web專案屢屢出現問題,即使通過百度的手段解決了暫時的問題,但是由於知其然不知其所以然,下一次依然會犯同樣的錯誤,不斷地進入噁心迴圈,索性我這個飛在你們

linux系統部署一個web項目

mod not 重要 path lib linux遠程 項目部 登錄 echo 對於apache開源項目中tomcat的認識,大多停留在Windows下,這次我通過一個簡單的實例來介紹一下在linux下如何搭建tomcat環境,並且部署一個web項目。 先從基本安裝開始,可

在linux設置web站點

linux一、http協議:超文本傳輸協議 應用層協議,使用TCP協議承載,端口號為80 http協議的功能: MIME:多用途互聯網郵件擴展,可以傳輸非純文本文件 Cache:緩存機制 Method:GET,PUT,POST,DELETE,HEAD,TRACE,CO

在Linux設置web站點(二)——httpd2.2的基礎配置

linux web httpd httpd2.2 一、httpd2.2的組成: /etc/httpd:服務器的根目錄 conf/httpd.conf,conf.d/*:配置文件 conf/magic:MIME的配置文件 logs:日誌文件的存放路

nginx部署一個Web站點

查詢 ffffff 分享 分享圖片 size cat ext 首頁 web Nginx的默認站點是Nginx安裝目錄nginx下的html目錄,我的安裝目錄是/application/nginx grep html /application/nginx/conf

tomcat與IDEA整合&建立一個web專案

最近使用IDEA跑J2EE,順便寫一些入門教程,方便學習使用IDEA。 一、配置Tomcat到Idea中        首先點選run--Edit...      然後展開defaults  

如何在GitHub建立一個工程

今天試一試在GitHub上建立一個專案,百度了很久未果,發現在GitHub上就有詳細的步驟教的,只不過是英文的,看著實在是太費勁了,於是就參考了一下外加總結吧(注意前提是你的電腦上已經安裝完git了,才能進行以下操作)。 1.什麼是GitHub GitHub是一個用於版本

利用threading模組和queue模組在python3直譯器建立一個簡單的python執行緒池

python直譯器沒提供執行緒池模組,故在python3上自定義python執行緒池簡單版本,程式碼如下 #用threading queue 做執行緒池 import queueimport threadingclass ThreadPool(): def __init__(self,arg):#建

使用IDEA建立一個web應用

文章轉載自http://blog.csdn.net/lw_power/article/details/51113946,非常感謝作者 第 1 部分:新建一個 Java Web Application 專案 File -> New -> Project…,請選擇 Ja

Jmeter建立一個web測試計劃

下載Jmeter 下載地址:http://jmeter.apache.org/download_jmeter.cgi 下載後解壓到你想“安裝”的路徑下,比如: D:\Program Files (x86)\Jemter\apache-jmeter-2.11

利用maven專案建立一個web專案工程(圖文詳解)

最近正開始學習java,老師佈置的第一個作業便是用maven專案建立一個web專案工程,不會,跑去百度了半天,跳出來的全是我們csdn的教程,但到建立資源包的時候就沒法跟著做了,因為顯示已存在,沒法跟著建立了,那些文章基本一樣的講法,都是預設能建立成功,很煩,於是又繼續找了半天,終於在部落格園找到了

微信小遊戲 在節點按鈕button建立一個透明的按鈕,等待使用者點選授權,授權後隱藏或銷燬按鈕

    //在節點按鈕button上建立一個透明的按鈕,等待使用者點選授權,授權後隱藏或銷燬按鈕     createAuthorizeBtn:function(btnNode){         let btnSize = cc.size(btnNode.width+10

使用node.js的開發框架express建立一個web應用

1.1.1:搭建環境     1.安裝Express           按鍵:Windows+R=>輸入cmd,開啟命令列,輸入     npm install -g [email protected]  

Anaconda如何在已有的python版本建立一個新的python的環境

第一步:開啟終端例如要在Anaconda下建立一個新的python2.7的環境終端下輸入:conda create -n py2 anaconda python=2.7 其中py2是你的新的python2.7環境的名稱接下來選擇yes,等待安裝完成第二步:使用python2.

在樹莓派建立一個最簡單手寫體識別系統(二)

首先得先把opencv安裝上。 在PC上我使用的是anaconda,直接輸入: conda install --channel https://conda.anaconda.org/menpo opencv3 測試程式碼: import cv2

Maven入門-4-如何在Eclipse建立一個Maven專案

       前面我們介紹如何在windonws上的cmd裡通過命令來建立一個Maven專案,這種方式看起來會很不方便。實際上,目前很多Java開發IDE工具是繼承了Maven,所以,我們一般是在ID

當您訪問在 IIS 7.0 承載的 Web 站點時收到錯誤訊息:"HTTP 錯誤 500.19 – 內部伺服器錯誤"

解決方法 1 從 ApplicationHost.config 檔案或從 Web.config 檔案,請刪除格式錯誤的 XML 元素。 解決方案 2 若要解決此問題,請使用下列方法之一。 方法 1 不要配置網站以使用 UNC 直通身份驗證來訪問遠端的 UNC 共享。 方法 2 對 Applicati

一個Web站點應用

這篇文章演示如何使用ASP.NET Core MVC建立第一個Web站點。 開始 新建一個Project。 然後,選擇.NET Core/ASP.NET Core Web應用程式,並且輸入解決方案和專案名稱。 然後,選擇ASP.NET Core 2.2框架和專案模板。 這樣一個新的ASP.NET Cor