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。
