用VML技术实现统计图形的绘制(考试系统中的试卷分析模块)

这个地方我们用VML来显示试卷的难度系数的波动曲线图

下面是本页面的全部代码

papername=requeststr("papername")'这个是我自己写的函数,相当于request.from()

address=requeststr("class")

<head>

self.moveTo(10,0)

</script>

<STYLE>

v\:* { BEHAVIOR: url(#default#VML) }

</STYLE>

function drawLines()

{

var count=0;//画横坐标

for(var i=0;i<=60;i++){

var px=200+73*i;

var newLine = document.createElement("<v:line from='"+px+" 200' to='"+px+" 3200' style='position:absolute;z-index:7'></v:line>");

group1.insertBefore(newLine);

if(count%5!=0){

var newStroke = document.createElement("<v:stroke dashstyle='dot' color='black'/>");

newLine.insertBefore(newStroke);

}

else

{

var newStroke = document.createElement("<v:stroke color='#babbae'>");

newLine.insertBefore(newStroke);

}

count++;

}

count=0; //画纵坐标

for(var i=0;i<=50;i++){

var py=3200-50*i;

var newLine = document.createElement("<v:line from='200 "+py+"' to='4650 "+py+"' style='position:absolute;z-index:7'></v:line>");

group1.insertBefore(newLine);

if(count%5!=0){

var newStroke = document.createElement("<v:stroke dashstyle='dot' color='black'/>");

newLine.insertBefore(newStroke);

}

else

{

var newStroke = document.createElement("<v:stroke color='#babbae' />");

newLine.insertBefore(newStroke);

}

count++;

}

for (var j=1;j<=10;j++)

{

var h=200+j*430;

var newLine = document.createElement("<v:line from='"+h+" 2450' to='"+h+" 2700' style='position:absolute;z-index:7'></v:line>");

group2.insertBefore(newLine);

}

for (var k=1;k<=10;k++)

{

var h=2650-k*200;

var newLine = document.createElement("<v:line from='200 "+h+"' to='250 "+h+"' style='position:absolute;z-index:7'></v:line>");

group2.insertBefore(newLine);

}

function drawBar(v,t)

{

if(v==0)

v=1

var h1=v*50-50;

var px1=2500-v*50;

var py1=260+t*440;

var newShape= document.createElement("<v:rect style='position:absolute;left:"+py1+";top:"+px1+";WIDTH:190px;HEIGHT:"+h1+"px;z-index:9' coordsize='21600,21600' fillcolor='blue'></v:rect>")

group2.insertBefore(newShape);

}

</script>

<style>

@media print {

.ipt {display:none}

</style>

</head>

<tr>

</tr>

</table>

</div>

<tr>

<tr>

</tr>

</table></td>

</tr>

<tr>

<p style="line-height: 250%"><font size="5"><b><%=papername%><br>试卷分析报告</b></font></p>

</div><div align="left" style="width: 609; height: 132">

set rs=conn.execute("select * from analysislist where address='"&address&"' and papername='"&papername&"'")

%></p>

<tr>

</tr>

<tr>

</tr>

<tr>

<p style="line-height: 200%"><font size="3">系统平均难度：<%=rs("difficulty")%></font></td>

<p style="line-height: 200%"><font size="3">试卷平均难度系数：0<%=rs("nandu")%></font></td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

<p><br>

<font size="3">试卷难度系数曲线图：</font></p>

<p>

'描点数据读取

set xzt=conn.execute("select nandu from analysis where q_type='选择题' and papername='"&papername&"' and address='"&address&"' order by questionid")

set tkt=conn.execute("select nandu from analysis where q_type='填空题' and papername='"&papername&"' and address='"&address&"' order by questionid")

set pdt=conn.execute("select nandu from analysis where q_type='判断题' and papername='"&papername&"' and address='"&address&"' order by questionid")

set wdt=conn.execute("select nandu from analysis where q_type='问答题' and papername='"&papername&"' and address='"&address&"' order by questionid")

dim i,piont,t(61)

for x=1 to 60

t(x)=200+x*73

'response.Write (t(x)&"<br>")

do while not xzt.eof

i=i+1

point=point&t(i)&","&(3200-xzt("nandu")*50*50)&" "

xzt.movenext

loop

do while not tkt.eof

i=i+1

point=point&t(i)&","&(3200-tkt("nandu")*50*50)&" "

tkt.movenext

loop

do while not pdt.eof

i=i+1

point=point&t(i)&","&(3200-pdt("nandu")*50*50)&" "

pdt.movenext

loop

do while not wdt.eof

i=i+1

point=point&t(i)&","&(3200-wdt("nandu")*50*50)&" "

wdt.movenext

loop

</p>

<p>

<v:group ID="group1" style="WIDTH:500pt;HEIGHT:320pt;" coordsize="5000,3600">

<v:line from="200,100" to="200,3200" style="Z-INDEX:8;POSITION:absolute" strokeweight="1pt">

<v:stroke StartArrow="classic"/>

</v:line>

<v:line from="200,3200" to="4800,3200" style="Z-INDEX:8;POSITION:absolute" strokeweight="1pt">

<v:stroke EndArrow="classic"/>

</v:line>

<v:rect style="WIDTH:4900px;HEIGHT:3400px" coordsize="21600,21600" fillcolor="white" strokecolor="black">

<v:shadow on="t" type="single" color="silver" offset="4pt,3pt"></v:shadow>

</v:rect>

<v:polyLine id="poly1" style="POSITION:absolute;z-index:9" filled=f strokecolor=red strokeweight=1.5pt points="<%=point%>"/>

</v:group>

</p>

<font size="3">学生考试成绩发分布直方图：</font> <p>

<v:group id="group2" o:spid="_x0000_s1025" style='width:525pt;height:375pt'

coordsize="4900,3500">

<v:line from="200,100" to="200,2700" style="Z-INDEX:8;POSITION:absolute" strokeweight="1pt">

<v:stroke StartArrow="classic"/>

</v:line>

<v:line from="200,2450" to="4500,2450" style="Z-INDEX:8;POSITION:absolute" strokeweight="1pt"></v:line>

<v:line from="200,2575" to="4500,2575" style="Z-INDEX:8;POSITION:absolute" strokeweight="1pt"></v:line>

<v:line from="200,2700" to="4500,2700" style="Z-INDEX:8;POSITION:absolute" strokeweight="1pt"></v:line>

<v:rect id="_x0000_s1026" style='position:absolute;width:4600;height:2900'>

<v:shadow on="t" color="silver" offset="4pt,3pt"/>

</v:rect>

conn.execute("exec checkachievement '"&papername&"','"&address&"'")

set duan=conn.execute("select * from tempduanvalue")

drawBar(<%=duan("duan1")%>,1)

drawBar(<%=duan("duan2")%>,2)

drawBar(<%=duan("duan3")%>,3)

drawBar(<%=duan("duan4")%>,4)

drawBar(<%=duan("duan5")%>,5)

drawBar(<%=duan("duan6")%>,6)

drawBar(<%=duan("duan7")%>,7)

drawBar(<%=duan("duan8")%>,8)

drawBar(<%=duan("duan9")%>,9)

</script>

</v:group><p></p>

<font size="3"> 各题目详细信息: <br>

</font>

<tr>

</tr>

i=1

set rsinfo=conn.execute("select * from analysis where papername='"&papername&"' and q_type='选择题' and address='"&address&"' order by questionid")

do while not rsinfo.eof

<tr>

<td width="12%"><div align="center"><%if rsinfo("tmstdev")<1 and rsinfo("tmstdev")>0 then response.Write("0"&left(rsinfo("tmstdev"),3)) else response.Write(left(rsinfo("tmstdev"),4))%></div></td>

<td width="12%"><div align="center"><%if rsinfo("nandu")<1 and rsinfo("nandu")>0 then response.Write("0"&rsinfo("nandu")) else response.Write(rsinfo("nandu")) %></div></td>

<%=(rsinfo("difficulty")) %>

</div></td>

</tr>

i=i+1

rsinfo.movenext

loop

set rsinfo=nothing

set rsinfo=conn.execute("select * from analysis where papername='"&papername&"' and address='"&address&"' and q_type='填空题' order by questionid")

do while not rsinfo.eof

<tr>

<td width="12%"><div align="center"><%if rsinfo("tmstdev")<1 and rsinfo("tmstdev")>0 then response.Write("0"&left(rsinfo("tmstdev"),3)) else response.Write(left(rsinfo("tmstdev"),4))%></div></td>

<td width="12%"><div align="center"><%if rsinfo("nandu")<1 and rsinfo("nandu")>0 then response.Write("0"&rsinfo("nandu")) else response.Write(rsinfo("nandu")) %></div></td>

</tr>

i=i+1

rsinfo.movenext

loop

set rsinfo=nothing

set rsinfo=conn.execute("select * from analysis where papername='"&papername&"' and address='"&address&"' and q_type='判断题' order by questionid")

do while not rsinfo.eof

<tr>

<td width="12%"><div align="center"><%if rsinfo("tmstdev")<1 and rsinfo("tmstdev")>0 then response.Write("0"&left(rsinfo("tmstdev"),3)) else response.Write(left(rsinfo("tmstdev"),4))%></div></td>

<td width="12%"><div align="center"><%if rsinfo("nandu")<1 and rsinfo("nandu")>0 then response.Write("0"&rsinfo("nandu")) else response.Write(rsinfo("nandu")) %></div></td>

</tr>

i=i+1

rsinfo.movenext

loop

set rsinfo=nothing

set rsinfo=conn.execute("select * from analysis where papername='"&papername&"' and address='"&address&"' and q_type='问答题' order by questionid")

do while not rsinfo.eof

<tr>

<td width="12%"><div align="center"><%if rsinfo("tmstdev")<1 and rsinfo("tmstdev")>0 then response.Write("0"&left(rsinfo("tmstdev"),3)) else response.Write(left(rsinfo("tmstdev"),4))%></div></td>

<td width="12%"><div align="center"><%if rsinfo("nandu")<1 and rsinfo("nandu")>0 then response.Write("0"&rsinfo("nandu")) else response.Write(rsinfo("nandu")) %></div></td>

</tr>

i=i+1

rsinfo.movenext

loop

set rsinfo=nothing

</table>

</div></td>

</tr>

</table>

</center><br>

</div>

</body>

</html>