2006.10.24 Tuesday | 17:51

  ASP #INCLUDE 以外 ふるいむかし

Server.Execute( Path )

1) 別の asp ファイルを呼び出して、その結果を取り込みます
2) 対象ファイルは、同一アプリケーションパス内に存在する必要があります
3) 呼び出されるファイルの中のファンクションを使用する事はできません

ASP1
<HTML><BODY><%  Response.Write("I am going to execute ASP2 <BR>")
  Server.Execute("/myasps/asp2.asp")
%>
</BODY>
</HTML>


ASP2
<HTML><BODY><% Response.Write("Here I am")%></BODY></HTML>



Server.Transfer( path )


Server.Execute( Path ) が、結果の取り込みであるのに対して、
Server.Transfer( path ) は、合体( ジャンプのような、JSP の フォワードのような動き )



2006.10.23 Monday | 21:30

  phpMyAdmin-2.9.0.2 設定済み ふるいむかし




2006.10.20 Friday | 12:04

  IIS で exe ダウンロード ふるいむかし

IIS_exe_ダウンロード



2006.10.20 Friday | 11:23

  PHP ファイルアップロード ふるいむかし

<?
header( "Content-Type: text/html; Charset=euc-jp" );
header( "Expires: Wed, 31 May 2000 14:59:58 GMT" );

$upload_dir = "file";
$redirect_url = "http://localhost/php/fileman/upload.php";
$return_url = "http://localhost/php/";
$err_message;


if ( $_POST['send'] == "アップロード" ) {

	$ret_file_name = $_FILES['MyUploadFile']['name'];

	if ( $_FILES['MyUploadFile']['error'] != 0 ) {
		$result_param =
			"ret=0&result="
			. urlencode("サイズが大きすぎるようです($ret_file_name)");
		header( "Location: $redirect_url?$result_param" );
		exit();
	}

	$target = $_FILES['MyUploadFile']['name'];
	$target = strtoupper($target);

	if ( is_uploaded_file( $_FILES['MyUploadFile']['tmp_name'] ) ) {
		move_uploaded_file(
			$_FILES['MyUploadFile']['tmp_name'],
			$upload_dir. "/" . $ret_file_name
		);
		$result_param =
				"ret=1&result="
				. urlencode("アップロードに成功しました($ret_file_name)");
	}
	else {
		$result_param =
			"ret=0&result="
			. urlencode("アップロードに失敗しました($ret_file_name)");
	}

	header( "Location: $redirect_url?$result_param" );
	exit();
}


?>
<HTML>
<HEAD>
<TITLE>ファイルマネージャ</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=euc-jp">
<STYLE type="text/css">

* {
	font-size: 14px;
	font-family: Verdana;
}

a {
	font-weight: bold;
}

</STYLE>
<SCRIPT language="JavaScript">

	var dom,bIE;
	var objXMLHttp;

	if ( document.all ) {
		bIE = true;
		dom = new ActiveXObject("Msxml2.DOMDocument.3.0");
		objXMLHttp = new ActiveXObject("Msxml2.XMLHTTP.3.0");
	}
	else {
		bIE = false;
		dom = document.implementation.createDocument("", "", null);
		objXMLHttp = new XMLHttpRequest();
	}

function FileExist() {

	var result;

	var strPrefix = document.getElementsByName("prefix")[0].value;
	var strPath = document.getElementsByName("MyUploadFile")[0].value;

	if ( strPath == '' ) {
		alert( "ファイルを選択して下さい   " );
		return false;
	}

	strPrefix = encodeURIComponent(strPrefix);
	strPath = encodeURIComponent(strPath);

	objXMLHttp.open(
		"GET",
		"file_exist.php?path=" + strPath + "&prefix=" + strPrefix
		, false );
	objXMLHttp.send( "" );
	result = objXMLHttp.responseText;

	if ( result == 'OK' ) {
		if ( confirm( "このファイル名は既に存在します。置き換えますか?   " ) ) {
			return true;
		}
		else {
			return false;
		}
	}
	else {
		return true;
	}

}

</SCRIPT>
</HEAD>
<BODY bgcolor="Silver">

<FORM 
	enctype="multipart/form-data"
	method="POST"
	onSubmit='return FileExist()'
>
	<TABLE><tr>

	<TD>
	<INPUT type="hidden" name="MAX_FILE_SIZE" value="3000000">
	アップロードするファイル : 
	</TD>
	<TD>
	<INPUT name="MyUploadFile" type="file" style='width:400'>
	</TD>
	<TD>
	<INPUT type="submit" name="send" value="アップロード">
	</TD>
	<TD>
	<a href="<?= $return_url ?>">戻る</a>
	</TD>
	<TD>
	</TR>
	<TR>
	<TD colspan=4>
	ファイルの頭に<INPUT type=text name="prefix"> を付ける
	</TD>
 
	</tr></TABLE>

</FORM>
<?

	if ( $_GET['result'] != "" ) {
		if ( $_GET['ret'] == "0" ) {
			print "<SPAN style='color:red;font-weight:bold'>";
			print $_GET['result'];
			print "</SPAN><br><br>";
		}
		else {
			print "<SPAN style='color:blue;font-weight:bold'>";
			print $_GET['result'];
			print "</SPAN><br><br>";
		}
	}

	print "<TABLE border=0>";
	print "<TR>";
	print "<TD valign='top'>";

	$nRow = 0;

	$DirHandle = @opendir($upload_dir);
	if ( $DirHandle ) {
		$Target = readdir( $DirHandle );
		$file_cnt = 0;
		while( $Target !== false ) {
			$file_info[$file_cnt][0] = $Target;
			$file_info[$file_cnt][1] = filemtime( $upload_dir . "/" .  $Target );
			$sort_field[$file_cnt] = $file_info[$file_cnt][1];
			$Target = readdir( $DirHandle );
			$file_cnt++;
		}
		array_multisort( $sort_field, SORT_DESC, $file_info );

		print "<TABLE cellspacing=1 style='background-color:black' cellpadding=3>";
		for( $i = 0; $i < count( $file_info ); $i++ ) {
			$Target = $file_info[$i][0];
			if ( $Target != "." && $Target != ".." ) {
			   $nRow++;

			   print "<TR>";
			   print "<TD bgcolor='#FFFFFF'>$nRow</TD>";
			   print "<TD bgcolor='#FFFFFF'>";
			   print "<a style='font-size:11px' target='_blank' href='$upload_dir/"
			      . str_replace("+","%20",urlencode($Target)) . "'>";
			   print $Target;
			   print "</a></TD>";
			   print "</TR>";

			}
		}
		print "</TABLE>";
	}
	else {
		print "ディレクトリが不正です<br>";
	}


	print "</TR>";
	print "</TD>";
	print "</TABLE>";


?>
</BODY>
</HTML>




2006.10.20 Friday | 10:51

  Ajax ファイル存在チェック ふるいむかし

file_exist.php

<?
header( "Content-Type: text/html; Charset=utf-8" );
header( "Expires: Wed, 31 May 2000 14:59:58 GMT" );

$prefix = $_GET['prefix'];
$file_path = $_GET['path'];
$file_path = str_replace( "\\", "/", $file_path );
$file_name = basename( $file_path );

if ( trim( $prefix ) != '' ) {
	$file_path = "image/$prefix-$file_name";
}
else {
	$file_path = "image/$file_name";
}

if ( file_exists ( $file_path ) ) {
	print "OK";
}
else {
	print "ERR";
}

?>




2006.10.16 Monday | 22:22

  印刷処理(仮想印刷) ふるいむかし

VC6 プロジェクト



印刷

ドラッグドロップ対応
// ダイアログボックスに対するドラッグドロップ
case WM_DROPFILES:
	gbl.LString = "";
	::DragQueryFile( (HDROP)wParam, 0 , gbl.LString.szLboxString, MAX_PATH );
	if ( gbl.LString.szLboxString[0] != 0x00 ) {
		gbl.Dlg->Foreground();
		gbl.Dlg->MsgOk( gbl.LString );
	}
	// このメッセージを処理するアプリケーションは、 0を返さなければなりません
	return 0;




<< 7/24 >>