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。
