<%
Dim oConn, oRS, szUserID, szClass, m_nStatus
szUserID = Session("UserID")
'-----开资料库
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=8246;dbq=" & _
Server.MapPath("../DataBase/StanTalk.MDB")
Set oRS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM [Table4] WHERE [ID] = '" & szUserID & "' ORDER BY [ChapNo]"
oRS.Open SQL, oConn, 3
If oRS.BOF AND oRS.EOF Then
'-----未曾上过课
Else
oRS.MoveFirst
End If
'--------------------------------------------------------------------
Function BeRead( no, szFieldName )
Dim bRet, bQuit
bRet = false
If oRS.EOF Then
bQuit = true
Else
bQuit = false
End If
While Not bQuit
If oRS.Fields("ChapNo") = no Then
If oRS.Fields(szFieldName) > 0 Then
bRet = true
m_nStatus = oRS.Fields("Status")
End If
bQuit = true
ElseIf oRS.Fields("ChapNo") < no Then
oRS.MoveNext
If oRS.EOF Then bQuit = true
Else
bQuit = true
End If
WEnd
BeRead = bRet
End Function
'--------------------------------------------------------------------
Sub SetReadMark( no )
If BeRead( no, "CX1" ) = TRUE Then
Response.Write " "
szClass="cVLink"
Else
Response.Write " "
szClass="cALink"
End If
Response.Write ""
End Sub
'--------------------------------------------------------------------
Sub SetTestMark( no )
If BeRead( no, "CX2" ) = TRUE Then
Response.Write " "
If m_nStatus = 2 Then
Response.Write " "
End If
szClass="cVLink"
Else
Response.Write " "
szClass="cALink"
End If
End Sub
%>
办公室商业英语——预约时间
