- 博客(0)
- 资源 (4)
- 收藏
- 关注
在线考试系统asp
在线考试asp
sers_Questions=FKExam.GetQuestion2()
Call FKDB.PaperDB_Open(ExamPaper)
Sqlstr="Select Users_Exam,Users_StartTime From [Users] Where Users_LoginName='"&Request.Cookies("Users_LoginName")&"'"
Rs.Open Sqlstr,PaperConn,1,1
If Not Rs.Eof Then
Users_StartTime=Now()
Application.Lock()
Sqlstr="Update [Users] Set Users_StartTime=#"&Users_StartTime&"#,Users_Exam=1,Users_QuestionList="&Users_Questions&" Where Users_LoginName='"&Request.Cookies("Users_LoginName")&"'"
PaperConn.Execute(Sqlstr)
Application.UnLock()
Else
Users_StartTime=Now()
Application.Lock()
Sqlstr="Insert Into [Users](Users_LoginName,Users_LoginPass,Users_Name,Users_StartTime,Users_Exam,Users_QuestionList) Values('"&Request.Cookies("Users_LoginName")&"','"&Request.Cookies("Users_Id")&"','"&Request.Cookies("Users_Name")&"',#"&Users_StartTime&"#,1,"&Users_Questions&")"
PaperConn.Execute(Sqlstr)
Application.UnLock()
End If
Rs.Close
2013-06-05
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人