用ASP开发试题库与在线考试系统
作者 佚名技术
来源 NET编程
浏览
发布时间 2012-05-21
| erver.CreateObject("ADODB.Connection") adocon.Open "zxtest" set sa1=adocon.Execute(SQLstr) If sa1.EOF Then check_Pass = False Else check_Pass = True End If sa1.Close adocon.Close End Function Sub Add_Comment()''开始插入数据并显示出来 Dim kmxxmc,xzsj,tmlx,nycd,jxyq,stbh,stnr Dim A,B,C,D,E,F,bzda,lrz,Picstr,SQLstr,lr_date,zhang,jie kmxxmc = Request.Form("kmxxmc") xzsj = Request.Form("xzsj") ┋ ┋ ┋ bzda = Request.Form("bzda") zhang = Request.form("zhang") set adocon=Server.CreateObject("ADODB.Connection") adocon.Open "zxtest" SQLstr = "insert into " & kmxxmc & " (xzsj,tmlx,tmnd,jxyq,stbh,tmnr, bxda_a," SQLstr = SQLstr & ",jie,lrz) values (" & "''" & xzsj & "''," & "''" & tmlx & "''," ┋ ┋ ┋ SQLstr = SQLstr & "''," & "''" & date & "''," & "''" & zhang & "''," & "''" & jie & "''," SQLstr = SQLstr & "''" & lrz & "'')" set sa1 = adocon.Execute(SQLstr) Picstr="<img src=''/images/hekai.jpg''>" Response.Write "恭喜！此为<i> " & lrz & "</i> 刚才录入的试题" Response.Write Picstr & " 试题编号：" & stbh Response.Write "试题内容：" & stnr & "<br>" Response.Write "答案_A：" & A & "<br>" ┋ ┋ ┋ adocon.Close End Sub Sub Register() If check_Pass() Then ''如果库中已有的话，则给出提示信息 Show_Warning() Else ''否则添加进去 Add_Comment() End If End Sub Sub Show_Warning()''给出提示信息的函数 Response.Write("<p>") Response.Write("<center>很抱歉<p>") Response.Write("库中已有此试题编号或试题内容，请返回前页修改！") Response.Write("</center>") Response.Write("Made by hekai himself in 2001") End Sub </script> 此为"检索试题"的程序代码： <script Language="VBScript" RunAt="Server"> Function adjust_sql(adj_str) ''目的---转换查询字符串中的特殊字符至SQL指令 Dim final_str, i ''WRITE BY HEKAI2001 adj_str = Trim(adj_str) final_str = "" ''每次从传进来的字符串中取出一个字符，并判断是否为下述三个字符之一： DOS的Filter符号"|"、左中括号"["以及单引号"''" If Len(adj_str) > 0 Then For i = 1 To Len(adj_str) Select Case Mid(adj_str, i, 1) Case "[": final_str = final_str & "[[]" Case "|": final_str = final_str & "[{-}]" Case "''": final_str = final_str & "[&-()" Case Else: ''以上皆非则什么事都不做！ final_str = final_str &a |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: ASP.NET控件开发基础(6)下一篇: ASP.NET控件开发基础(1)
关于用ASP开发试题库与在线考试系统的所有评论
