4、ISAPI 应 用 程 序 的 编 写
我 们 利 用 SQL 语 句 可 嵌 入 在 应 用 程 序 中 的 特 点， 把
SQL 的 有 关 请 求 语 句 嵌 入 在 ISAPI 交 互 程 序 中。 ISAPI 交 互 程
序 用 Visual C++ 编 写， 以 下 是 实 现 向 中 药 数 据 库 的 表 CMT1 中
添 加 记 录 的 主 要 程 序 段：
// 建 立 一 个 CZY 类 的 成 员 函 数 FileWrite1Entry， 实 现 向 中
药 数 据 库 的 表 CMT1 中 添 加 记 录
void CZY::FileWrite1Entry(CHtt erverContext* pCtxt, LPTSTR trFileName)
{
co t u igned REC_NUM=1; // REC_NUM（数据文件中记录个数）
co t u igned LINE=9; // LINE（表中数据域的个数）
co t u igned COLUMN=6000; // COLUMN（每个数据域中字符的最大个数）
char c,data[LINE][COLUMN];
FILE *f
StartContent(pCtxt); //HTML头格式
WriteTitle(pCtxt); //HTML标题
Cstring stringSql;
Cstring strQuery;
Cstring strOutput;
Cstring trZY00, trZY01, trZY02, trZY03, trZY04, trZY05,
trZY06, trZY07, trZY08;
//以"读"的方式打开文件名为 trFileName的文件
if (!(fp = fopen ( trFileName, "r")))
{
*pCtxt < lt; " lt; center> lt; font
color='red'>Warning: < /font>Ca ot open this file.< /center> quot
retur
}
//从文件中读取数据
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< COLUM 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)
//把从文件中读取的数据赋给相应的字符型变量
trZY00 = data[0];
trZY01 = data[1];
trZY02 = data[2];
trZY03 = data[3];
trZY04 = data[4];
trZY05 = data[5];
trZY06 = data[6];
trZY07 = data[7];
trZY08 = data[8];
//创建数据库对象
Cdatabase d
// 确认数据
if( !strcmp( trZY00,NULLSTRING) || !strcmp( trZY01,NULLSTRING)||
!strcmp( trZY03,NULLSTRING) || !strcmp( trZY05,NULLSTRING)||
!strcmp( trZY06,NULLSTRING) || !strcmp( trZY07,NULLSTRING)||
!strcmp( trZY08,NULLSTRING) )
{
*pCtxt < < " lt; br> lt; center> quot;
< lt; " lease be certain to enter your
ZY00,ZY01,ZY03,ZY05,ZY06,ZY07,ZY08. \r\ quot;
< < "Thank you."
< < " lt; /center> quot
retur
}
// 格式化添加记录的条件
strQuery.Format("ZY00 = '%-.20s'", trZY00);
// 打开数据库对象，如果此对象不存在就退出
if(!db.Open(ZyDB, //l zD
FALSE, //bExclusive
FALSE, //bReadOnly
CO ECTSTRING, //l zCo ect
FALSE)) //bUseCursorLib
{
*pCtxt < < "Could not open the database."
retur
}
//创建RECOREDSET类的数据库表对象
CZyCMT1 rsZy(&am db);
//指定格式化的添加记录的条件给表对象
rsZy.m_strFilter = strQuery;
//打开表对象，如果不能打开就CATCH异常处理
try
{
if(rsZy.Open(Crecordset::dynaset))
{
//如果想添加的记录已经存在于数据库的表中，就给出IDS_ONFILE中包含的反馈信息
if(!rsZy.I OF())
{
strOutput.Format(IDS_ONFILE, trZY00, SCRIPTPATH);
}
else
{
// 构造插入记录语句
stringSql.Format("I ert into CMT1
(ZY00,ZY01,ZY02,ZY03,ZY04,ZY05,ZY06,"
"ZY07,ZY08) VALUES('%-.20s','%-.50s','%s',
'%-.80s','%s',"
"'%-.100s','%-.9s','%-.5s','%-.2s')",
trZY00, trZY01,
trZY02, trZY03, trZY04, trZY05, trZY06, trZY07, trZY08);
//执行插入记录命令。如果成功给出IDS_THANKYOU中包含的反馈信息，
//否则CATCH异常处理
try
{
db.ExecuteSQL(stringSql);
strOutput.Format(IDS_THANKYOU, trZY00,
SCRIPTPATH);
}
catch (CDBException* pEX)
{
TCHAR szError[1024];
if(pEX->GetErrorMe age(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->GetErrorMe age(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。
