<% @LANGUAGE="VBScript" %>
<%
if Session ("id") = "" then
Response.Redirect "error.asp?err=session"
end if
'------------------★データファイル★------------------
data_file = Server.MapPath("data.dat")
'------------------★データファイル判定★------------------
Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")
Set ObjFL = ObjFSO.GetFile(data_file)
If ObjFL.size = 0 Then
Set ObjFL = Nothing
Set ObjFSO = Nothing
Response.Redirect "error.asp?err=no_file"
end if
Set ObjFL = Nothing
Set ObjFSO = Nothing
%>
<html>
<head>
<title>作業管理システム</title>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<style type="text/css">
<!--
.mozi { font-size: 12px}
-->
</style>
</head>
<body bgcolor="#ffffff" text="#000000">
<form name="form1" method="post" action="change2.asp">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <br>
<table width="700" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td bgcolor="#0000CC">
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td colspan="10">
<div align="center"><font color="#FFFFFF"><b>作業管理表 編集</b></font></div>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" colspan="10" class="mozi"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="mozi"> </td>
<td bgcolor="#0000CC" class="mozi"><font color="#FFFFFF">最終更新日時</font></td>
<td bgcolor="#0000CC" class="mozi"><font color="#FFFFFF">修正者名</font></td>
<td bgcolor="#0000CC" class="mozi"><font color="#FFFFFF">修正項目</font></td>
<td bgcolor="#0000CC" class="mozi"><font color="#FFFFFF">修正個所</font></td>
<td bgcolor="#0000CC" class="mozi"><font color="#FFFFFF">修正内容</font></td>
<td bgcolor="#0000CC" class="mozi"><font color="#FFFFFF">サーバーUP日</font></td>
</tr>
<!--ここから繰り返し-->
<%
'------------------★データファイル読み取り★------------------
Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")
Set ObjTS = ObjFSO.OpenTextFile(data_file,1,False)
Do Until ObjTS.AtEndofStream
data_arr = ObjTS.ReadLine
data = Split(data_arr,Chr(9))
%>
<tr>
<td bgcolor="#FFFFFF" class="mozi">
<input type="radio" name="change" value="<%=data(0)%>">
</td>
<td bgcolor="#FFFFFF" class="mozi"><%=data(1)%></td>
<td bgcolor="#FFFFFF" class="mozi"><%=data(2)%></td>
<td bgcolor="#FFFFFF" class="mozi"><%=data(3)%></td>
<td bgcolor="#FFFFFF" class="mozi"><%=data(4)%></td>
<td bgcolor="#FFFFFF" class="mozi"><%=data(5)%></td>
<td bgcolor="#FFFFFF" class="mozi" colspan="4"><%=data(6)%>
<% if data(6) <> "" then Response.Write "月" %>
<%=data(7)%>
<% if data(7) <> "" then Response.Write "日" %>
</td>
</tr>
<%
Loop
ObjTS.Close
Set ObjTS = Nothing
Set ObjFSO = Nothing
%>
<!--ここまで-->
</table>
</td>
</tr>
</table>
<div align="center"><br>
<input type="submit" name="submit" value=" 編 集 ">
</div>
</td>
</tr>
</table>
</form>
</body>
</html>