CGI-BBS > CGI > Perl > JavaScriptを使ってパラメータを渡したい


カレッヂ
カレッヂ


質問者 しー  投稿日 3/25(火) 14:13:23
print "Cntent-type: text/html\n\n";
print "<HTML>\n";
print "<HEAD>\n";

print "<SCRIPT LANGUAGE='JAVASCRIPT'>\n";
print "<!---\n";
print "function InputChk(OBJ , FR1){\n";
print "    switch( OBJ )\n";
print "    {\n";
print "    case    'ADD':\n";
print "        document.frmMain.action=FR1;\n";
print "        document.frmMain.ENCTYPE='multipart/form-data';\n";
print "        document.frmMain.method='POST';\n";
print "        document.frmMain.submit();\n";
print "        break;\n";
print "    }\n";
print "}\n";
print "//--->\n";
print "</SCRIPT>\n";

print "<META http-equiv='Content-Type' content='text/html; charset=Shift_JIS'>\n";
print "<META http-equiv='Content-Style-Type' content='text/css'>\n";
print "<TITLE></TITLE>\n";
print "</HEAD>\n";
print "<BODY TOPMARGIN='0'>\n";
print "<FORM  name='frmMain' target='F3'>\n";
print "<TABLE>\n";
print "  <TBODY>\n";
print "    <TR>\n";
print "      <TD width='120' height='20'>商品マスタ一覧</TD>\n";
print "      <TD></TD>\n";
print "      <TD width='100' height='20'></TD>\n";
print "      <TD></TD>\n";
print "      <TD width='50' height='20'></TD>\n";
print "    </TR>\n";
print "    <TR>\n";
print "      <TD width='120' height='20'></TD>\n";
print "      <TD></TD>\n";
print "      <TD width='100' height='20'></TD>\n";
print "      <TD></TD>\n";
print "      <TD width='50' height='20'></TD>\n";
print "    </TR>\n";
print "    <TR>\n";

""で囲んであるのですが、エラーで動きません。
print "      <TD width='120' height='20' align='left'><INPUT type='button' name='G_SUB01' onClick='JAVASCRIPT:InputChk(""ADD"",""$jampURL"")' value='追 加'></TD>\n";


print "      <TD></TD>\n";
print "      <TD width='100' height='20'></TD>\n";
print "      <TD width='200'></TD>\n";
print "      <TD width='50' height='20'></TD>\n";
print "    </TR>\n";
print "  </TBODY>\n";
print "</TABLE>\n";
print "<BR>\n";
print "<TABLE border='1'>\n";
print "  <TBODY>\n";
print "    <TR>\n";
print "      <TD width='40' height='20'>コード</TD>\n";
print "      <TD width='200' height='20'>名称</TD>\n";
print "      <TD width='80' height='20'>在庫数</TD>\n";
print "      <TD width='200' height='20'>備考</TD>\n";
print "    </TR>\n";
print "    <TR>\n";
print "      <TD width='40' height='20'><A href='EOS1520.pl?qryymd=$qryymd&qrymode=RPL'>01</A></TD>\n";
print "      <TD width='200' height='20'>えびせんべい</TD>\n";
print "      <TD width='80' height='20' align='right'>123456</TD>\n";
print "      <TD width='200' height='20'>何かコメント</TD>\n";
print "    </TR>\n";
print "  </TBODY>\n";
print "</TABLE>\n";
print "</FORM>\n";
print "</BODY>\n";
print "</HTML>\n";

プロバイダ参照:
サーバのOS:UNIXサーバ
パソコンのOS:WinNT系
エディタ:メモ帳
FTPソフト:ホームページビルダーの転送ソフト
サーバ移転:していない
改造:していない
CGI習熟度:(未選択)

回答者 呑兵衛@大阪  [削除]  投稿日 3/25(火) 21:09:34
× print "Cntent-type: text/html\n\n";
○ print "Content-type: text/html\n\n";
× onClick='JAVASCRIPT:InputChk(""ADD"",""$jampURL"")'
○ onClick='JAVASCRIPT:InputChk(\"ADD\",\"$jampURL\")'
◎ onClick='InputChk(\"ADD\",\"$jampURL\")'

このようなケースには(デリミタ変更)
print qq!<tag></tag>\n!; とか print qq#<tag></tag>\n#; など
もっとHTMLソースを簡単に(ヒアドキュメント)
print <<"HTML";
Content-type: text/html
  :  :
  :  :
</html>
HTML
質問者 しー  [削除]  投稿日 3/28(金) 19:07:37
ありがとうございました。

このページは終了したので返信(回答)は書きこめません
 


Web裏技