End SELECT
End If
打印模块：
我们通过调用操作系统本身的打印功能来实现
代码如下：
<input name="Button" type="button" class="button" value="打印问卷" onClick="java script:document.all.WebBrowser.ExecWB(6,6)">
<input name="Button2" type="button" class="button" value="打印预览" onClick="java script:document.all.WebBrowser.ExecWB(7,1)">
<input name="Button22" type="button" class="button" value="打印设置 " onClick="java script:document.all.WebBrowser.ExecWB(8,1)">
统计报表模块：
通过对数据库的操作来统计数据，生成图表（如直方图，饼图。）
关键代码：
Dim sessionID
sessionID=Session.SessionID
Dim site_On_timeout
Dim site_connString,site_conn
site_connString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("tone.asp")
Set site_conn=Server.CreateObject("ADODB.Connection")
site_conn.Open site_connString
Dim site_On_deletetime
site_On_deletetime=Dateadd("n", -site_On_timeout, Now())
site_conn.Execute ("delete * from [session] where posttime < #"&site_On_deletetime&"#")
Dim site_On_sql0,site_On_checkrs
site_On_sql0="select sess from [session] where sess='"& sessionID &"'"
set site_On_checkrs=site_conn.Execute(site_On_sql0)
If site_On_checkrs.eof Then
Dim site_On_sql
site_On_sql="insert into [session] (sess,posttime) values('"& sessionID &"', '"& Now() &"')"
site_conn.Execute(site_On_sql)
Dim site_Vs_sql
site_Vs_sql="update [site] set Visitor=Visitor+1"
site_conn.execute(site_Vs_sql)
End If
site_On_checkrs.close
set site_On_checkrs=nothing
Dim site_On_sql2,site_On_rs
site_On_sql2="select count(sess) from [session]"
Set site_On_rs=site_conn.Execute(site_On_sql2)
Dim site_On_output
site_On_output=site_On_rs(0)
site_On_rs.close
Set site_On_rs=nothing
Dim site_On_sql3,site_On_rspredel,site_On_predeltime
site_On_sql3="select * from [session]"
Set site_On_rspredel=site_conn.Execute(site_On_sql3)
Do until site_On_rspredel.eof
site_On_predeltime=DateDiff("n", site_On_rspredel("posttime"), Now())
If site_On_predeltime > site_On_timeout Then
site_On_output=site_On_output-1
End If
site_On_rspredel.MoveNext
Loop
site_On_rspredel.close
Set site_On_rspredel=nothing
饼图报表的实现代码；
intSettledAngle=0
intRectStart=0
for i=0 to ubound(ArrNum)
intAngle=(arrNum(i)/intTotal)*360
'一个一个的画 扇区，最终合成一个完整的 圆
set Image=DrawSinglePie(Image, 360-intSettledAngle,arrColor(i))
'在图象的最下方 对图象内容进行描述
Image.BackgroundColor =arrColor(i)
Image.Rectangle intRectStart+10*(i+1),250,intRectStart+10*(i+1)+10,260
Image.TextOut arrText(i), intRectStart+10*(i+1)+10,245,false
'在图象的最下方 对图象内容进行描述
Image.BackgroundColor =arrColor(i)
Image.Rectangle intRectStart+10*(i+1)
首页 上一页 6 7 8 9 10 11 12 下一页 尾页 9/12/12
基于Web的网上评教系统(九)由免费论文网（www.jaoyuw.com）会员上传。
