当前位置导航:炫浪网>>网络学院>>网页制作>>ASP教程

利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 (四)

  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。 
相关内容
赞助商链接