基于Web的网上评教系统(九)

;li>"+template.Strings(51)
 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的网上评教系统(九)相关范文