[新着] Webテンプレートを仮オープンしました
#!/usr/local/bin/perl
$contents= <<EOF;
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=EUC-JP">
<script type="text/javascript"><!--
function test(){
tmp=1;
if(tmp==1){
document.write("<a href=\"http://www.tagindex.com/index.html\">TAGindexを</a>を見ましょう。");
}else{
document.write("他にも色々調べてみましょう。");
}
}
// --></script>
</head>
<body onload="test()">
</body>
</html>
EOF
print "Content-type: text/html\n\n";
print $contents;
exit;<html><head></head><body> 本文のコンテンツ <address> <script type="text/javascript" src="./hooter.js"></script> <address> </body></html>
document.write("このサイトのトップは<a href=\"./index.html\">こちら</a>です");document.write('このサイトのトップは<a href="./index.html">こちら</a>です');document.write("<a href="http://www.tagindex.com/index.html">TAGindexを</a>を見ましょう。");