asp web 报表

-------------------ssbxd_print_ocx.asp

<html>
<head>
<title>实施费用报销单打印</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>

<%
bxd_code=request("bxd_code")

xmlTemplate = getServerHost()&"fina_template/ssbxd.xml"
cllTemplate = getServerHost()&"fina_template/ssbxd.cll"
xmlGen = getServerHost()&"shishibaoxiao/ssbxd_xml2.asp?bxd_code="&bxd_code
%>

</body>
</html>

<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--

var nRows = 0; // 记录数据库记录索引号
var nPages = 0; // 记录分页总数

function window_onload()
{
//var file = DCellWeb1.OpenFile("http://ufpmp002/xmglnet/item_weihu/fina_template/ssbxd.cll" ,"");
var file = DCellWeb1.OpenFile("<%=cllTemplate%>" ,"");
if (file<0)
{
  alert("模板文件有误！");
  return;
}

DCellWeb1.WorkbookReadonly = true;
//DCellWeb1.ShowHScroll(0, 0);
    //DCellWeb1.ShowVScroll(0, 0);

// 发送xmlHttp请求到服务器端
var xmlDom = new ActiveXObject("Microsoft.XMLDOM");
this.sender = new ActiveXObject("Microsoft.XMLHTTP");
//var str= "http://localhost/xmglnet/item_weihu/shishibaoxiao/xmltest.asp";
//var str= "http://localhost/xmglnet/item_weihu/fina_template/ssbxd2.xml";
var str= "<%=xmlGen%>";
this.sender.open("GET",str,false);
this.sender.send();
//if (this.sender.readystate==4) alert("suss");

// 从服务器得到处理后的xml对象
this.sender.responseXML.createProcessingInstruction("xml"," version=\"1.0\" encoding=\"gb2312\"");
var root = this.sender.responseXML;

// 把xml中的数据填充到cell中
root = root.childNodes[1];

if (root==null)
{
  alert("数据加载有误！");
  return;
}

//DCellWeb1.OpenFile(root.childNodes[0].text,"");       // 载入cell模板文件

//--header-----
var header = root.childNodes[1]; //node1 header
if (header==null) return;
var col,row,cdown,rdown,dtype,Name;
var datas = header.childNodes;
for(var i = 0; i< datas.length; i++)
{
  var attributes = datas[i].attributes;
  //获取数据
  col = attributes.getNamedItem("col").value;
  row = attributes.getNamedItem("row").value;
  cdown = attributes.getNamedItem("cdown").value;
  rdown = attributes.getNamedItem("rdown").value;
  dtype = attributes.getNamedItem("dtype").value;
  Name = attributes.getNamedItem("Name").value;

  if (cdown>"0"||rdown>"0")
  {
   DCellWeb1.MergeCells(col, row, parseInt(col)+parseInt(cdown), parseInt(row)+parseInt(rdown));
  }
  if(parseInt(rdown)<0)
  {
   DCellWeb1.DeleteRow(row,Math.abs(parseInt(rdown)),0);
  }
  if(parseInt(cdown)<0)
  {
   DCellWeb1.DeleteCol(col,Math.abs(parseInt(cdown)),0);
  }
  if (dtype=="d")
  {
   if (Name!="") DCellWeb1.D(col,row,0,Name);
  }
  else
  {
   DCellWeb1.S(col,row,0,Name);
  }
}

//--middle-----
nRows = 6;
var middler = root.childNodes[2]; //node1 middle
if (header==null) return;
var datas = middler.childNodes;
DCellWeb1.InsertRow(nRows, parseInt(datas.length/5)-1, 0);
for(var i = 0; i< datas.length; i++)
{
  var attributes = datas[i].attributes;
  //获取数据
  col = attributes.getNamedItem("col").value;
  row = attributes.getNamedItem("row").value;
  cdown = attributes.getNamedItem("cdown").value;
  rdown = attributes.getNamedItem("rdown").value;
  dtype = attributes.getNamedItem("dtype").value;
  Name = attributes.getNamedItem("Name").value;

  if (cdown>"0"||rdown>"0")
  {
   //alert(col);alert(row);alert(parseInt(col)+parseInt(cdown));alert(parseInt(row)+parseInt(rdown));
   DCellWeb1.MergeCells(col, row, parseInt(col)+parseInt(cdown), parseInt(row)+parseInt(rdown));
  }
  if(parseInt(rdown)<0)
  {
   DCellWeb1.DeleteRow(row,Math.abs(parseInt(rdown)),0);
  }
  if(parseInt(cdown)<0)
  {
   DCellWeb1.DeleteCol(col,Math.abs(parseInt(cdown)),0);
  }
  if (dtype=="d")
  {
   if (Name!="") DCellWeb1.D(col,row,0,Name);
  }
  else
  {
   DCellWeb1.S(col,row,0,Name);
  }

  //DCellWeb1.SetCellString(attributes.getNamedItem("col").value,
      //attributes.getNamedItem("row").value,0,attributes.getNamedItem("Name").value);
  //DCellWeb1.SetCellAlign(attributes.getNamedItem("col").value,
      //attributes.getNamedItem("row").value,0,32+4);
  nRows ++;
  //row = parseInt(attributes.getNamedItem("row").value);
  //DCellWeb1.SetRowPageBreak(7, 1)   //设置行硬分页符
  //DCellWeb1.MergeCells(1, 1, 4, 4)   //把A1:D4单元格组合

}

//--tailer-----
var tailer = root.childNodes[3]; // tailer
if (header==null) return;
var datas = tailer.childNodes;
for(var i = 0; i< datas.length; i++)
{
  var attributes = datas[i].attributes;
  //获取数据
  col = attributes.getNamedItem("col").value;
  row = attributes.getNamedItem("row").value;
  cdown = attributes.getNamedItem("cdown").value;
  rdown = attributes.getNamedItem("rdown").value;
  dtype = attributes.getNamedItem("dtype").value;
  Name = attributes.getNamedItem("Name").value;

  if (cdown>"0"||rdown>"0")
  {
   DCellWeb1.MergeCells(col, row, parseInt(col)+parseInt(cdown), parseInt(row)+parseInt(rdown));
  }
  if(parseInt(rdown)<0)
  {
   DCellWeb1.DeleteRow(row,Math.abs(parseInt(rdown)),0);
  }
  if(parseInt(cdown)<0)
  {
   DCellWeb1.DeleteCol(col,Math.abs(parseInt(cdown)),0);
  }
  if (dtype=="d")
  {
   if (Name!="") DCellWeb1.D(col,row,0,Name);
  }
  else
  {
   DCellWeb1.S(col,row,0,Name);
  }
}

//--footer-----
var footer = root.childNodes[4]; // footer
if (header==null) return;
var datas = footer.childNodes;
for(var i = 0; i< datas.length; i++)
{
  var attributes = datas[i].attributes;
  //获取数据
  col = attributes.getNamedItem("col").value;
  row = attributes.getNamedItem("row").value;
  cdown = attributes.getNamedItem("cdown").value;
  rdown = attributes.getNamedItem("rdown").value;
  dtype = attributes.getNamedItem("dtype").value;
  Name = attributes.getNamedItem("Name").value;

  if (cdown>"0"||rdown>"0")
  {
   DCellWeb1.MergeCells(col, row, parseInt(col)+parseInt(cdown), parseInt(row)+parseInt(rdown));
  }
  if(parseInt(rdown)<0)
  {
   DCellWeb1.DeleteRow(row,Math.abs(parseInt(rdown)),0);
  }
  if(parseInt(cdown)<0)
  {
   DCellWeb1.DeleteCol(col,Math.abs(parseInt(cdown)),0);
  }
  if (dtype=="d")
  {
   if (Name!="") DCellWeb1.D(col,row,0,Name);
  }
  else
  {
   DCellWeb1.S(col,row,0,Name);
  }
}
//--footer
}

window.attachEvent("onload", window_onload);
//-->
</SCRIPT>

<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--

Sub btn_about_onclick
DCellWeb1.AboutBox
End Sub

Sub btn_saveas_onclick
DCellWeb1.SaveFile
End Sub

Sub btn_printview_onclick
DCellWeb1.PrintPreview 1,DCellWeb1.GetCurSheet

End Sub

Sub btn_print_onclick

//DCellWeb1.PrintPara 1, 1, 1, 1
//DCellWeb1.PrintLabel 1, 1
DCellWeb1.PrintSheet 1,DCellWeb1.GetCurSheet
End Sub

Sub btn_open_onclick
DCellWeb1.WorkbookReadonly = True
DCellWeb1.ShowHScroll 0, 0
DCellWeb1.ShowVScroll 0, 0
//DCellWeb1.OpenFile "http://ufpmp002/xmglnet/item_weihu/fina_template/实施费用报销5.cll" ,""
DCellWeb1.OpenFile "/fina_template/clbxd.cll" ,""
End Sub

Sub DCellWeb1_MouseLClick(col, row, updn)
//If col=1 And row=1 And updn = 0 then
MsgBox("打印格式已经调试好，请不要再调整，请将凭证打印纸（210mm×133mm）放入打印机")
//End If
End Sub

-->
</SCRIPT>
<%
sub getnodes(node)
dim i
response.write("<br><b>NodeName:</b>"&node.nodename&"<br><b>NodeTypeString:</b>"&node.nodetypestring&"<br><b>NodeValue:</b>"&node.nodevalue&"<br><b>Text:</b>"&node.text&"<br><b>node.childnodes.length:</b>"&node.childnodes.length&"<p>")

if node.childnodes.length<>0 then
  for i=0 to node.childnodes.length-1
   getnodes(node.childnodes(i))
  next
end if
end sub
%>

-------------------------------ssbxd_xml2.asp
<%
' 生成xml文件对象
set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = false
' 载入xml模板
returnval = xmlDoc.Load(Server.MapPath("../fina_template/ssbxd.xml"))
if not returnval then
response.Write("XML文件加载失败！")
end if

//5把xml对象发送给客户端
Response.ContentType="text/xml"
temp = Session.CodePage
Session.CodePage = 65001
Response.ContentType = "text/xml; charset=utf-8"

Response.Write(xmlDoc.xml)
Session.CodePage = temp
Response.End

%>
----------------------------------------ssbxd_xml.asp

<%
bxd_code = Request("bxd_code")
'bxd_code = 506
'bxd_code = 212
sql_header = " select case a.bx_type when '0' then '有效人天' else '指定项目' end as bx_typename,"& _
  " isnull(bx_type,'1') as bx_type,b.ssbname,a.sp_id,c.sp_name as bxr"& _
  " from ssbxd_info a"& _
  " left join xm_subssb b on a.ssbcode=b.ssbcode"& _
  " left join xm_member c on c.sp_id=a.sp_id"& _
  " where a.bxd_code='"&bxd_code&"'"
set rs_header = cn.execute(sql_header)
if rs_header.eof then aspalert("1sql_header数据有误!")

bx_type = rs_header("bx_type")

if bx_type = 1 then
'bx_type=1指定项目
sql_middler = "select a.fyname,c.itemname, "&_
  " isnull(b.money,0) as je,b.cost_desc,b.ysxm,a.rdown "&_
  " from (select bxd_code,fyname,count(bxd_code) as rdown "&_
  " from shishi_bxd "&_
  " where bxd_code = '"&bxd_code&"' "&_
  " group by bxd_code,fyname) a "&_
  " left join shishi_bxd b on a.bxd_code=b.bxd_code and a.fyname=b.fyname "&_
  " left join xm_item c on b.xmxh=c.xh "&_
  " order by a.fyname "
else
sql_middler = " select a.fyname,isnull(d.itemname,'公共项目') as itemname, "& _
   " cast(isnull(c.money*b.worktime/isnull(b.workday,1),0) as dec(19,2)) as je,c.cost_desc,c.ysxm,a.rdown "& _
  " from ( "& _
   " select bxd_code,fyname,count(bxd_code) as rdown   "& _
   " from dbo.uf_ssbxdtb('"&bxd_code&"') "& _
   " group by bxd_code,fyname) a "& _
   " left join dbo.uf_ssbxdtb('"&bxd_code&"') b on a.bxd_code=b.bxd_code and a.fyname=b.fyname "& _
  " left join shishi_bxd c on c.bxd_code=b.bxd_code and c.fyname=b.fyname and c.fromdate=b.fromdate and c.todate=b.todate "& _
   " left join xm_item d on b.xmxh=d.xh "& _
  " order by a.fyname "
end if

set rs_middler = cn.execute(sql_middler)
if rs_middler.eof then aspalert("2sql_middler数据有误!")

sql_tailer = "select ssjl_spr,caiwu_spr,isnull(yujie,0) as yujienew,"& _
   " isnull(yhyujie,0) as yhyujienew,je ,jl_spr ,sp_flag,cwjl_spr,sp_id "& _
   " from ssbxd_info a "& _
   " left join (select bxd_code,sum(money) as je from shishi_bxd "&_
   " where bxd_code='"&bxd_code&"' group by bxd_code) b on a.bxd_code=b.bxd_code "& _
   " where a.bxd_code='"&bxd_code&"'"
set rs_tailer = cn.execute(sql_tailer)
if rs_tailer.eof then aspalert("3sql_tailer数据有误!")

' 生成xml文件对象
set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = false
' 载入xml模板
returnval = xmlDoc.Load(Server.MapPath("../fina_template/ssbxd.xml"))
if not returnval then
aspalert("XML文件加载失败！")
end if

//0表的固定格式关系
rowheader = 4
rowmiddler = rowheader + 1
rowtailer = rowmiddler + 2
rowfooter = rowtailer + 2

//1表头数据,选择Header节点,把指定的数据库数据装入xml
set xmlheader = xmldoc.selectsinglenode("//Header")
Set data = xmlheader.getElementsByTagName("Data")
data.Item(0).attributes.item(5).value = rs_header("ssbname")&"费用报销单"
data.Item(1).attributes.item(5).value = "部门："&rs_header("ssbname")
data.Item(2).attributes.item(5).value = "报销人："&rs_header("bxr")
data.Item(3).attributes.item(5).value = "报销方式："&rs_header("bx_typename")
data.Item(4).attributes.item(5).value = "编号："&bxd_code

//2数据节点,选择Middler节点,把指定的数据库数据装入xml
set xmlmiddler = xmldoc.selectsinglenode("//Middler")

column_count = rs_middler.fields.count

for i=0 to 4
Set newNode = xmlmiddler.childNodes.item(i)
newNode.setAttribute "row",rowmiddler
newNode.setAttribute "col",i+1
newNode.setAttribute "rdown",iif(rs_middler(i).name="fyname",rs_middler("rdown")-1,0)
newNode.setAttribute "cdown",0
newNode.setAttribute "dtype",iif(rs_middler(i).name="je","d","s")
newNode.setAttribute "Name",cnull(rs_middler(i).value)
next

fyname = rs_middler("fyname")
rs_middler.movenext
rowmiddler = rowmiddler+1

while not rs_middler.eof

for i=0 to 4
  set newNode = newNode.cloneNode(true)
  newNode.setAttribute "row",rowmiddler
  newNode.setAttribute "col",i+1
  newNode.setAttribute "rdown",iif((rs_middler(i).name="fyname") and (rs_middler("fyname")<>fyname),rs_middler("rdown")-1,0)
  newNode.setAttribute "cdown",0
  newNode.setAttribute "dtype",iif(rs_middler(i).name="je","d","s")
  newNode.setAttribute "Name",cnull(rs_middler(i).value)

  xmlmiddler.appendChild(newNode)
next

rowmiddler = rowmiddler+1
fyname = rs_middler("fyname")
rs_middler.movenext
wend

//3表尾数据,选择Tailer节点,把指定的数据库数据装入xml
set xmltailer = xmldoc.selectsinglenode("//Tailer")
rowtailer = rowmiddler + 1
set newNode = xmltailer.childNodes.item(0) '金额大写
newNode.setAttribute "row",rowtailer
newNode.setAttribute "Name",y_big_write(rs_tailer("je"))
set newNode = xmltailer.childNodes.item(1) '金额小写
newNode.setAttribute "row",rowtailer
newNode.setAttribute "Name",rs_tailer("je")

rowtailer = rowtailer + 1
set newNode = xmltailer.childNodes.item(2) '现金预借
newNode.setAttribute "row",rowtailer
newNode.setAttribute "Name",iif(rs_tailer("yujienew")<=0.001,"",rs_tailer("yujienew"))
set newNode = xmltailer.childNodes.item(3) '银行预借
newNode.setAttribute "row",rowtailer
newNode.setAttribute "Name",iif(rs_tailer("yhyujienew")<=0.001,"",rs_tailer("yhyujienew"))

rowtailer = rowtailer + 1
buling = rs_tailer("je")-rs_tailer("yhyujienew")-rs_tailer("yujienew")
set newNode = xmltailer.childNodes.item(4) '补领金额
newNode.setAttribute "row",rowtailer
newNode.setAttribute "Name",iif(buling>0.001,buling,"")
set newNode = xmltailer.childNodes.item(5) '退还金额
newNode.setAttribute "row",rowtailer
newNode.setAttribute "Name",iif(buling<0.0,-buling,"")

//4表脚数据,选择Footer节点,把指定的数据库数据装入xml
set xmlfooter = xmldoc.selectsinglenode("//Footer")
rowfooter = rowtailer + 2
set newNode = xmlfooter.childNodes.item(0) '上级主管..
newNode.setAttribute "row",rowfooter
ssjl_spr = iif(rs_tailer("sp_flag")=1,"",getsp_name(rs_tailer("ssjl_spr")))
newNode.setAttribute "Name","上级主管："&getsp_name(rs_tailer("jl_spr"))&space(33-lenb(getsp_name(rs_tailer("jl_spr"))))&"部门经理："&ssjl_spr&space(35-lenb(ssjl_spr))&"财务经理："&getsp_name(rs_tailer("cwjl_spr"))
set newNode = xmlfooter.childNodes.item(1) '会计..
newNode.setAttribute "row",rowfooter+1
newNode.setAttribute "Name","会计："&space(37)&"出纳："&getsp_name(rs_tailer("caiwu_spr"))&space(38-lenb(getsp_name(rs_tailer("caiwu_spr"))))&"领款人："&getsp_name(rs_tailer("sp_id"))
set newNode = xmlfooter.childNodes.item(2) '打印日期
newNode.setAttribute "row",rowfooter+2
newNode.setAttribute "Name",space(86)&"打印日期："&date

//5把xml对象发送给客户端
Response.ContentType="text/xml"
temp = Session.CodePage
Session.CodePage = 65001
Response.ContentType = "text/xml; charset=utf-8"

Response.Write(xmlDoc.xml)
Session.CodePage = temp
Response.End

https://files.cnblogs.com/shuang/ASP报表设计源码.rar