利用 ISAPI 实现向数据库中添加记录（四） -pc6资讯

您的位置：首页 → 精文荟萃 → 软件资讯 → 利用 ISAPI 实现向数据库中添加记录（四）

利用 ISAPI 实现向数据库中添加记录（四） 时间：2004/10/7 19:04:00来源：本站整理作者：蓝点我要评论(0)

　　　　　　　　　　　　

　　　　　　　　　　　　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。

文章评论

查看所有0条评论>>

利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （四）

利用 ISAPI 实现向数据库中添加记录（四）