作業表閲覧

登録された作業表を、表示します。


view.asp


<% @LANGUAGE="VBScript" %>
<%
　
--------------------A

'------------------★データファイル★------------------
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">
　
<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="6">
<div align="center"><font color="#FFFFFF"><b>作業管理表</b></font></div>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" colspan="6" class="mozi">　</td>
</tr>
<tr>
<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>
<!--ここから繰り返し-->
------------------------------B
<%
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"><%=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"><%=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>
<br>
</td>
</tr>
</table>
</body>
</html>
　

--------------------A
ここではデータファイルにデータが入っているかどうかをチェックして入っていなければ（ファイルサイズが0バイトなら）エラーページに飛ばしています。

--------------------B
作業表を表示する部分です。

一行ずつループさせながら読み取り値をセットしています。

data_arr = ObjTS.ReadLine
一行読み込んだものをdata_arrに入れています。

data = Split(data_arr,Chr(9))
data_arrはデータをセットしたときと同じくタブで項目が区切られているので、Split関数で分割しています。
それをdataの配列に入れています。

前の章の例からすると

data_arr = 1　　2003/02/28 2:09:01　　kazan　　デザイン　　トップページ　　ボタンのデザイン変更　　2　　28
となっていて、これをSplitで分割してdataの配列に入れると以下のようになります。

data(0) = 1
data(1) = 2003/02/28 2:09:01
data(2) = kazan
data(3) = デザイン
data(4) = トップページ
data(5) = ボタンのデザイン変更
data(6) = 2
data(7) = 28

表示しているのが以下の部分です。
<tr>
<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"><%=data(6)%>
<% if data(6) <> "" then Response.Write "月" %>
<%=data(7)%>
<% if data(7) <> "" then Response.Write "日" %>
</td>
</tr>