4、ISAPI 应 用 程 序 的 编 写

　　 我 们 利 用 SQL 语 句 可 嵌 入 在 应 用 程 序 中 的 特 点， 把 SQL 的 有 关 请 求 语 句 嵌 入 在 ISAPI 交 互 程 序 中。 ISAPI 交 互 程 序 用 Visual C++ 编 写， 以 下 是 实 现 向 中 药 数 据 库 的 表 CMT1 中 添 加 记 录 的 主 要 程 序 段：

　　
　　 // 建 立 一 个 CZY 类 的 成 员 函 数 FileWrite1Entry， 实 现 向 中 药 数 据 库 的 表 CMT1 中 添 加 记 录
void CZY::FileWrite1Entry(CHttpServerContext* pCtxt, LPTSTR pstrFileName)
{
　 　 const unsigned REC_NUM=1;　 　 // REC_NUM（数据文件中记录个数）
　 　 const unsigned LINE=9;　 　 　 　 // LINE（表中数据域的个数）
　 　 const unsigned COLUMN=6000;　 　 // COLUMN（每个数据域中字符的最大个数）
　 　 char c,data[LINE][COLUMN];
　 　 FILE *fp;
　 　 StartContent(pCtxt);　 　 　 　 //HTML头格式
　 　 WriteTitle(pCtxt);　 　 　 　 　 　 //HTML标题
　 　 Cstring stringSql;
　 　 Cstring strQuery;
　 　 Cstring strOutput;
　 　 Cstring pstrZY00,pstrZY01,pstrZY02,pstrZY03,pstrZY04,pstrZY05,
　 　 　 　 　 　 pstrZY06,pstrZY07,pstrZY08;
　 　 //以"读"的方式打开文件名为pstrFileName的文件
　 　 if (!(fp = fopen (pstrFileName, "r")))
　 　 {
　 　 　 　 *pCtxt　 　 << "< center>< font color='red'>Warning: < /font>Cannot open this file.< /center>";
　 　 　 　 return;
　 　 }
　 　 //从文件中读取数据
　 　 for(int k=0; k< REC_NUM; k++)
　 　 {
　 　 　 　 for(int I=0; I< LINE; I++)
　 　 　 　 {
　 　 　 　 　 　 //忽略"{"以前的说明性字符
　 　 　 　 　 　 do{
　 　 　 　 　 　 　 　 c=getc(fp);
　 　 　 　 　 　 }while(c!='{');
　 　 　 　 　 　 //读取"{"和"}"之间的字符数据
　 　 　 　 　 　 for(int j=0; j< COLUMN; j++)
　 　 　 　 　 　 {
　 　 　 　 　 　 　 　 c=getc(fp);
　 　 　 　 　 　 　 　 if(c=='}')
　 　 　 　 　 　 　 　 {
　 　 　 　 　 　 　 　 　 　 data[I][j]='\0';
　 　 　 　 　 　 　 　 　 　 break;
　 　 　 　 　 　 　 　 }
　 　 　 　 　 　 　 　 else if((c=='\r') (c=='\n') (c=='{'))
　 　 　 　 　 　 　 　 {
　 　 　 　 　 　 　 　 　 　 j--;
　 　 　 　 　 　 　 　 }
　 　 　 　 　 　 　 　 else
　 　 　 　 　 　 　 　 {
　 　 　 　 　 　 　 　 　 　 data[I][j]=c;
　 　 　 　 　 　 　 　 }
　 　 　 　 　 　 }
　 　 　 　 }
　 　 }
　 　 fclose(fp)
　 　 //把从文件中读取的数据赋给相应的字符型变量
　 　 pstrZY00 = data[0];
　 　 pstrZY01 = data[1];
　 　 pstrZY02 = data[2];
　 　 pstrZY03 = data[3];
　 　 pstrZY04 = data[4];
　 　 pstrZY05 = data[5];
　 　 pstrZY06 = data[6];
　 　 pstrZY07 = data[7];
　 　 pstrZY08 = data[8];
　 　 //创建数据库对象
　 　 Cdatabase db;
　 　 // 确认数据
　 　 if( 　 　 !strcmp(pstrZY00,NULLSTRING) !strcmp(pstrZY01,NULLSTRING)
　 　 　 　 !strcmp(pstrZY03,NULLSTRING) !strcmp(pstrZY05,NULLSTRING)
　 　 　 　 !strcmp(pstrZY06,NULLSTRING) !strcmp(pstrZY07,NULLSTRING)
　 　 　 　 !strcmp(pstrZY08,NULLSTRING)　 　 )
　 　 {
　 　 　 　 *pCtxt　 　 < < "< br>< center>"
　 　 　 　 　 　 　 　 << "Please be certain to enter your ZY00,ZY01,ZY03,ZY05,ZY06,ZY07,ZY08. \r\n"
　 　 　 　 　 　 　 　 < < "Thank you."
　 　 　 　 　 　 　 　 < < "< /center>";
　 　 　 　 return;
　 　 }
　 　 // 格式化添加记录的条件
　 　 strQuery.Format("ZY00 = '%-.20s'", pstrZY00);
　 　 // 打开数据库对象，如果此对象不存在就退出
　 　 if(!db.Open(ZyDB, //lpszDSN
　 　 　 　 FALSE, //bExclusive
　 　 　 　 FALSE, //bReadOnly
　 　 　 　 CONNECTSTRING, //lpszConnect
　 　 　 　 FALSE)) //bUseCursorLib
　 　 {
　 　 　 　 *pCtxt < < "Could not open the database.";
　 　 　 　 return;
　 　 }
　 　 //创建RECOREDSET类的数据库表对象
　 　 CZyCMT1 rsZy(&db);
　 　 //指定格式化的添加记录的条件给表对象
　 　 rsZy.m_strFilter = strQuery;
　 　 //打开表对象，如果不能打开就CATCH异常处理
　 　 try
　 　 {
　 　 　 　 if(rsZy.Open(Crecordset::dynaset))
　 　 　 　 {
　 　 　 　 　 　 //如果想添加的记录已经存在于数据库的表中，就给出IDS_ONFILE中包含的反馈信息
　 　 　 　 　 　 if(!rsZy.IsBOF())
　 　 　 　 　 　 {
　 　 　 　 　 　 　 　 strOutput.Format(IDS_ONFILE, pstrZY00, SCRIPTPATH);
　 　 　 　 　 　 }
　 　 　 　 　 　 else
　 　 　 　 　 　 {
　 　 　 　 　 　 　 　 // 构造插入记录语句
　 　 　 　 　 　 　 　 stringSql.Format("Insert into CMT1 (ZY00,ZY01,ZY02,ZY03,ZY04,ZY05,ZY06,"
　 　 　 　 　 　 　 　 　 　 "ZY07,ZY08) VALUES('%-.20s','%-.50s','%s', '%-.80s','%s',"
　 　 　 　 　 　 　 　 　 　 "'%-.100s','%-.9s','%-.5s','%-.2s')", pstrZY00,pstrZY01, 　 　 　 　 　 　 　 　 　 　 pstrZY02,pstrZY03,pstrZY04,pstrZY05,pstrZY06,pstrZY07,pstrZY08);
　 　 　 　 　 　 　 　 //执行插入记录命令。如果成功给出IDS_THANKYOU中包含的反馈信息，
　 　 　 　 　 　 　 　 //否则CATCH异常处理
　 　 　 　 　 　 　 　 try
　 　 　 　 　 　 　 　 {
　 　 　 　 　 　 　 　 　 　 db.ExecuteSQL(stringSql);
　 　 　 　 　 　 　 　 　 　 strOutput.Format(IDS_THANKYOU, pstrZY00, SCRIPTPATH);
　 　 　 　 　 　 　 　 }
　 　 　 　 　 　 　 　 catch (CDBException* pEX)
　 　 　 　 　 　 　 　 {
　 　 　 　 　 　 　 　 　 　 TCHAR szError[1024];
　 　 　 　 　 　 　 　 　 　 if(pEX->GetErrorMessage(szError, sizeof(szError)))
　 　 　 　 　 　 　 　 　 　 　 　 strOutput.Format(IDS_EXCEPTION, szError, SCRIPTPATH);
　 　 　 　 　 　 　 　 　 　 else
　 　 　 　 　 　 　 　 　 　 　 　 strOutput.Format(IDS_UNKNOWN, SCRIPTPATH);
　 　 　 　 　 　 　 　 }
　 　 　 　 　 　 }
　 　 　 　 }
　 　 　 　 else
　 　 　 　 　 　 //如果数据库表对象不能打开，给出IDS_UNKNOWN中包含的反馈信息
　 　 　 　 　 　 strOutput.Format(IDS_UNKNOWN, SCRIPTPATH);
　 　 }
　 　 catch(CDBException* pEX)
　 　 {
　 　 　 　 TCHAR szError[1024];
　 　 　 　 if(pEX->GetErrorMessage(szError, sizeof(szError)))
　 　 　 　 　 　 strOutput.Format(IDS_EXCEPTION, szError, SCRIPTPATH);
　 　 　 　 else
　 　 　 　 　 　 strOutput.Format(IDS_UNKNOWN, SCRIPTPATH);
　 　 }
　 　 rsZy.Close();　 　 　 　 //关闭表对象
　 　 db.Close();　 　 　 　 //关闭数据库
　 　 //给用户显示反馈的信息
　 　 *pCtxt < < strOutput;
　 　 EndContent(pCtxt);　 　 //HTML尾格式
}


　　

　　 编 译 好 的 ISAPI 动 态 连 接 库 程 序 将 其 置 于 /Scripts 目 录 中。 /Scripts 是 交 互 程 序 的 虚 拟 目 录。 它 可 通 过 WWW 服 务 管 理 器 来 设 定。 当 WWW 第 一 次 被 安 装 时， 缺 省 的 ISAPI 可 执 行 的 虚 拟 目 录 是 /Scripts。