<!-- #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"> </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
%>