<%@ Language=VBScript %> <% '************************************************************* 'ファイル名：jisseki_Disp.asp '内容 ：ユーザー用実績初期情報画面 '作成日 ：2004年01月08日 '作成者 ：�潟uレインワークス（NIKI） '************************************************************* '呼び元 ：jisseki_Disp.asp '************************************************************* %> <% On Error Resume Next %> <% Response.Buffer=true %> <% '=================================================== '変数定義 '=================================================== dim Data1,Data2,Data3,Data4 dim Data5,Data6 'point1 dim Data7,Data8 'point2 dim Data9,Data10 'point3 dim Data11,Data12 'point4 dim Data13,Data14 dim Data15,Data16 dim Data17,Data18 dim Select1 'Noコンボ dim FolderCNT 'フォルダ数 dim FilePath 'ファイルパス dim syori '処理 dim TargetFolder '処理対象フォルダ dim MaxFolder '最新フォルダを格納する（現在登録最大ﾌｫﾙﾀﾞ) dim Errflg 'エラーフラグ dim FileName,TemFAILE(18),TFAILE(18) '************************************************************************ '起動時に実行する処理 '************************************************************************ '主処理の実行 call MainProc '************************************************************************ '処理概要：主処理 '関数名　：MainProc '引数　　：なし '************************************************************************ sub MainProc '====================================== 'ファイル名格納 初期設定 '====================================== TFAILE(1) = TEXTFILE_NAME1 TFAILE(2) = TEXTFILE_NAME2 TFAILE(3) = TEXTFILE_NAME3 TFAILE(4) = TEXTFILE_NAME4 TFAILE(5) = TEXTFILE_NAME5 TFAILE(6) = TEXTFILE_NAME6 TFAILE(7) = TEXTFILE_NAME7 TFAILE(8) = TEXTFILE_NAME8 TFAILE(9) = TEXTFILE_NAME9 TFAILE(10) = TEXTFILE_NAME10 TFAILE(11) = TEXTFILE_NAME11 TFAILE(12) = TEXTFILE_NAME12 TFAILE(13) = TEXTFILE_NAME13 TFAILE(14) = TEXTFILE_NAME14 TFAILE(15) = TEXTFILE_NAME15 TFAILE(16) = TEXTFILE_NAME16 TFAILE(17) = TEXTFILE_NAME17 TFAILE(18) = TEXTFILE_NAME18 TemFAILE(1) = TEMPFILE_NAME1 TemFAILE(2) = TEMPFILE_NAME2 TemFAILE(3) = TEMPFILE_NAME3 TemFAILE(4) = TEMPFILE_NAME4 TemFAILE(5) = TEMPFILE_NAME5 TemFAILE(6) = TEMPFILE_NAME6 TemFAILE(7) = TEMPFILE_NAME7 TemFAILE(8) = TEMPFILE_NAME8 TemFAILE(9) = TEMPFILE_NAME9 TemFAILE(10) = TEMPFILE_NAME10 TemFAILE(11) = TEMPFILE_NAME11 TemFAILE(12) = TEMPFILE_NAME12 TemFAILE(13) = TEMPFILE_NAME13 TemFAILE(14) = TEMPFILE_NAME14 TemFAILE(15) = TEMPFILE_NAME15 TemFAILE(16) = TEMPFILE_NAME16 TemFAILE(17) = TEMPFILE_NAME17 TemFAILE(18) = TEMPFILE_NAME18 '=================================================== '画面データを変数に格納 '=================================================== Data1 = GetNumber(trim(Request.form("Data1"))) Data2 = trim(Request.form("Data2")) Data3 = trim(Request.form("Data3")) Data4 = trim(Request.form("Data4")) Data5 = trim(Request.form("Data5")) Data6 = trim(Request.form("Data6")) Data7 = trim(Request.form("Data7")) Data8 = trim(Request.form("Data8")) Data9 = trim(Request.form("Data9")) Data10 = trim(Request.form("Data10")) Data11 = trim(Request.form("Data11")) Data12 = trim(Request.form("Data12")) Data13 = trim(Request.form("Data13")) Data14 = trim(Request.form("Data14")) Data15 = trim(Request.form("Data15")) Data16 = trim(Request.form("Data16")) Data17 = trim(Request.form("Data17")) Data18 = trim(Request.form("Data18")) 'Select1= trim(Request.form("Select1")) if trim(Request.form("cmdDisp"))<>"" then syori = trim(Request.form("cmdDisp")) if trim(Request.form("cmdBack"))<>"" then syori = trim(Request.form("cmdBack")) '入力データをセッションに格納する call G_SetSessionData_Jisseki '=================================================== '処理分岐 '=================================================== select case syori case "表示" call Dispsyori case "戻る" FilePath = "../" & URL_INDEX response.redirect FilePath end select end sub '************************************************************************ '処理概要：表示ボタン押下時関数 '関数名　：Dispsyori '引数　　：なし '************************************************************************ sub Dispsyori dim re 'ターゲットフォルダを設定する Select1= right(trim(Request.form("Select1")),len(trim(Request.form("Select1")))-3) Session.Contents(SESS_TARGET_FOLDER_NM)=Select1 TargetFolder=Select1 '入力チェック if InputCheck(syori) = false then exit sub 'テキストファイルを読込み if ReadTextFile=false then exit sub '画像用データ取得 Data5 = G_GetImageFile(FilePath,IMAGEFILE_NAME1,ErrFlg) ' if Data5<>"" then Data5 = FilePath & "\" & Data5 if Data5<>"" then Data5 = "../" & TEXTFILE_PATH_G & TargetFolder & "/" & Data5 Data7 = G_GetImageFile(FilePath,IMAGEFILE_NAME2,ErrFlg) ' if Data7<>"" then Data7 = FilePath & "\" & Data7 if Data7<>"" then Data7 = "../" & TEXTFILE_PATH_G & TargetFolder & "/" & Data7 Data9 = G_GetImageFile(FilePath,IMAGEFILE_NAME3,ErrFlg) ' if Data9<>"" then Data9 = FilePath & "\" & Data9 if Data9<>"" then Data9 = "../" & TEXTFILE_PATH_G & TargetFolder & "/" & Data9 Data11= G_GetImageFile(FilePath,IMAGEFILE_NAME4,ErrFlg) ' if Data11<>"" then Data11= FilePath & "\" & Data11 if Data11<>"" then Data11 = "../" & TEXTFILE_PATH_G & TargetFolder & "/" & Data11 '取得データをセッションに格納する Session.Contents(SESS_PROC_MODE) = PMODE_EDIT Session.Contents(SESS_TARGET_FOLDER_NM) = TargetFolder Session.Contents(SESS_DATA1) = Data1 Session.Contents(SESS_DATA2) = Data2 Session.Contents(SESS_DATA3) = Data3 Session.Contents(SESS_DATA4) = Data4 Session.Contents(SESS_DATA5) = Data5 Session.Contents(SESS_DATA6) = Data6 Session.Contents(SESS_DATA7) = Data7 Session.Contents(SESS_DATA8) = Data8 Session.Contents(SESS_DATA9) = Data9 Session.Contents(SESS_DATA10) = Data10 Session.Contents(SESS_DATA11) = Data11 Session.Contents(SESS_DATA12) = Data12 Session.Contents(SESS_DATA13) = Data13 Session.Contents(SESS_DATA14) = Data14 Session.Contents(SESS_DATA15) = Data15 Session.Contents(SESS_DATA16) = Data16 Session.Contents(SESS_DATA17) = Data17 Session.Contents(SESS_DATA18) = Data18 '実績情報処理画面に戻って再表示 FilePath = "../" & URL_USR_JISSEKI_SYORI response.redirect FilePath end sub '************************************************************************ '処理概要：入力チェック関数 '関数名　：InputCheck '引数　　：strMode "表示" "登録" "編集" "削除" '************************************************************************ function InputCheck(strMode) dim msg On Error Resume Next InputCheck = false select case strMode '================================================================ case "表示" '================================================================ 'コンボボックス未選択のとき if SELECT1 = JISSEKI_INIT_NM then '登録データがない場合、何もせずに戻る if Session.Contents(SESS_FOLDER_CNT)=0 or _ Session.Contents(SESS_FOLDER_CNT)="" then FilePath = "../" & URL_USR_JISSEKI_SYORI response.redirect FilePath exit function '登録データがある場合(コンボボックス選択済みのとき) else msg = msg & MSG1007 end if end if end select '---------------------------------- if msg <> "" then ShowMessage msg, URL_USR_JISSEKI_SYORI exit function end if InputCheck=true end function '************************************************************************ '処理概要：テキストファイルの読込み関数 '関数名　：ReadTextFile '引数　　：なし '************************************************************************ function ReadTextFile() dim objFS,objText,objFile dim url,root dim FileName,FilePath dim DataArray(18),TitleArray(18) dim CNT,Data,TitleNM,ReadData dim wTitle On Error Resume Next ReadTextFile = false for i= 1 to 18 FilesNO(18)=0 next 'テキストファイル読込み(ターゲットフォルダは既に設定済みとする:TargetFolder) ' url=request.servervariables("URL") ' root = left(url,instr(2,url,"/")) for i=1 to 12 if i<>5 or i<>7 or i<>9 or i<>11 then FilePath = server.mappath("/") & "\" & TEXTFILE_PATH FilePath = FilePath & "\" & TargetFolder & "\" & TFAILE(i) '---->初期に設定済み set objFS = CreateObject("Scripting.filesystemObject") set objFile = objFS.OpenTextFile(FilePath,1,0) FilesNO(i)=i 'レコード読込み Data ="" ReadData = Trim(objFile.ReadAll) DataArray(cint(i))=HtmlCrLf(ReadData) objText.close set objFS = nothing set objFile = nothing end if next '読込みデータを変数に格納する Data1 = DataArray(1) Data2 = DataArray(2) Data3 = DataArray(3) Data4 = DataArray(4) Data5 = DataArray(5) Data6 = DataArray(6) Data7 = DataArray(7) Data8 = DataArray(8) Data9 = DataArray(9) Data10 = DataArray(10) Data11 = DataArray(11) Data12 = DataArray(12) Data13 = DataArray(13) Data14 = DataArray(14) Data15 = DataArray(15) Data16 = DataArray(16) Data17 = DataArray(17) Data18 = DataArray(18) ReadTextFile = true end function %>