网站地图| 免费获取|
免费论文网
  • 网站首页|
  • 论文范文|
  • 修改降重|
  • 职称论文|
  • 合作期刊|
  • 论文下载|
  • 计算机论文|
  • 外文翻译|
  • 免费论文|
  • 原创论文|
  • 开题报告论文
搜索

当前位置:免费论文网 -> 免费论文 -> 计算机论文 -> 基于Web的网上评教系统(九)
计算机论文| ASP设计| Delphi| VB设计| JSP设计| ASP.NET设计| VB.NET| java设计| VC| pb| VS| dreamweaver| c#.net| vf| VC++| 计算机论文范文| 论文下载| 自动化论文

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

基于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的网上评教系统(九)由免费论文网(www.jaoyuw.com)会员上传。
原创论文流程 相关论文
上一篇:五种提高SQL性能的方法 下一篇:计算机局域网组建与互连论文设计..
推荐论文 本专业最新论文
Tags:基于 Web 网上 评教 系统 2010-03-27 21:51:41【返回顶部】
精彩推荐
发表论文

联系方式 | 论文说明 | 网站地图 | 免费获取 | 钻石会员 | 硕士论文


免费论文网提供论文范文,论文代发,原创论文

本站部分文章来自网友投稿上传,如发现侵犯了您的版权,请联系指出,本站及时确认并删除  E-mail: 17304545@qq.com

Copyright@ 2009-2020 免费论文网 版权所有 湘ICP备19027999