ppp_login.ec

计费部分源程序。我认为该软件极好

#include "cgi.h"
#include <stdio.h>
char *cgiDebug;


#define INFORMIXDIR "INFORMIXDIR=/opt/informix"
#define SQLRM       "SQLRM=/opt/informix/lib/sqlrmtlitcp"
#define SQLEXEC     "SQLEXEC=/opt/informix/lib/sqlexec"

int cgiMain()
{
    $string user_id[20], password[11] ;
    char *passwd, buff[100];
	FILE *fp;

/*
	fp = fopen("/informixdir","r");
	if( fp == NULL)
	{
	  printf("open informixdir file error.\n");
	  exit(-1);
	}
	fgets(buff,fp,100);
	fclose(fp);

cgiDisplayPairs();
    putenv(buff);
*/
    putenv(INFORMIXDIR);
    putenv(SQLRM);
    putenv(SQLEXEC);
    cgiHeaderContent("text/html");
  
    $database scs_internet@ONLINE;
    if (sqlca.sqlcode <0 ) cgiPrintf(" error is %d \n",sqlca.sqlcode);
    strcpy(user_id, cgiFormGetVal("userid"));
    passwd=cgiFormGetVal("pswd");

    $ select passwd
        into $password
     from user_info
     where login_id=$user_id;

    if (!sqlca.sqlcode && !strcmp(passwd,password))
	 FetchHTMLFile("/http_dir/Web/in_10.htm",user_id);
    else{
       cgiHtmlHead("Internet查帐系统");
       cgiPrintf("你的合同号或查帐口令错误，请重新输入\n");
       cgiHtmlTail();
   }
}