一、界面
如图所示:
二、程序组成
本系统由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网上司考试题库<frameset rows="87%,*" framespacing="0"
<frame name="top" src="http://img.tulaoshi.com/attachment/portal" scrolling="auto"
<frame name="bottom" scrolling="auto" marginwidth="0" marginheight="0"
<noframes
<body
<p此网页使用了框架,但您的浏览器不支持框架。--------------Lkzk.asp-------------
<!-- #include virtual="/lkzk/DB0.fun" --
<%
Set rsu2 = GetMdbStaticRecordset("lkzk.mdb", "IP")
Set rs = GetMdbStaticRecordset("lkzk.mdb", "题库")
%
<HTML
<head
<title网上司考试题库<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 '显示是单选还是多选题
<% 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 Valu