Example of a Web application.

Example1

Web application (CGI)

#!/usr/local/bin/pgbash
##########################################################################
#  "select1.cgi"
#
   PGDATABASE='ddddd'   # database name
   PGUSER2='uuuuu'      # database user
   PGPASSWORD2='pppp'   # database password
#  
##########################################################################
exec 2>&1
echo "Content-type:  text/html"
echo ""
set EXEC_SQL_OPTION CGI;

#--------- start HTML ----------
echo "<HTML>"
echo "<HEAD>"
echo "<META HTTP-EQUIV=Content-Language CONTENT=ja>"
echo "<META HTTP-EQUIV=Content-Type CONTENT='text/html; charset=Shift-JIS'>"
echo "</HEAD>"
echo "<BODY BGCOLOR=#DDDDDD>"

#-------- connect to DATABASE ---------
connect to $PGDATABASE user $PGUSER2 $PGPASSWORD2;

if(( SQLCODE != 0 )); then
   exit
fi

#---------- client_encoding -----------
set client_encoding='SJIS';

#------------ execute SQL -------------
select * from member;

if (( SQLCODE == 0 && SQLNTUPLE == 0 )); then
echo "<H2>Data not found.</H2>"
fi

#------- disconnect DATABASE ----------
disconnect all;

echo "</BODY>"
echo "</HTML>"

Output

userid	name	email	tel	kind	....
1220	XXXXXXX	mmmmmmmm@nifty.ne.jp	0726-76-9999	*
1249	XXXXXX	mmmmmmm@email.ne.jp	090-7103-9999	*
1217	XXXX	mmmmmmmm@nifty.ne.jp	042-571-9999	NET
1221	XXXX	mmmmm@mbg.sphere.ne.jp	0726-27-9999	*
1250	XXXX	mmmmmmm@oct.zaq.ne.jp	06-6622-9999	*
1271	XXXXX	mmmmmmmm@nifty.ne.jp	06-6872-9999	*
1222	XXXX	mmmmmmmm@nifty.ne.jp	0798-72-9999	*
1212	XXXX	mmmmmm@sannet.ne.jp	0725-20-9999	*
1203	XXXX	mmmm@computer.com	0742-40-9999	*
1223	XXXX	mmmmmmmm@nifty.ne.jp	0742-45-9999	*

Example2

HTML

<HTML>
<HEAD>
   <META HTTP-EQUIV=Content-Language CONTENT=ja>
   <META HTTP-EQUIV=Content-Type CONTENT="text/html; charset=Shift_JIS">
   <TITLE>Member list</TITLE>

   <!----------- Check inputted datas ---------------->
   <SCRIPT LANGUAGE="JAVASCRIPT">
      function SubmitCheck() {
         if( document.SELECT.colums.value == "") {
	   alert("Columns not found");
	   return false;
	 }
         if( document.SELECT.where_cond.value == "") {
	   alert("where_cond not found");
	   return false;
	 }
         if( document.SELECT.output_order.value == "") {
	   alert("output_order not found");
	   return false;
	 }
	 return true;
      }
   </SCRIPT>
</HEAD>
<BODY BGCOLOR=#EEEEEE>

<CENTER><FONT SIZE=5><B>Member list</B></FONT></CENTER>

Member list

<form name="SELECT" method=post onSubmit="return SubmitCheck()"
      action="http://xxxxx/cgi-bin/select.cgi>


　　　　 <INPUT TYPE=text NAME="colums"  
                VALUE="userid,name,email,tel,kind" SIZE=60>
colums 

　　　　 <INPUT TYPE=text NAME="where_cond"  VALUE="userid > 0" SIZE=60>
where_cond  (where)

　　　　 <INPUT TYPE=text NAME="output_order"  VALUE="spelling" SIZE=60>
output_order  (order by)

<INPUT TYPE=hidden NAME=sql_encoding VALUE="SJIS">

<INPUT TYPE=hidden NAME=sql_caption
       VALUE="<center><FONT SIZE=5><B>Member list</B></FONT></center>" >
<INPUT TYPE=hidden NAME=sql_tabletag
       VALUE="<table border=1 bgcolor=#D1EEEE cellspacing=1 cellpadding=2>" >
<INPUT TYPE=hidden NAME=sql_headertr VALUE="<tr bgcolor=#92CDCD>" >

<INPUT TYPE=hidden NAME="EXEC_SQL_PREPARE_select"
       VALUE=":colums from member where :where_cond order by :output_order">

</FORM>
</BODY>
</HTML>

EXEC_SQL_PREPARE_select <== "userid,name,email,tel,kind from member where userid > 0 order by spelling"

Web application (CGI)

#!/usr/local/bin/pgbash
##########################################################################
#  "select.cgi"
#
   PGDATABASE='ddddd'   # database name
   PGUSER2='uuuuu'      # database user
   PGPASSWORD2='pppp'   # database password
#  
##########################################################################
exec 2>&1
echo "Content-type:  text/html"
echo ""
set EXEC_SQL_OPTION CGI;

#--------- Encoding -----------
HTMLENCODING='Shift_JIS'
PGCLIENTENCODING='SJIS'

if [ -n $sql_encoding ]; then
      PGCLIENTENCODING=$sql_encoding

      if [ $sql_encoding = "SJIS" ]; then
         HTMLENCODING='Shift_JIS'
      elif [ $sql_encoding = "EUC_JP" ]; then
         HTMLENCODING='EUC-JP'
      elif [ $sql_encoding = "JIS" ]; then
         HTMLENCODING='ISO-2022-JP'
      fi
fi

##echo "2"
#--------- start HTML ----------
echo "<HTML>"
echo "<HEAD>"
echo "<META HTTP-EQUIV=Content-Language CONTENT=ja>"
echo "<META HTTP-EQUIV=Content-Type CONTENT='text/html; charset=$HTMLENCODING'>"
echo "</HEAD>"
echo "<BODY BGCOLOR=#DDDDDD>"

##echo "3"
#-------- connect to DATABASE ---------
connect to $PGDATABASE user $PGUSER2 $PGPASSWORD2;

if(( SQLCODE != 0 )); then
   exit
fi

##echo "4"
#---------- client_encoding -----------
set client_encoding='$PGCLIENTENCODING';

##echo "5"
#----------- table tag -----------------
if [ -n "$sql_caption" ]; then
   set OPTION_CAPTION='$sql_caption';
fi
set OPTION_TABLETAG='$sql_tabletag';
set OPTION_HEADERTR='$sql_headertr';

##echo "6"
#------------ execute SQL -------------
select $EXEC_SQL_PREPARE_select;

if (( SQLCODE == 0 && SQLNTUPLE == 0 )); then
echo "<H2>Data not found.</H2>"
fi

##echo "7"
#------- disconnect DATABASE ----------
disconnect all;

echo "</BODY>"
echo "</HTML>"

Output

**Member list**
userid	name	email	tel	kind
1220	XXXXXXX	mmmmmmmm@nifty.ne.jp	0726-76-9999	*
1249	XXXXXX	mmmmmmm@email.ne.jp	090-7103-9999	*
1217	XXXX	mmmmmmmm@nifty.ne.jp	042-571-9999	NET
1221	XXXX	mmmmm@mbg.sphere.ne.jp	0726-27-9999	*
1250	XXXX	mmmmmmm@oct.zaq.ne.jp	06-6622-9999	*
1271	XXXXX	mmmmmmmm@nifty.ne.jp	06-6872-9999	*
1222	XXXX	mmmmmmmm@nifty.ne.jp	0798-72-9999	*
1212	XXXX	mmmmmm@sannet.ne.jp	0725-20-9999	*
1203	XXXX	mmmm@computer.com	0742-40-9999	*
1223	XXXX	mmmmmmmm@nifty.ne.jp	0742-45-9999	*