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]='