なんか需要があるとかないとか…

まず前提。Classic ASP（拡張子が.aspな昔ながらのActive Server Pages）をWindows Server 2008 x64（Windows Azure）な環境で動かすには最低限、アプリケーションプールの設定で32bitアプリの有効化（Classic ASPが32bitで動くかららしい）と、役割としてIISにASPが追加されてないといけません。

実際にWindows Azure Guest OSを見てみると、どちらもClassic ASPを動かす土台になっていないことがわかります。

さて、じゃぁどうするか？というと話は簡単？で、IISにASPの役割を追加するのとアプリケーションプールの設定を変更してあげればいいわけですね。

リモートデスクトップ接続でログインして設定変更してもいいのですが、そんなことしてたらクラウドのメリットが全くなくなるので全部バッチ（Startup Tasks）でやりたいと思います。

イカWindows Azureへ配置するための準備もろもろ。

1. 空のWindows Azureプロジェクトを作成
2. 新しいWebアプリケーションの追加で空のASP.NET Webアプリケーションを追加
3. .asp ファイルを追加して適当にASPなコードを書く
   
4. .cmd ファイルを追加して以下のバッチを記述
   
   • PKGMGRつかって役割追加と、appcmdつかってアプリケーションプールの設定変更をしています
   • ※CMDファイルはANSIフォーマットで保存しましょう！！（Visual Studioからテキストファイル等作成したり保存するとUTF-8なのでちゃんと動きません
   • 起動のタイミングによってはアプリケーションプールが作成されていない（Webロールの展開が終わってない）可能性があるので手抜きでPingってループさせてますｗ
   • 2012.03.13 追記：以下のようにAppcmdでアプリケーションプールの既定値を変えちゃう方が楽で確実ですね。

   %windir%\system32\inetsrv\appcmd set config -section:applicationPools -applicationPoolDefaults.enable32BitAppOnWin64:true
   

5. .cmd ファイルのプロパティにて「出力ディレクトリにコピー」プロパティを「常にコピーする」に変更
   
6. 空のWindows Azureプロジェクトを右クリックして「ソリューション内のWebロールプロジェクトを追加」を選択してサービスモデルを作成
   
7. .csdef ファイルにスタートアップタスクを設定
   
   • スタートアップタスクではWebロールの起動を妨げないようにバックグラウンドでの実行と、役割を追加するので特権を使用するように指定しています。
8. 発行してWindows Azureへデプロイ

 

さて実行結果ですが、以下の通りです。

• 役割
  
• アプリケーションプール
  
• 実行結果
  

 

まとめ

がんばればWindows Azure でも Classic ASPは動きます。

※アプリケーションプールの設定で32Bitアプリケーションの有効化しなくても動くんだけど、ASPによるのかな。。。

 

おまけ

ソースコード等です。

default.asp

<br />&lt;html&gt;

<br />&lt;body&gt;

<br />&lt;%

<br />response.write(&quot;My first ASP script!&quot;)

<br />%&gt;

<br />&lt;/body&gt;

<br />&lt;/html&gt;

<br />

enableasp.cmd

<br />@echo off

<br />start /w pkgmgr /iu:IIS-ASP;IIS-ISAPIExtensions</p>

<p>:SETAPPPOOL
<br />%windir%\system32\inetsrv\appcmd.exe list apppool &gt; apppoollist.txt</p>

<p>FOR /f &quot;tokens=2 delims= &quot; %%a in (apppoollist.txt) DO (
<br />IF %%a==^&quot;Classic (

<br />echo %%a

<br />) ELSE IF %%a==^&quot;ASP.NET (

<br />echo %%a

<br />) ELSE (

<br />%windir%\system32\inetsrv\appcmd.exe set apppool %%a /enable32bitapponwin64:true

<br />goto END

<br />)

<br />)</p>

<p>ping localhost -n 10 &gt; nul
<br />goto SETAPPPOOL</p>

<p>:END
<br />

ServiceDefinition.csdef

<br />&lt;ServiceDefinition name=&quot;ClassicASPonAzure&quot; xmlns=&quot;http://schemas.microsoft.com/ServiceHosting/2008/10/ServiceDefinition&quot;&gt;

<br />&lt;WebRole name=&quot;WebApplication1&quot;&gt;

<br />&lt;Sites&gt;

<br />&lt;Site name=&quot;Web&quot;&gt;

<br />&lt;Bindings&gt;

<br />&lt;Binding name=&quot;Endpoint1&quot; endpointName=&quot;Endpoint1&quot; /&gt;

<br />&lt;/Bindings&gt;

<br />&lt;/Site&gt;

<br />&lt;/Sites&gt;

<br />&lt;Endpoints&gt;

<br />&lt;InputEndpoint name=&quot;Endpoint1&quot; protocol=&quot;http&quot; port=&quot;80&quot; /&gt;

<br />&lt;/Endpoints&gt;

<br />&lt;Imports&gt;

<br />&lt;Import moduleName=&quot;Diagnostics&quot; /&gt;

<br />&lt;Import moduleName=&quot;RemoteAccess&quot; /&gt;

<br />&lt;Import moduleName=&quot;RemoteForwarder&quot; /&gt;

<br />&lt;/Imports&gt;

<br />&lt;Startup&gt;

<br />&lt;Task commandLine=&quot;enableasp.cmd&quot; taskType=&quot;background&quot; executionContext=&quot;elevated&quot; /&gt;

<br />&lt;/Startup&gt;

<br />&lt;/WebRole&gt;

<br />&lt;/ServiceDefinition&gt;

<br />