利用 ISAPI 實現向數據庫中添加記錄（四）

2019-11-18 22:40:13

字體：大中小

來源：轉載

供稿：網友

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。

上一篇：利用 ISAPI 實現向數據庫中添加記錄（五）

下一篇：利用 ISAPI 實現向數據庫中添加記錄（三）