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