mxb-b.rsp

1、本系统采用B/S架构

<?xml version='1.0' encoding='GB2312' ?>

<!DOCTYPE report SYSTEM 'print_report.dtd' >

 <report name='报表'>

<report_script><![CDATA[

dim rs,con,DBPath
	dim temp

	set con =CreateObject("ADODB.Connection")
	con.ConnectionString = "DBQ=d:\a3\cjtj\cjtj\2001s.mdb;DRIVER={Microsoft Access Driver (*.mdb)};"
	con.open
	Set rs=CreateObject("ADODB.Recordset")
rs.open "select 姓名,语文,数学 from xxcjxxda where 学校='"+Request1("xx")+"' and 年级='"+Request1("nj")+"' and 班级='"+Request1("bb")+"' order by 学号",con,1,3
]]></report_script>

<report_head height='12'>

<text name='vfptext' top='3' left='75' width='26' height='5'  font_name='宋体' font_size='14' font_weight='700' font_italic='0' font_underline='0' >

学生成绩明细表

</text>
<text name='vfptext' top='10' left='12' width='6' height='3'  font_name='宋体' font_size='9' font_weight='700' font_italic='0' font_underline='0' >
<report_script> 

Report.Write cstr(Request1("xx")+Request1("nj")+"级"+Request1("bb")+"班")

</report_script>

</text>


</report_head>

<page_head height='13'>


<line name='vfpline' top='5' left='8' width='178' height='0'  weight='2'>

</line>

<line name='vfpline' top='12' left='8' width='178' height='0'  weight='2'>

</line>

<text name='vfptext' top='7' left='18' width='6' height='3'  font_name='宋体' font_size='9' font_weight='700' font_italic='0' font_underline='0' >

姓名

</text>

<text name='vfptext' top='7' left='45' width='6' height='3'  font_name='宋体' font_size='9' font_weight='700' font_italic='0' font_underline='0' >

语文

</text>

<text name='vfptext' top='7' left='71' width='6' height='3'  font_name='宋体' font_size='9' font_weight='700' font_italic='0' font_underline='0' >

数学

</text>


<text name='vfptext' top='7' left='163' width='6' height='3'  font_name='宋体' font_size='9' font_weight='700' font_italic='0' font_underline='0' >

合计

</text>

<text name='vfptext' top='7' left='130' width='6' height='3'  font_name='宋体' font_size='9' font_weight='700' font_italic='0' font_underline='0' >

平均

</text>

</page_head>

<page_body height='6'>

<text name='vfptext' top='2' left='15' width='25' height='4'  font_name='宋体' font_size='9' font_weight='100' font_italic='0' font_underline='0' >

<report_script> 

	Report.Write cstr(rs("姓名"))

</report_script>

</text>

<text name='vfptext' top='2' left='45' width='18' height='4'  font_name='宋体' font_size='9' font_weight='100' font_italic='0' font_underline='0' >

<report_script> 

	Report.Write cstr(rs("语文"))

</report_script>

</text>

<text name='vfptext' top='2' left='71' width='18' height='4'  font_name='宋体' font_size='9' font_weight='100' font_italic='0' font_underline='0' >

<report_script> 

	Report.Write cstr(rs("数学"))

</report_script>

</text>

<text name='vfptext' top='2' left='130' width='18' height='4'  font_name='宋体' font_size='9' font_weight='100' font_italic='0' font_underline='0' >

<report_script> 

	Report.Write cstr((rs("语文")+rs("数学"))/2)

</report_script>

</text>

<text name='vfptext' top='2' left='161' width='18' height='4'  font_name='宋体' font_size='9' font_weight='100' font_italic='0' font_underline='0' >

<report_script> 

	Report.Write cstr(rs("语文")+rs("数学"))

</report_script>

</text>

</page_body>

<page_foot height='7'>

<text name='vfptext' top='2' left='12' width='13' height='3'  font_name='宋体' font_size='9' font_weight='100' font_italic='0' font_underline='0' >

<report_script> 

	report.write "打印日期:"+formatdatetime(date(),1)

</report_script>

</text>

<text name='vfptext' top='2' left='137' width='50' height='3'  font_name='宋体' font_size='9' font_weight='100' font_italic='0' font_underline='0' >

共%Pages%页,第%Page%页

</text>

<line name='vfpline' top='0' left='8' width='178' height='0'  weight='2'>

</line>

</page_foot>

<report_script>

do while not rs.eof
			page_body()
			rs.movenext
		loop
		rs.close
		set rs=nothing
		con.close
		set con=nothing

</report_script>



</report>