在线答题网站源码（在线答题系统 免费）

本篇文章给大家谈谈在线答题网站源码，以及在线答题系统 免费对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、求网站源码 在线答题系统 答题完毕显示答案
• 2、求助！！HTML源代码！要求可以实现在线答题，且为多项选择题的源码！
• 3、求一个在线考试系统源代码，
• 4、如何用在网页里面做一个在线练习（选择题），最好能从数据库里拿题
• 5、简单的asp答题系统

求网站源码 在线答题系统 答题完毕显示答案

估计按照你的要求很难找到。找人进行二次开发，或从新做一套也不是难事。

求助！！HTML源代码！要求可以实现在线答题，且为多项选择题的源码！

你说的多项选择题，我是不是可以理解成多选？？

多选的实现是这样的：

第一： 必须将多选框放到form里面。

第二： 然后name属性完全一样，value不相同。这样当你提交到Action中的时候，只需要使用request对象获取toselect的值就行了。

第三： 获取值：request.getParameterValues("toselect")，就会将选中的多选框里面的value获取，并且返回一个String[]数组，这个数组里面就有你想要的值：即选中的值

html

body

form

input type = "checkbox" value = "A" name = "toselect"/A

input type = "checkbox" value = "B" name = "toselect"/B

input type = "checkbox" value = "C" name = "toselect"/C

input type = "checkbox" value = "D" name = "toselect"/D

/form

/body

/html

求一个在线考试系统源代码，

可以凭借Baidu Hi提示我

有时间可能完成你所面临的任务

一样的要求也可能提示我

ES:\\6299FB03142248029138DF8AA876DBC5

交易提醒:预付定金是诈骗

如何用在网页里面做一个在线练习（选择题），最好能从数据库里拿题

我以前用过快考题，都不用源码，直接把创建的考试链接或二维码图片放在网页上就可以了，而且那个平台还支持一键上传题目，方便的很

简单的asp答题系统

利用ASP和Access数据库制作局域网网上答题系统

本系统由Index. asp、Lkzk.asp、Save.asp、Db0.fun 四个小程序及Access数据库文件lkzk.mdb组成各程序的功能分别是:

1． Index. asp 是框架网页,负责导入Lkzk.asp、Save.asp两个子网页组成完整的程序页面。

2． Lkzk.asp 是随机出题答题的交互页面生成程序，主要完成随机选题、题目显示、答案输入及正确率、总答题数显示等功能。

3． Save.asp 完成答题正误判断、显示及成绩登记（按客户端IP地址）。

4． Db0.fun 包含打开Access数据库的多个函数(Lkzk.asp、Save.asp都用到的)。

5． lkzk.mdb Access数据库文件,由表“IP”和表“题库”组成。

表（IP）由编号字段ID(数字格式)、客户机地址字段IP(文本格式)、错误答案数字段nnn(数字格式)、正确答案数字段yyy(数字格式) 所组成；

表“题库” 由题号字段ID(数字格式)、单选多选标记字段dx(数字格式)、答案字段xz(文本格式)、试题内容字段na(备注格式)所组成。（注:试题内容的选择部分必须为“A. …… B. …… C. …… D. ……” 格式）

--------------- Index. Asp-----------------

html

head

title网上司考试题库/title

/head

frameset rows="87%,*" framespacing="0"

frame name="top" src=image/lkzk.asp scrolling="auto"

frame name="bottom" scrolling="auto" marginwidth="0" marginheight="0"

noframes

body

p此网页使用了框架，但您的浏览器不支持框架。/p

/body

/noframes

/frameset

/html

--------------Lkzk.asp-------------

!-- #include virtual="/lkzk/DB0.fun" --

%

Set rsu2 = GetMdbStaticRecordset("lkzk.mdb", "IP")

Set rs = GetMdbStaticRecordset("lkzk.mdb", "题库")

%

HTML

head

title网上司考试题库/title

/head

BODY

font size="4" color="#000080"司考试题库

%

ClientIP = Request.ServerVariables("REMOTE_ADDR")

userIP=Right(ClientIP,Len(ClientIP)-InStrRev(ClientIP,"."))

rsu2.AbsolutePosition=userIP

Randomize

I=Fix(Rnd*1800)

rs.AbsolutePosition=I+1

%

总第%=CStr(I+6)%题 %'=rs("type")%

FORM Action=save.asp Method=GET target="bottom"

INPUT Type=Hidden Name=AI Value="%=I%"

HR

% s=rs("na")

x=InStr(s,"A.")

sx="多选"

if rs("dx")=0 then

sx="单选"

end if %

%=Left(s,x-1)% '显示除选择部分外的试题内容

font color="red"

%=sx% BR '显示是单选还是多选题

/font

% s=Right(s,Len(s)-x+1)

x=InStr(s,"B.") % '以下开始显示复选框及选择部分

INPUT Type=CheckBox Name=A Value="a"

%=Left(s,x-1)%BR

%s=Right(s,Len(s)-x+1)

x=InStr(s,"C.")%

INPUT Type=CheckBox Name=A Value="b"

%=Left(s,x-1)%BR

%s=Right(s,Len(s)-x+1)

x=InStr(s,"D.")%

INPUT Type=CheckBox Name=A Value="c"

%=Left(s,x-1)%BR

%s=Right(s,Len(s)-x+1)%

INPUT Type=CheckBox Name=A Value="d" %=s%

BR

INPUT Type=Submit Value="查看答案"

a href="lkzk.asp" target="_self"继续做题/a BR

%if rsu2("nnn")+rsu2("yyy")=0 then rsu2("yyy")=1 end if%

正确率：%=FormatNumber(rsu2("yyy")/(rsu2("nnn")+rsu2("yyy"))*100, 2, True)%%

总答题数：%=rsu2("nnn")+rsu2("yyy")%

/form

/font

/BODY

-----------------Save.asp-------------------

!-- #include virtual="/lkzk/DB0.fun" --

%

Set rsu2 = GetMdbStaticRecordset("lkzk.mdb", "IP")

Set rs = GetMdbStaticRecordset("lkzk.mdb", "题库")

%

HTML

BODY

% I=CInt(Request("AI"))

rs.AbsolutePosition=I+1

ssx="错"

A=Replace( Request("A"), ", ", "" )

if A=rs("xz") then '判断答题正误

ssx="对"

end if

%

FONT Color=Red

您答%=ssx%了 '显示答案正误等信息

/FONT

试题库总第%=CStr(I+1+5)%题 您的答案是：%=A%

参考答案是：%=rs("xz")%

%

ClientIP = Request.ServerVariables("REMOTE_ADDR")

userIP=Right(ClientIP,Len(ClientIP)-InStrRev(ClientIP,"."))

rsu2.AbsolutePosition=userIP

rsu2.Update

If ssx="对" then

rsu2("yyy") =rsu2("yyy")+1

End if

if ssx"对" then

rsu2("nnn") =rsu2("nnn")+1

End if

rsu2.Update '以下将正误结果记录于数据库表“IP”中

%

/BODY

/HTML

--------------Db0.fun----------------

% ' 以下为函数程序

'---------------------------------------------------

Function GetMdbConnection( FileName )

Dim Provider, DBPath

Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"

DBPath = "Data Source=" Server.MapPath(FileName)

Set GetMdbConnection = GetConnection( Provider DBPath )

End Function

'---------------------------------------------------

Function GetMdbRecordset( FileName, Source )

Set GetMdbRecordset = GetMdbRs( FileName, Source, 2, "" )

End Function

'---------------------------------------------------

Function GetMdbStaticRecordset( FileName, Source )

Set GetMdbStaticRecordset = GetMdbRs( FileName, Source, 3, "" )

End Function

'---------------------------------------------------

Function GetConnection( Param )

Dim conn

On Error Resume Next

Set GetConnection = Nothing

Set conn = Server.CreateObject("ADODB.Connection")

If Err.Number 0 Then Exit Function

conn.Open Param

If Err.Number 0 Then Exit Function

Set GetConnection = conn

End Function

'---------------------------------------------------

Function GetMdbRs( FileName, Source, Cursor, Password )

Dim conn, rs

On Error Resume Next

Set GetMdbRs = Nothing

If Len(Password) = 0 Then

Set conn = GetMdbConnection( FileName )

Else

Set conn = GetSecuredMdbConnection( FileName, Password )

End If

If conn Is Nothing Then Exit Function

Set rs = Server.CreateObject("ADODB.Recordset")

If Err.Number 0 Then Exit Function

rs.Open source, conn, Cursor, 2

If Err.Number 0 Then Exit Function

Set GetMdbRs = rs

End Function

'---------------------------------------------------

%

具体参考:

在线答题网站源码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于在线答题系统 免费、在线答题网站源码的信息别忘了在本站进行查找喔。