<!-- #include file="../../../include.asp" -->

<%
'################################################
'   名称  :     
'   作成日:2003/
'   作成者:
'   目的  :
'   概要  :
'    <<表示>>
'    ・
'################################################
%>

<%
main()
Sub main()

	Dim fs, obj
	Dim MeishiDir
	Dim a, b, f1, fsize1, l1, FileName

	Dim tmpEnshuCD
	Dim tmpKaisyaCD
	Dim tmpGakuseiNo
	Dim imdatano

	a=Request.TotalBytes
	On Error Resume Next
		Err.Clear()
		b=Request.BinaryRead(a)
		If Err.Description <> "" Then
			Response.Write("エラーが発生しました。<br>ファイルサイズが大きすぎる可能性があります。<br><br>")
			Response.Write("エラーコード:")
			Response.Write(Err.Description)
			Response.Write("<br><br>")
			Response.Write("<a href=""JavaScript:history.go(-1)"">戻る</a>")
			Exit Sub
		End If
	On Error Goto 0

	set obj=server.createobject("basp21")
	fsize1=obj.FormFileSize(b,"UpFile")
	Set fs = CreateObject("Scripting.FileSystemObject")

	MeishiDir = "/" & HomeAlias & "/data/meishi"
	If Not(fs.FolderExists(Server.MapPath(MeishiDir))) Then
		fs.CreateFolder(Server.MapPath(MeishiDir))
	End If

	f1=obj.FormFileName(b,"UpFile")
	tmpEnshuCD = obj.Form(b,"tmpEnshuCD")
	tmpKaisyaCD = obj.Form(b,"tmpKaisyaCD")
	tmpGakuseiNo = obj.Form(b,"tmpGakuseiNo")
	imdatano = obj.Form(b,"imdatano")
	FileName=Mid(f1,InStrRev(f1,".")+1)	'拡張子を取り出す
	FileName = tmpEnshuCD & "_~_" & tmpKaisyaCD & "_~_" & tmpGakuseiNo & "_~_meishi" & imdatano & "." & FileName	'GakuseiNo_______meishi?.ext
	l1=obj.FormSaveAs(b,"UpFile",Server.MapPath(MeishiDir) & "\" & FileName)

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="/<% = HomeAlias %>/binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="/<% = HomeAlias %>/include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="/<% = HomeAlias %>/includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="/<% = HomeAlias %>/include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="/<% = HomeAlias %>/includesj_enc.js?<% = TimeUniq() %>"></script>
<script type=""text/javascript"" src="/<% = HomeAlias %>/javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 1;
-->
</SCRIPT>

<BODY>
<table><tr><td id="testimg">&nbsp;</td></tr></table>

<BR>
<SCRIPT LANGUAGE="JavaScript">
//	for (jj=1; jj<=wait; jj++) {
	document.all["testimg"].innerHTML='<img src="<% = MeishiDir %>/<% = FileName %>" width="0" height="0">';
//	}
	window.opener.SelectFileAdd('<% = MeishiDir %>/<% = FileName %>');
	window.close();
</SCRIPT>
</BODY>
</HTML>
<%
End Sub
%>