<%@ Page Language="C#" %> <%@ Import namespace="System" %> <%@ Import namespace="System.IO" %> <%@ Import namespace="System.Data" %> <%@ Import namespace="System.Data.OleDb" %> <%@ Import namespace="System.Threading" %> <script language="C#" runat="server"> public void Page_Load(Object sender, EventArgs e) { const string FILEDB = "access.mdb"; int nFunc = 0; String func = Request.QueryString["func"]; if(func != null) nFunc = Int32.Parse(func); String SQL = ""; if(nFunc == 1) { //取科目汇总 SQL = "select kmdm, kmmc, qcye from account where kmfl=1 order by kmdm"; } else if(nFunc == 2) { //按科目取明细帐 String kmdm = Request.QueryString["kmdm"]; if(kmdm == null) return; SQL = "select dt, zy, pzh, j, d from mx where kmdm='" +kmdm+ "' order by pzh"; } else if(nFunc == 3) { //按凭证号取凭证 String pzh = Request.QueryString["pzh"]; if(pzh == null) return; SQL = "select mx.kmdm, account.kmmc, mx.dt, mx.zy, mx.j, mx.d, mx.cfo from mx,account where mx.pzh='" +pzh+ "' and mx.kmdm=account.kmdm order by mx.id"; } else return; //数据库 String mdbPath = Server.MapPath(FILEDB); OleDbConnection conn = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + mdbPath + ";"); OleDbDataAdapter adapter = new OleDbDataAdapter(SQL, conn); DataTable dt = new DataTable(); adapter.Fill(dt); DataSet ds = new DataSet(); ds.Tables.Add(dt); ds.WriteXml(Response.Output); //End Response.ContentType ="text/xml"; Response.CacheControl="no-cache"; Response.End(); } </script>