;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 Provid
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 Provid
相关文章
 我来说两句 |
对此文章发表了评论 |
评论列表 （最新 评论仅限网友观点！）
推荐文章
