利用ASP和Access数据库制作局域网网上答题系统
时间:2007-12-23 来源:不详 作者:迈克DB
'---------------------------------------------------
FunctionGetMdbRs(FileName,Source,Cursor,Password)
Dimconn,rs
OnErrorResumeNext
SetGetMdbRs=Nothing
IfLen(Password)=0Then
Setconn=GetMdbConnection(FileName)
Else
Setconn=GetSecuredMdbConnection(FileName,Password)
EndIf
IfconnIsNothingThenExitFunction
Setrs=Server.CreateObject("ADODB.Recordset")
IfErr.Number<>0ThenExitFunction
rs.Opensource,conn,Cursor,2
IfErr.Number<>0ThenExitFunction
SetGetMdbRs=rs
EndFunction
'---------------------------------------------------
%>
三、运行方法
本系统运行方法是先按文中所述格式制作好试题库文件Lkzk.mdb连同上列四个程序COPY至主机的WWW的根目录中并执行http://主机IP地址/Index.即可进行答题。(本程序在单机windows98 pws ODBC驱动及局域网windowsNTServer4.0 IIS4.0 ODBC驱动环境下均测试通过,各用户可以根据具体情况对程序中的标题稍加修改制作自己的试题库系统,还可以对其进行扩充增加各类其它功能,在这里因篇幅关系就不再敷述,有关ODBC驱动的具体情况可参阅相关资料或给我来信mailto:intcom@21cn.com。
文章评论
共有位Admini5网友发表了评论 查看完整内容