Hyper Content Server エラー情報
ファイル/~Qjin/index_pc.hc?PageName=%93%C1%8FW%82%CC%95%5C%8E%A6
C:\InetPub\www.axis-works.net - users\Qjin\index_pc.hc
( C:\InetPub\www.axis-works.net - users\Qjin\ShowSpecial\Top.hc )
内　　容指定されたファイルが存在しないか、ファイルの読み込みができません。
追加情報SELECT * FROM "SpecialMsgs" WHERE ("ParentID" = 1) ORDER BY "ID" ASC

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<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" />
<!--!========== ページタイトル ==========-->
    <title><hctext hcaction="Value" hcoption="Value:Var('Title')">Title</hctext></title>
</head>
<body bgcolor="#FFFFFF" topmargin="5" marginheight="5" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('BackColor'); AttrName:'TEXT'; Value:Var('TextColor'); AttrName:'LINK'; Value:Var('LinkColor'); AttrName:'VLINK'; Value:Var('VLinkColor'); AttrName:'ALINK'; Value:Var('ALinkColor')">
<!--!========== 共通定義部分のインクルード ==========-->
    <hcblock hcaction="Include" hcoption="File:'Global.hc'"></hcblock>
<!--!========== 背景画像が指定されていれば設定 ==========-->
    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('UseBackgroundImage')">
        <hcblock hcaction="Data" hcoption="DB:Var('DB1'); Table:'TextData'; FindField:'Cate1'; FindOp:'='; FindValue:'PC用サイトで使用する画像'; FindField:'Cate2'; FindOp:'='; FindValue:'トップページ背景画像'; FindField:'SEQ'; FindOp:'='; FindValue:1; FindField:'ImagePath'; FindOp:'NotNull'; FindValue:'A'">
            <hcblock hcaction="Var" hcoption="Name:'Parent'; Value:TargetTag.Parent"></hcblock>
            <hcblock hcaction="Do" hcoption="Type:'Until'; Value:Var('Parent') = Nothing Or Var('Parent').TagName = 'TD'">
                <hcblock hcaction="Call" hcoption="Call:Var('Parent') = Var('Parent').Parent"></hcblock>
            </hcblock>
            <hcblock hcaction="Call" hcoption="Call:Var('Parent').Parameter('BACKGROUND') = FieldValue('ImagePath')"></hcblock>
        </hcblock>
    </hcblock>
<!--========== スタイルの定義 ==========-->
    <style type="text/css">
        .Header {color: #111111; background: #DDDDDD; font-size:12px;} .Data {color: #222222; background: #FFFFFF; font-size:12px;} .Field {color: #222222; background: #FFFFFF; font-size:12px; font-family:ＭＳ ゴシック, monospace}
    </style>
<!--!========== スタイルにカラーを設定する ==========-->
    <hcblock hcaction="Var" hcoption="Name:'Style'; Value:TargetTag.Parent.FindByTagName('STYLE')"></hcblock>
    <hcblock hcaction="Call" hcoption="Call:Var('Style').Text = Replace(Var('Style').Text, '12px', Var('FontSize'))"></hcblock>
    <hcblock hcaction="Call" hcoption="Call:Var('Style').Text = Replace(Var('Style').Text, '#222222', Var('DataTextColor'))"></hcblock>
    <hcblock hcaction="Call" hcoption="Call:Var('Style').Text = Replace(Var('Style').Text, '#FFFFFF', Var('DataBackColor'))"></hcblock>
    <hcblock hcaction="Call" hcoption="Call:Var('Style').Text = Replace(Var('Style').Text, '#111111', Var('HeaderTextColor'))"></hcblock>
    <hcblock hcaction="Call" hcoption="Call:Var('Style').Text = Replace(Var('Style').Text, '#DDDDDD', Var('HeaderBackColor'))"></hcblock>
<!--!========== 新規投稿が行われた場合は、新規投稿用のスクリプトを呼び出し ==========-->
    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(Param('PostNew')) <> ''">
        <hcblock hcaction="Var" hcoption="Name:'ID'; Value:NextIdentity(Var('DB1'), Var('MsgTableName'), 'ID') "></hcblock>
        <hcblock hcaction="Include" hcoption="File:'PostNew.hc'"></hcblock>
<!--!========== 画像が存在する場合、画像調整用ページに移動 ==========-->
        <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:ValidParams('FileData').Count > 0">
            <a href="index_pc.hc" hcaction="URL" hcoption="Redirect:1; ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'Edit.hc'; ParamName:'ID'; ParamValue:Var('ID'); ParamName:'EditKey'; ParamValue:Param('EditKey')"></a>
        </hcblock>
    </hcblock>
    <table border="0" cellpadding="0" cellspacing="0" width="600" align="center" hcaction="Value" hcoption="AttrName:'WIDTH'; Value:Var('Width'); AttrName:'BGCOLOR'; Value:Var('BackColor'); AttrName:'STYLE'; Value:'padding-left:' & Var('MarginWidth') & '%3B padding-right:' & Var('MarginWidth') & '%3B padding-top:' & Var('MarginHeight') & '%3B padding-bottom:' & Var('MarginHeight') & '%3B'"><tr><td><div hcaction="Value" hcoption="AttrName:'STYLE'; Value:'font-size:' & Var('FontSize') & '%3B color:' & Var('TextColor') & '%3B '">
<!--========== タイトル ==========-->
                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('TitleStyle') <> '0' And Trim(Var('Title')) <> ''">
                        <table border="0" cellpadding="0" cellspacing="0"><tr>
                                <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('TitleStyle') = '1'"><td width="7" bgcolor="#FF5050" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('TitleAccentColor')"> </td></hcblock>
                                <td width="575" bgcolor="#FFFFFF" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('PageBackColor'); AttrName:'STYLE'; Value:'color:' & Var('TextColor') & '%3B font-size:' & Var('TitleFontSize') & '%3B line-height:' & CStr(CLng(Replace(Var('TitleFontSize'), 'px', '')) + 8) & 'px%3B'; AttrName:'WIDTH'; Value:Var('Width') - 7 - (CLng(Replace(Var('MarginWidth'), 'px', '')) * 2); AttrName:'ALIGN'; Value:IIf(Var('TitleStyle') = '1', 'left', IIf(Var('TitleStyle') = '2', 'right', 'center'))"> <strong><hctext hcaction="Value" hcoption="Value:Var('Title')">タイトル</hctext></strong> </td>
                                <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('TitleStyle') = '2'"><td width="7" bgcolor="#FF5050" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('TitleAccentColor')"> </td></hcblock></tr></table>
                        <table width="580" bgcolor="#000000" border="0" cellspacing="0" cellpadding="0" hcaction="Value" hcoption="AttrName:'WIDTH'; Value:Var('Width') - (CLng(Replace(Var('MarginWidth'), 'px', '')) * 2); AttrName:'BGCOLOR'; Value:Var('TitleLineColor')"><tr><td>
                                    <table border="0" cellspacing="0" cellpadding="0"><tr><td height="2"></td></tr></table></td></tr></table>
                        <table border="0" cellpadding="0" cellspacing="0"><tr><td height="8"></td></tr></table>
                    </hcblock>
<!--!========== 追加コメント ==========-->
                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(Var('Comment')) <> ''">
                        <div style="margin-left:20px; line-height:18px;">
                            <hctext hcaction="Value" hcoption="Value:Var('Comment')">任意の追加コメント</hctext>
                            <table border="0" cellpadding="0" cellspacing="0"><tr><td height="8"></td></tr></table>
                        </div>
                    </hcblock>
<!--========== ヘッダHTML ==========-->
                    <hctext hcaction="Call" hcoption="Call:TargetTag.Value = Var('HeaderHTML')"></hctext>
<!--========== 新規投稿用フォーム ==========-->
                    <hcblock hcaction="If" hcoption="Type:'IfFalse'; Value:Var('Readonly')">
                        <table bgcolor="#000000" border="0" cellpadding="1" cellspacing="0" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('LineColor')"><tr><td>
                                    <table bgcolor="#000000" border="0" cellpadding="3" cellspacing="1" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('LineColor')">
                                        <form action="index_pc.hc" method="POST" enctype="multipart/form-data" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName')">
                                            <tr><th colspan="2" class="Header">新規投稿用フォーム</th></tr>
                                            <tr>
                                                <td class="Header">投稿者</td>
                                                <td class="Data"><input type="text" name="AuthorName" size="20" value="" class="Field" hcaction="Value" hcoption="AttrName:'VALUE'; Value:Cookie('AuthorName'); AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'" /></td>
                                            </tr>
                                            <tr>
                                                <td class="Header">メール</td>
                                                <td class="Data"><input type="text" name="Email" size="40" value="" class="Field" hcaction="Value" hcoption="AttrName:'VALUE'; Value:Cookie('Email'); AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'" /></td>
                                            </tr>
                                            <tr>
                                                <td class="Header">題 名</td>
                                                <td class="Data"><input type="text" name="Subject" size="40" class="Field" hcaction="Value" hcoption="AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'" /></td>
                                            </tr>
                                            <tr>
                                                <td class="Header">内 容</td>
                                                <td class="Data"><textarea name="MsgBody" rows="5" cols="70" class="Field" hcaction="Value" hcoption="AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'"></textarea></td>
                                            </tr>
                                            <tr>
                                                <td class="Header">リンク</td>
                                                <td class="Data"><input type="text" name="Link" size="40" value="http://" class="Field" hcaction="Value" hcoption="AttrName:'VALUE'; Value:IIf(Trim(Cookie('Link')) = '', 'http://', Cookie('Link')); AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'" /></td>
                                            </tr>
                                            <tr hcaction="If" hcoption="Type:'IfTrue'; Value:Var('EnableUpload')">
                                                <td class="Header">画像(1)</td>
                                                <td class="Data"><input type="file" name="FileData" size="40" class="Field" hcaction="Value" hcoption="AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'" /></td>
                                            </tr>
                                            <tr hcaction="If" hcoption="Type:'IfTrue'; Value:Var('EnableUpload')">
                                                <td class="Header">画像(2)</td>
                                                <td class="Data"><input type="file" name="FileData" size="40" class="Field" hcaction="Value" hcoption="AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'" /></td>
                                            </tr>
                                            <tr hcaction="If" hcoption="Type:'IfTrue'; Value:Var('EnableUpload')">
                                                <td class="Header">画像(3)</td>
                                                <td class="Data"><input type="file" name="FileData" size="40" class="Field" hcaction="Value" hcoption="AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'" /></td>
                                            </tr>
                                            <hcblock hcaction="If" hcoption="Type:'IfFalse'; Value:Var('MainteMode')">
                                                <tr hcaction="If" hcoption="Type:'IfTrue'; Value:Var('EnableEdit') Or Var('EnableDelete')">
                                                    <td class="Header">パスワード</td>
                                                    <td class="Data"><input type="password" name="EditKey" size="10" class="Field" hcaction="Value" hcoption="AttrName:'VALUE'; Value:Cookie('EditKey'); AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'" /></td>
                                                </tr>
                                            </hcblock>
                                            <tr>
                                                <td colspan="2" height="30" class="Header">
                                                    <input name="PostNew" type="submit" value=" 書き込む " />
                                                    画像が添付されている場合、画像調整用の画面に移動します。
                                                </td>
                                            </tr>
                                        </form>
                                    </table></td></tr></table>
                        <table border="0" cellpadding="0" cellspacing="0"><tr><td height="8"></td></tr></table>
                    </hcblock>
<!--========== メッセージ表示ブロック ==========-->
                    <hcblock hcaction="Data" hcoption="BlockName:'Msgs'; DB:Var('DB1'); Table:Var('MsgTableName'); FindField:'ParentID'; FindOp:'='; FindValue:0; FindField:'ID'; FindOp:'='; FindValue:Param('Only'); SortField:'LatestReply'; SortOrder:'DESC'; MaxInPage:Var('NumMsgs')">
                        <table bgcolor="#000000" border="0" cellpadding="1" cellspacing="0" width="100%" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('LineColor')"><tr><td>
                                    <table bgcolor="#000000" border="0" cellpadding="3" cellspacing="1" width="100%" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('LineColor')">
                                        <tr><td class="Data">
<!--========== サブジェクトブロック ==========-->
                                                <table width="100%" border="0" cellpadding="0" cellspacing="0">
                                                    <tr><td class="Header">
                                                            <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('ShowID') Or Var('EnableEdit') Or Var('EnableDelete')">
                                                                <font style="font-size:12px;">No.<hctext hcaction="Value" hcoption="Value:FieldValue('ID')">MsgID</hctext></font>
                                                            </hcblock>
                                                            <font style="font-size:24px;"><b><hctext hcaction="Value" hcoption="Value:FieldValue('Subject')">Subject</hctext></b></font>
                                                            <hcblock hcaction="If" hcoption="Type:'IfFalse'; Value:Var('Readonly')">
                                                                <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('UseReply')">
                                                                    <a href="index_pc.hc" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'PostReply.hc'; ParamName:'ID'; ParamValue:FieldValue('ID')">返信する</a>
                                                                </hcblock>
                                                            </hcblock>
                                                        </td></tr></table>
<!--========== 投稿者情報 ==========-->
                                                <i hcaction="If" hcoption="Type:'IfFalse'; Value:Var('Readonly')">
                                                    <b>投稿日</b>
                                                    <hctext hcaction="Value" hcoption="Value:Format(FieldValue('PostedAt'), 'yyyy年m月d日(aaa) h時n分s秒')">PostedAt</hctext>
                                                    <b>投稿者</b>
                                                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(FieldValue('Email')) <> ''">
                                                        <a href="index_pc.hc" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'Send.hc'; ParamName:'ID'; ParamValue:FieldValue('ID')"><hctext hcaction="Value" hcoption="Value:FieldValue('AuthorName')">AuthorName</hctext></a>
                                                    </hcblock>
                                                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(FieldValue('Email')) = ''">
                                                        <hctext hcaction="Value" hcoption="Value:FieldValue('AuthorName')">AuthorName</hctext>
                                                    </hcblock>
                                                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('ShowIPAddr')">
                                                        <font size="-1">[<hctext hcaction="Value" hcoption="Value:FieldValue('IPAddr')">AuthorIP</hctext>]</font>
                                                    </hcblock>
                                                </i>
<!--========== 投稿内容 ==========-->
                                                <ul>
                                                    <hcblock hcaction="Data" hcoption="DB:Var('DB1'); SQL:'SELECT [ID] FROM [' & Var('FileTableName') & '] WHERE [ParentID] = ' & FieldValue('ID')"></hcblock>
                                                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:NumDatas > 0">
                                                        <table border="0" cellspacing="3" cellpadding="0"><tr>
                                                                <hcblock hcaction="Data" hcoption="DB:Var('DB1'); SQL:'SELECT [ID] FROM [' & Var('FileTableName') & '] WHERE [ParentID] = ' & FieldValue('ID') & ' ORDER BY [ID]'">
                                                                    <td class="Data"><table bgcolor="#E0E0E0" border="0" cellpadding="0" cellspacing="0" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('PhotoBackColor')"><tr><td>
                                                                                    <table bgcolor="#E0E0E0" border="1" cellpadding="0" cellspacing="2" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('PhotoBackColor')">
                                                                                        <tr>
                                                                                            <td bgcolor="#E0E0E0" align="center" valign="middle" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('PhotoBackColor'); AttrName:'WIDTH'; Value:Var('ThumbnailSize') + 12; AttrName:'HEIGHT'; Value:Var('ThumbnailSize') + 12">
                                                                                                <a href="index_pc.hc" target="_blank" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'ShowFile.hc'; ParamName:'ID'; ParamValue:FieldValue('ID')"><img src="index_pc.hc" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'ShowFile.hc'; ParamName:'Thumbnail'; ParamValue:1; ParamName:'ID'; ParamValue:FieldValue('ID')" border="0" /></a></td>
                                                                                        </tr>
                                                                                    </table>
                                                                                </td></tr></table>
                                                                    </td></hcblock></tr></table>
                                                    </hcblock>
                                                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('EnableHTMLTag')">
                                                        <p><hctext hcaction="Call" hcoption="Call:TargetTag.Value = Replace(FieldValue('MsgBody'), CRLF, '<br />' & CRLF)">MsgBody</hctext></p>
                                                    </hcblock>
                                                    <hcblock hcaction="If" hcoption="Type:'IfFalse'; Value:Var('EnableHTMLTag')">
                                                        <p><hctext hcaction="Value" hcoption="Value:FieldValue('MsgBody')">MsgBody</hctext></p>
                                                    </hcblock>
                                                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(FieldValue('Link')) <> '' And Trim(FieldValue('Link')) <> 'http://'">
                                                        <p><a hcaction="URL" hcoption="File:FieldValue('Link')" target="_blank"><hctext hcaction="Value" hcoption="Value:FieldValue('Link')">Link</hctext></a></p>
                                                    </hcblock>
<!--========== レス・メッセージ表示ブロック ==========-->
                                                    <hcblock hcaction="Data" hcoption="DB:Var('DB1'); Table:Var('MsgTableName'); FindField:'ParentID'; FindOp:'='; FindValue:FieldValue('ID'); SortField:'ID'; SortOrder:'ASC'">
                                                        <table bgcolor="#000000" border="0" cellpadding="1" cellspacing="0" width="90%" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('LineColor')"><tr><td>
                                                                    <table bgcolor="#000000" border="0" cellpadding="3" cellspacing="0" width="100%" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('LineColor')">
                                                                        <tr><td class="Data">
<!--========== サブジェクトブロック ==========-->
                                                                                <table width="100%" border="0" cellpadding="0" cellspacing="0">
                                                                                    <tr><td class="Header">
                                                                                            <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('ShowID') Or Var('EnableEdit') Or Var('EnableDelete')">
                                                                                                <font style="font-size:12px;">No.<hctext hcaction="Value" hcoption="Value:FieldValue('ID')">MsgID</hctext></font>
                                                                                            </hcblock>
                                                                                            <font style="font-size:20px;"><b><hctext hcaction="Value" hcoption="Value:FieldValue('Subject')">Subject</hctext></b></font>
                                                                                        </td></tr></table>
<!--========== 投稿者情報 ==========-->
                                                                                <i hcaction="If" hcoption="Type:'IfFalse'; Value:Var('Readonly')">
                                                                                    <b>投稿日</b>
                                                                                    <hctext hcaction="Value" hcoption="Value:Format(FieldValue('PostedAt'), 'yyyy年m月d日(aaa) h時n分s秒')">PostedAt</hctext>
                                                                                    <b>投稿者</b>
                                                                                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(FieldValue('Email')) <> ''">
                                                                                        <a href="index_pc.hc" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'Send.hc'; ParamName:'ID'; ParamValue:FieldValue('ID')"><hctext hcaction="Value" hcoption="Value:FieldValue('AuthorName')">AuthorName</hctext></a>
                                                                                    </hcblock>
                                                                                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(FieldValue('Email')) = ''">
                                                                                        <hctext hcaction="Value" hcoption="Value:FieldValue('AuthorName')">AuthorName</hctext>
                                                                                    </hcblock>
                                                                                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('ShowIPAddr')">
                                                                                        <font size="-1">[<hctext hcaction="Value" hcoption="Value:FieldValue('IPAddr')">AuthorIP</hctext>]</font>
                                                                                    </hcblock>
                                                                                </i>
<!--========== 投稿内容 ==========-->
                                                                                <ul>
                                                                                    <hcblock hcaction="Data" hcoption="DB:Var('DB1'); SQL:'SELECT [ID] FROM [' & Var('FileTableName') & '] WHERE [ParentID] = ' & FieldValue('ID')"></hcblock>
                                                                                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:NumDatas > 0">
                                                                                        <table border="0" cellspacing="3" cellpadding="0"><tr>
                                                                                                <hcblock hcaction="Data" hcoption="DB:Var('DB1'); SQL:'SELECT [ID] FROM [' & Var('FileTableName') & '] WHERE [ParentID] = ' & FieldValue('ID') & ' ORDER BY [ID]'">
                                                                                                    <td class="Data"><table bgcolor="#E0E0E0" border="0" cellpadding="0" cellspacing="0" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('PhotoBackColor')"><tr><td>
                                                                                                                    <table bgcolor="#E0E0E0" border="1" cellpadding="0" cellspacing="2" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('PhotoBackColor')">
                                                                                                                        <tr>
                                                                                                                            <td bgcolor="#E0E0E0" align="center" valign="middle" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('PhotoBackColor'); AttrName:'WIDTH'; Value:Var('ThumbnailSize') + 12; AttrName:'HEIGHT'; Value:Var('ThumbnailSize') + 12">
                                                                                                                                <a href="index_pc.hc" target="_blank" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'ShowFile.hc'; ParamName:'ID'; ParamValue:FieldValue('ID')"><img src="index_pc.hc" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'ShowFile.hc'; ParamName:'Thumbnail'; ParamValue:1; ParamName:'ID'; ParamValue:FieldValue('ID')" border="0" /></a></td>
                                                                                                                        </tr>
                                                                                                                    </table>
                                                                                                                </td></tr></table>
                                                                                                    </td></hcblock></tr></table>
                                                                                    </hcblock>
                                                                                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('EnableHTMLTag')">
                                                                                        <p><hctext hcaction="Call" hcoption="Call:TargetTag.Value = Replace(FieldValue('MsgBody'), CRLF, '<br />' & CRLF)">MsgBody</hctext></p>
                                                                                    </hcblock>
                                                                                    <hcblock hcaction="If" hcoption="Type:'IfFalse'; Value:Var('EnableHTMLTag')">
                                                                                        <p><hctext hcaction="Value" hcoption="Value:FieldValue('MsgBody')">MsgBody</hctext></p>
                                                                                    </hcblock>
                                                                                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(FieldValue('Link')) <> '' And Trim(FieldValue('Link')) <> 'http://'">
                                                                                        <p><a hcaction="URL" hcoption="File:FieldValue('Link')" target="_blank"><hctext hcaction="Value" hcoption="Value:FieldValue('Link')">Link</hctext></a></p>
                                                                                    </hcblock>
                                                                                </ul>
                                                                            </td></tr></table>
                                                                </td></tr></table>
                                                    </hcblock>
                                                </ul>
                                            </td></tr>
                                    </table></td></tr></table>
                        <table border="0" cellpadding="0" cellspacing="0"><tr><td height="8"></td></tr></table>
                    </hcblock>
<!--========== ページコントロールバー ==========-->
                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(Param('Only')) = ''">
                        ****<hcblock hcaction="Include" hcoption="File:'/include/PageBar.hc'; ParamName:'FileName'; ParamValue:'index_pc.hc?PostNew='; ParamName:'BlockName'; ParamValue:'Msgs'" <hcblock></hcblock>****
                        <table border="0" cellpadding="0" cellspacing="0"><tr><td height="8"></td></tr></table>
                    </hcblock>
<!--!========== 投稿の編集/削除 ==========-->
                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:(Var('EnableEdit') Or Var('EnableDelete')) And (Not Var('Readonly'))">
                        <form action="index_pc.hc" method="POST" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'Edit.hc'">
                            No.<input name="ID" size="4" class="Field" hcaction="Value" hcoption="AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'" />
                            <hcblock hcaction="If" hcoption="Type:'IfFalse'; Value:Var('MainteMode')">
                                パスワード：<input type="password" name="EditKey" size="10" class="Field" hcaction="Value" hcoption="AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'" />
                            </hcblock>
                            <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('EnableEdit') Or Var('MainteMode')">
                                <input name="Edit" type="submit" value=" 編集 " />
                            </hcblock>
                            <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('EnableDelete') Or Var('MainteMode')">
                                <input name="Delete" type="submit" value=" 削除 " />
                            </hcblock>
                        </form>
                    </hcblock>
<!--========== フッタHTML ==========-->
                    <hctext hcaction="Call" hcoption="Call:TargetTag.Value = Var('FooterHTML')"></hctext>
                </div></td></tr></table>
</body>
</html>