Lightbox Info Board : SQLの窓

ダウンロード & インストール

Posting Acceptor 1.01 は NT OptionPack の Site Server Express 2.0 に含まれます
( cpshost.dll を inetpub￥scripts ディレクトリにコピーするだけでも良い )

NT OptionPack が無い時は、下記の英語バージョンが使用できますが、日本語ファイルのアップロード
ができないようです。NT OptionPack のものでもアップロードはできるようですが、問題があります。
日本語をファイル名に使用したファイルはアップロードしないようにして下さい。

Version - 1.1
[Microsoft : http://www.microsoft.com/windows/software/webpost/post_accept.htm]

IIS における権限設定


1) cpshost.dll が存在するディレクトリに、アプリケーションの設定として「実行」権限が必要
2) アップロードされるディレクトリに、「書き込み」権限が必要

アップロードサンプルコード (ファイルフィールドが1つの場合)

paupl.asp


<HTML>
<BODY>
<% strSv = Request.ServerVariables("SERVER_NAME") %>
<FORM
 enctype=multipart/form-data        [---> 必ず必要]
 action=http://<%= strSv %>/scripts/cpshost.dll?PUBLISH?http://<%= strSv %>/lightbox/parepost.asp
 method=POST
>
<INPUT                         [---> ファイルフィールド]
 type=file 
 name=file                    [---> 名称固定] 
 size=20
><br>
<INPUT                         [---> アップロード先フィールド]
 type=text
 name=TargetURL         [---> 名称固定]
 value=/lightbox/upl/upload size=40
><br>
<INPUT type=submit value=アップロード><br>
</FORM>
</BODY>
</HTML>

parepost.asp


<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=x-sjis">
</HEAD>
<BODY>
<TABLE border=1 cellpadding=5>
	<TR><TD colspan=2 bgcolor=silver>フォーム変数</TD></TR>
<%
	if Request.Form.Count <> 0 then
		For Each x In Request.Form
			sColumn = Request.Form( x )
			if sColumn = "" then
				sColumn = "&nbsp;"
			end if
			%>
			<TR><TD><% = x %></TD>
			<TD>
			<%
				if Request.Form( x ).Count > 1 then
					Response.Write "<table border=1>"
					For Each y In Request.Form( x )
						Response.Write "<tr><td>" & y & "</td></tr>"
					Next
					Response.Write "</table>"
				else
					Response.Write sColumn
				end if
			%>
			</TD></TR>
			<%
		Next
	else
		%><TR><TD>フォーム変数は存在しません</TD></TR><%
	end if
%>
</TABLE>
<SCRIPT FOR=window EVENT=onload language=JavaScript>
	alert( "paupl.aspへ戻ります" )
	location.replace( "/lightbox/paupl.asp" )   [---> /scripts がカレントなのでルートから記述]
</SCRIPT>
</BODY>
</HTML>

結果表示

フォーム変数
FileName	UPLOAD
FilePath	D:\LIGHTBOX\upl\upload\
FileExtention	.DAT
FileSize	113572
targeturl	/lightbox/upl/upload

アップロードサンプルコード (ファイルフィールドが複数の場合)

paupl2.asp


<HTML>
<BODY>
<% strSv = Request.ServerVariables("SERVER_NAME") %>
<FORM
 enctype=multipart/form-data
 action=http://<%= strSv %>/scripts/cpshost.dll?PUBLISH?http://<%= strSv %>/lightbox/parepost.asp
 method=POST
>
<INPUT type=file name=file size=20><br>
<INPUT type=file name=file size=20><br>
<INPUT type=file name=file size=20><br>
<INPUT type=submit value=アップロード><br>
</FORM>
</BODY>
</HTML>

D:\LIGHTBOX\upl\upload\