| 发表于:2007-01-15 16:35:3910楼 得分:0 |
15行?是空白行呀?我的全部代码如下: <% dim conn,connstr dim db dim sql,rs dim total,i db= "database\bjgldata.mdb " '数据库文件的位置 set conn = server.createobject( "adodb.connection ") connstr= "provider=microsoft.jet.oledb.4.0;data source= " & server.mappath(db) conn.open connstr sql= "select cptable.bu代码, sum(bjck.出库金额) as 出库总额 from bjck inner join cptable on bjck.所属产品 = cptable.所属产品 group by cptable.bu代码 " set rs=server.createobject( "adodb.recordset ") rs.open sql,conn,0,1 do while not rs.eof response.write rs(0) & " <br> "& rs(1)& " <br> " rs.movenext loop rs.close set rs=nothing conn.close set conn=nothing %> | | |
|