求解决彩票问题。收藏版6.1

kiwcs

/**************************************************************************
功能描述:        彩票兑奖
添加日期:        2004-06-14 for ChinaXajh.net
**************************************************************************/
CString CaiPiao( CString& strCookie )
{
        CString strResult, strStyle, strID, strValue, strCmd;
        CDatabase db;        CRecordset rs;        rs.m_pDatabase = &db;
        try
        {
                strStyle = GetCookie( strCookie, "Style" );
                strID = GetCookie( strCookie, "ID" );
                GetDBS();        db.OpenEx( DBS, CDatabase::noOdbcDialog );
                strCmd = "Select * from game_cph order by id DESC";
                rs.Open( AFX_DB_USE_DEFAULT_TYPE, strCmd );
                strResult = HtmlHeader( false, strStyle ) + "<p>近期彩票开奖号码</p>\r\n" + Table() + TR1();
                strResult += "<td>期号<td>开奖时间<td>开奖号码</tr>";
                int ndx = 0;
                while( !rs.IsEOF() && ndx < 7 )
                {
                        strResult += TR2();
                        rs.GetFieldValue( "id", strValue );                strResult += "<td>" + strValue;
                        rs.GetFieldValue( "dDate", strValue );        strResult += "<td>" + strValue;
                        rs.GetFieldValue( "sNumber", strValue );        strResult += "<td>" + strValue;
                        rs.MoveNext();
                        ndx ++;
                }
                rs.Close();
                strResult += "</table>\r\n";
                long nTimer = time(NULL) - 86400 * 7;
                strCmd.Format( "select * from game_cp where uin=%s and nTimer>%ld order by nTimer DESC", strID, nTimer );
                rs.Open( AFX_DB_USE_DEFAULT_TYPE, strCmd );
                strResult += "<p>你近期购买的彩票</p>\r\n" + Table() + TR1();
                strResult += "<td>购买时间<td>类型<td>单价<td>号码<td>状态<td>操作</tr>";
                while( !rs.IsEOF() )
                {
                        strResult += TR2();
                        rs.GetFieldValue( "nTimer", strValue );
                        CTime tTime( atol( strValue ) );                strResult += "<td>" + tTime.Format( "%Y-%m-%d %H:%M" );
                        rs.GetFieldValue( "sType",        strValue );        strResult += "<td>";
                        if( strValue == "n3" )
                                strResult += "神豆";
                        else if( strValue == "n10" )
                                strResult += "肉干";
                        else if( strValue == "n19" )
                                strResult += "玄冰";
                        else if( strValue == "n20" )
                                strResult += "矿石";
                        else if( strValue == "n21" )
                                strResult += "药材";
                        else if( strValue == "n22" )
                                strResult += "木材";
                        else
                                strResult += "银两";

//                        rs.GetFieldValue( "nNumber", strValue );        strResult += "<td>" + strValue;
                        rs.GetFieldValue( "nPrice", strValue );        strResult += "<td>" + strValue;
                        rs.GetFieldValue( "sNumber", strValue );        strResult += "<td>" + strValue;
                        rs.GetFieldValue( "nGet", strValue );        nTimer = atol( strValue );
                        rs.GetFieldValue( "id", strValue );
                        if( nTimer < 0 )
                                strResult += "<TD>已兑或未中奖<TD>无";//<a href=DelCaiPiao.xsl?id=" + strValue + ">删除</a>";
                        else if( nTimer > 0 )
                                strResult += "<td>中奖待兑<TD><a href=DuiCaiPiao.xsl?id=" + strValue + ">兑奖</a>";
                        else
                                strResult += "<TD>等待开奖<TD>无";
                        rs.MoveNext();
                }
                strResult += "</table>\r\n" + HtmlBottom( false, strStyle );
        }
        catch(...)
        {
                strResult = MsgBox( "L", "提示", "调用显示彩票开奖号码程序时出错。", strStyle);
        }
        rs.Close();        db.Close();
        return strResult;
}
/**************************************************************************
功能描述:        彩票兑奖
添加日期:        2004-06-17 for ChinaXajh.net
**************************************************************************/
CString DuiCaiPiao( CString& strCookie, CString& strGet )
{
        CString strResult, strID, strPID, strStyle, strCmd, strValue, strFieldName;
        strStyle = GetCookie( strCookie, "Style" );
        strID = GetCookie( strCookie, "ID" );        //自己的ID
        strPID =  GetValue( strGet, "id" );        //类型
        CDatabase db;        CRecordset rs;        rs.m_pDatabase = &db;
        try
        {
                GetDBS();
                db.OpenEx( DBS, CDatabase::noOdbcDialog );
                strCmd.Format( "select * from game_cp where id=%s", strPID );
                rs.Open( AFX_DB_USE_DEFAULT_TYPE, strCmd );
                if( rs.IsEOF() )
                        strResult = MsgBox( "L", "提示", "不存在的彩票号。", strStyle);
                else
                {
                        rs.GetFieldValue( "uin", strValue );
                        if( strValue == strID )
                        {
                                rs.GetFieldValue( "sType", strFieldName );        //类型(即字段名)
                                rs.GetFieldValue( "nGet", strValue );                //每张中奖所得
                                long nGet = atol( strValue );
                                if( nGet > 0 )
                                {
                                        strCmd.Format( "update game_cp set nGet=-nGet where id=%s", strPID );
                                        db.ExecuteSQL( strCmd );        //标志为已兑
                                        strCmd.Format( "update Y set %s=%s+%ld where id=%s", strFieldName, strFieldName, nGet, strID );
                                        db.ExecuteSQL( strCmd );        //更新数值
                                        strResult = MsgBox( "J", "提示", "兑奖成功。", strStyle);
                                }
                                else
                                        strResult = MsgBox( "L", "提示", "这张彩票没有中奖或已经兑奖。", strStyle);
                        }
                        else
                                strResult = MsgBox( "L", "提示", "这张彩票不是你的。", strStyle);
                }
        }
        catch(...)
        {
                strResult = MsgBox( "L", "提示", "调用彩票兑奖程序时出错。", strStyle);
        }
        rs.Close();        db.Close();
        return strResult;
}
数据库没错误，DLL也没错 为什么老师调用彩票就失败呢。开的是CaiPiao.xsl   有个网页连接 直接进去就出错