| <% |
|
|
|
|
|
|
|
| '*=
***************************************************************************=
*** |
|
| ' |
|
| '<=
span
style=3D'mso-spacerun:yes'> This function checks to see if t=
he
required fields have been filled in. |
|
| ' |
|
| '*=
***************************************************************************=
*** |
|
| Function Check_Required |
|
|
|
|
' Required input fields. |
|
|
Dim Required(8) |
|
|
Required(1) =3D "student_name" |
|
|
Required(2) =3D
"instructor_email" |
|
|
Required(3) =3D "test_name" |
|
|
Required(4) =3D "score_correct" |
|
|
Required(5) =3D "score_possible" |
|
|
Required(6) =3D "score_percent" |
|
|
Required(7) =3D
"score_subjective" |
|
|
'Required(8) =3D "score_details" |
|
|
'NumFields =3D 8<=
/td>
| |
|
NumFields =3D 7
| |
|
|
|
For i =3D 1 to NumFields |
|
|
| If Len(Trim(Request(Required=
(i)))) =3D
0 Then |
|
|
| Response.write Required(i) &=
amp;
"<P>" |
|
|
| error("empty_fields") |
|
|
| End If |
|
|
|
|
| ' If the required field is t=
he email
field, the syntax of |
|
|
| ' the email address is check=
ed to
make sure it passes a |
|
|
| ' valid syntax. |
|
|
| If Required(i) =3D
"instructor_email" Then |
|
|
| If Not
Check_Email(Request(Required(i))) Then |
|
|
| error("missing_fields") |
|
|
| End If |
|
|
| End If |
|
|
Next |
|
| End Function |
|
|
|
| '*=
***************************************************************************=
*** |
|
| ' |
|
| ' =
This
function performs a validation on the email address to see if it is well-=
|
|
| ' =
formed. It
returns a boolean indicating whether a valid address is passed. |
|
| ' |
|
| '*=
***************************************************************************=
*** |
|
| Function check_email(address) |
|
| RegExpTest =3D false |
|
| Dim regEx, retVal |
|
| Set regEx =3D New RegExp |
|
|
|
| ' Create regular expression: |
|
| 'r=
egEx.Pattern
=3D"^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$" |
|
| re=
gEx.Pattern
=3D "^[-!#$%&\'*+\\./0-9=3D?A-Z^_`a-z{|}~]+" & "@&=
quot;
& "[-!#$%&\'*+\\/0-9=3D?A-Z^_`a-z{|}~]+\." &
"[-!#$%&\'*+\\./0-9=3D?A-Z^_`a-z{|}~]+$" |
|
|
|
| ' Set pattern: |
|
| regEx.IgnoreCase =3D true |
|
|
|
| ' Set case sensitivity. |
|
| retVal =3D regEx.Test(address)
| |
|
|
| ' Execute the search test. |
|
| If not retVal Then |
|
| exit function |
|
| End If |
|
|
|
| check_email =3D true |
|
| End Function |
|
|
|
| Fu=
nction
stripslashes(theString) |
|
|
stripslashes =3D
Replace(theString,"\","") |
|
| End Function |
|
|
|
| Fu=
nction
str_repeat(theString,numTimes) |
|
|
Dim NewString |
|
|
NewString =3D "" |
|
|
For i =3D 1 to numTimes |
|
|
| NewString =3D NewString &
theString |
|
|
Next |
|
|
str_repeat =3D NewString |
|
| End Function |
|
|
|
| '*=
***************************************************************************=
*** |
|
| ' |
|
| '<=
span
style=3D'mso-spacerun:yes'> This function returns true if the
submission was from a test generated by |
|
| '<=
span
style=3D'mso-spacerun:yes'> ExamView 5 (points supported).
| |
| ' |
|
| '*=
***************************************************************************=
*** |
|
| Function is_version5 |
|
|
|
|
' format of 'score_details' =
is
different for v5, so check that |
|
|
If InStr(1,
Request("score_details"), "/", 0) Then |
|
|
| is_version5 =3D true |
|
|
Else |
|
|
| is_version5 =3D false |
|
|
End If |
|
| End Function |
|
|
|
| '*=
***************************************************************************=
*** |
|
| ' |
|
| ' =
This
function outputs the HTML that the student sees in response to a graded
| |
| ' CGI test. |
|
| ' |
|
| '*=
***************************************************************************=
*** |
|
| Function return_html |
|
|
|
|
name =3D
server.htmlencode(stripslashes(Request("test_name"))) |
|
|
results =3D "Results for " & name |
|
|
|
|
' See if we're supposed to s=
how the
results to the student. |
|
|
if Not
IsNull(Request("score_showresults")) Then |
|
|
| name =3D
server.htmlencode(stripslashes(Request("student_name"))) |
|
|
| score =3D "<table>" & VBNewLine |
|
|
| score =3D score &
"<tr><td><b>Student
Name:</b></td><td>" & name &
"</td></tr>" & VBNewLine |
|
|
| If
Len(Trim(Request("student_id"))) > 0 Then |
|
|
| id =3D
server.htmlencode(stripslashes(Request("student_id"))) |
|
|
| score =3D score &
"<tr><td><b>Student
ID:</b></td><td>" & id &
"</td></tr>" & VBNewLine |
|
|
| End If |
|
|
|
|
| correct =3D
stripslashes(Request("score_correct")) |
|
|
| possible =3D
stripslashes(Request("score_possible")) |
|
|
| percent =3D
stripslashes(Request("score_percent")) |
|
|
| If is_version5() Then
| |
|
| pointsLabel =3D "points " |
|
|
| Else |
|
|
| pointsLabel =3D "" |
|
|
| End If |
|
|
| score =3D score &
"<tr><td><b>Score:</b></td>" &
VBNewLine |
|
|
| score =3D score &
"<td>" & correct & " / " & possible
& " " & pointsLabel & "(" & percent &=
amp;
"%)" |
|
|
| If
(Request("score_subjective") > 0) Then |
|
|
| score =3D score & " " |
|
|
| subjCount =3D
stripslashes(Request("score_subjective")) |
|
|
| If subjCount =3D 1 Then |
|
|
| score =3D score & "=
[1
open-ended question not graded]" |
|
|
| Else |
|
|
| score =3D score &
"[$subjCount open-ended questions not graded]" |
|
|
| End If |
|
|
| End If |
|
|
| score =3D score &
"</td></tr>" & VBNewLine &
"</table>" & VBNewLine |
|
|
Else |
|
|
| score =3D "" |
|
|
End If |
|
|
|
|
name =3D
server.htmlencode(stripslashes(Request("instructor_formalname")=
)) |
|
|
email =3D
server.htmlencode(stripslashes(Request("instructor_email")))
| |
|
test =3D "test" |
|
| %> |
|
| <html> |
|
| &l=
t;head><title>Test
Results</title></head> |
|
| &l=
t;body
bgcolor=3D"#FFFFFF" text=3D"#000000"
background=3D"/cgitile.gif"> |
|
| &l=
t;h2><center><%=3D
results %></center></h2> |
|
| <%=3D score %> |
|
| &l=
t;p>Your
test results have been sent to <%=3D name %> at |
|
| &l=
t;a
href=3D"mailto:<%=3D email %>"><%=3D email %><=
;/a>. |
|
| At=
this
time, you can quit your browser or link to another page.</p> |
|
|
|
| </body> |
|
| </html> |
|
| <% |
|
| End Function |
|
|
|
| Function Type_Names(abbv) |
|
|
Select Case abbv |
|
|
Case "TF" Type_Names =3D "True/False" |
|
|
Case "MTF" Type_Na=
mes
=3D "Modified True/Fal=
se" |
|
|
Case "MC" Type_Names =3D "Multiple Choice" |
|
|
Case "MR" Type_Names =3D "Multiple Response"
| |
|
Case "YN" Type_Names =3D "Yes/No" |
|
|
Case "NR" Type_Names =3D "Numeric Response" |
|
|
Case "CO" Type_Names =3D "Completion" |
|
|
Case "MA" Type_Names =3D "Matching" |
|
|
Case "SA" Type_Names =3D "Short Answer" |
|
|
Case "PR" Type_Names =3D "Problem" |
|
|
Case "ES" Type_Names =3D "Essay" |
|
|
Case "CA" Type_Names =3D "Case" |
|
|
Case "OT" |
|
|
| ' Starting with ExamView 5,
publishers can rename the "Other" question type |
|
|
| If
Len(Trim(Request("other_label"))) > 0 Then |
|
|
| Type_Names =3D
stripslashes(Request("other_label")) |
|
|
| Else |
|
|
| Type_Names =3D
"Other"
| |
|
| End If |
|
|
End Select |
|
| End Function |
|
|
|
| '*=
***************************************************************************=
*** |
|
| ' |
|
| ' =
This
function sends an email message with the form contents to the address |
|
| ' given by 'instructor_email'.
| |
| ' |
|
| '*=
***************************************************************************=
*** |
|
| fu=
nction
send_mail(timeStamp) |
|
|
|
|
toField =3D
stripslashes(Request("instructor_email")) |
|
|
fromField =3D
"Hayato<hayato.chang@gmail.com>" |
|
|
subject =3D "Results for " &am=
p;
stripslashes(Request("test_name")) |
|
|
|
|
emailText =3D "Test res=
ults for
" & stripslashes(Request("student_name")) & "
" |
|
|
if
Len(Trim(Request("student_email"))) > 0 Then |
|
|
| emailText =3D emailText &
"(" & stripslashes(Request("student_email")) &
") " |
|
|
End If |
|
|
|
|
' date format: "Saturda=
y,
October 9, 2004 at 21:04:09" |
|
|
theDate =3D timeStamp |
|
|
emailText =3D emailText &
"submitted on " & theDate & " from [" &
request.servervariables("REMOTE_ADDR") & "]" &
VBNewLine & VBNewLine |
|
|
emailText =3D emailText &=
; "X
- incorrect response" & VBNewLine |
|
|
If
(Request("score_subjective") > 0) Then |
|
|
| emailText =3D emailText &=
; "?
- open-ended question (not graded)" & VBNewLine |
|
|
End If |
|
|
emailText =3D emailText &
str_repeat("-", 65) & VBNewLine & VBNewLine |
|
|
|
|
emailText =3D emailText &
"Test Name: " & stripslashes(Request("test_name"))
& VBNewLine |
|
|
emailText =3D emailText &
"Student Name: " &
stripslashes(Request("student_name")) & VBNewLine |
|
|
|
|
If
Len(Trim(Request("student_id"))) > 0 Then |
|
|
| emailText =3D emailText &
"Student ID: " & stripslashes(Request("student_id"=
;))
& VBNewLine |
|
|
End If |
|
|
|
|
' date format: mm/dd/yyyy hh=
:mm:ss |
|
|
emailText =3D emailText &
"Date: " & timeStamp & VBNewLine |
|
|
|
|
If is_version5() Then
| |
|
| pointsLabel =3D "points " |
|
|
Else |
|
|
| pointsLabel =3D "" |
|
|
End If |
|
|
emailText =3D emailText &
"Score: " & Request("score_correct") &
"/" & Request("score_possible") |
|
|
emailText =3D emailText &=
; "
" & pointsLabel & "(" &
Request("score_percent") & "%)" |
|
|
If
(Request("score_subjective") > 0) Then |
|
|
| subjCount =3D
Request("score_subjective") |
|
|
| If subjCount =3D 1 Then |
|
|
| emailText =3D emailText &
" [1 open-ended questi=
on not
graded]" |
|
|
| Else |
|
|
| emailText =3D emailText &
" [" & subjCo=
unt
& " open-ended questions not graded]" |
|
|
| End If |
|
|
End If |
|
|
emailText =3D emailText &
VBNewLine |
|
|
|
|
If is_version5 Then |
|
|
| details =3D
Split(Request("score_details"),"|",-1,0) |
|
|
Else |
|
|
| For i=3D1 to
len(Request("score_details")) |
|
|
| details =3D details &
Mid(Request("score_details"), i, 1) |
|
|
| Next |
|
|
End If |
|
|
|
|
' Version 6.0+ supports inte=
rmixed
questions. Don't show secti=
on
headers |
|
|
If
Len(Trim(Request("test_mixed_questions"))) > 0 AND
Request("test_mixed_questions") > 0 Then |
|
|
| emailText =3D emailText &
VBNewLine |
|
|
| mixedTypes =3D true |
|
|
Else |
|
|
| mixedTypes =3D false |
|
|
End If |
|
|
|
|
lastType =3D "" |
|
|
index =3D 1 |
|
|
for i =3D 1 to Request.Form.Count |
|
|
| name =3D Request.Form.Key(i) |
|
|
| 'response.write "name: =
"
& server.htmlencode(name) & "<BR>" |
|
|
| If InStr(1, name, ":", 0) > 0 Then |
|
|
| currentType =3D
Mid(name,1,InStr(1,name,":",0)-1) |
|
|
| currentNumber =3D
Mid(name,InStr(1,name,":",0)+1) |
|
|
| 'Response.write "curren=
tType:
" & currentType & "<BR>" |
|
|
| 'Response.write "curren=
tNumber:
" & currentNumber & "<BR>" |
|
|
| If Len(currentType) > 0 A=
nd
Len(currentNumber) > 0 Then |
|
|
| If Not mixedTypes AND curren=
tType
<> lastType Then |
|
|
| emailText =3D emailText &
VBNewLine & Type_Names(currentType) & VBNewLine |
|
| lastType =3D currentType |
|
|
| End If |
|
|
| 'response.write "detail=
s:
" & score_details & "<BR>" |
|
|
|
|
| markChar =3D Mid(details, in=
dex, 1) |
|
|
| If Len(markChar) <> 1 =
Then
markChar =3D " " |
|
|
|
|
| value =3D request.form(name) |
|
|
| 'response.write "value =
=3D "
& value & "<BR>" |
|
|
| emailText =3D emailText &=
; markChar
& " " &=
amp;
currentNumber & ". " & value & VBNewLine |
|
|
| index =3D index + 1 |
|
|
| End If |
|
|
| End If |
|
|
Next |
|
|
|
|
emailText =3D emailText &
str_repeat("-", 65) & VBNewLine |
|
|
|
|
'response.write
"<p>" & emailText & "<P>" |
|
|
|
|
Set
myMail=3DCreateObject("CDO.Message") |
|
|
myMail.Subject=3Dsubject |
|
|
myMail.From=3DfromField |
|
|
myMail.To=3DtoField |
|
|
myMail.TextBody=3DemailText |
|
|
|
|
Err.Clear |
|
|
myMail.Send |
|
|
If Err.Number <> 0 Then
Response.write "Err: " & Err.Number & " " &am=
p;
err.Description & "<p>" |
|
|
set myMail=3Dnothing
| |
|
|
| End Function |
|
|
|
| '*=
***************************************************************************=
*** |
|
| ' |
|
| ' =
This
function displays an error screen and terminates the program. |
|
| ' |
|
| '*=
***************************************************************************=
*** |
|
| function error(whichMsg) |
|
|
msg =3D "" |
|
|
If whichMsg =3D
"missing_fields" Then |
|
|
| title =3D "Missing Data" |
|
|
| msg =3D "Some items wer=
e not
filled in correctly. Be sur=
e that
" & _ |
|
|
| you filled in your name in t=
he
Student Name field. & _=
|
|
|
| Please click your browser's
<b>Back</b> button to
& _ |
|
|
| return to the test and try again. |
|
|
ElseIf (whichMsg =3D
"empty_fields") Then |
|
|
| title =3D "Empty Data" |
|
|
| msg =3D "Some items wer=
e not
filled in correctly. Be sur=
e that
" & _ |
|
|
| you filled in your name in t=
he
Student Name field and &=
; _ |
|
|
| that Javascript is enabled i=
n your
browser. Please & _ |
|
|
| click your browser's
<b>Back</b> button to return to & _ |
|
|
| the test and try again. |
|
|
Else |
|
|
| Response.write "Unhandl=
ed error
type: " & whichMsg & "<br>" & VBNewLine<=
/td>
| |
|
| Response.end |
|
|
End If |
|
| %> |
|
| <html> |
|
| <head> |
|
|
<title><%=3D title %></title> |
|
| </head> |
|
| <body
bgcolor=3D"#FFFFFF" text=3D"#000000"> |
|
|
<h1><center><=
%=3D title
%></center></h1> |
|
|
<p><%=3D msg %></p> |
|
| </body> |
|
| </html> |
|
|
|
| <% |
|
|
Response.end |
|
| End Function |
|
|
|
| Sub parse_name(theName) |
|
|
If InStr(1,theName,",",1) Then |
|
|
| 'they entered last name, fir=
st name |
|
|
| LName =3D
Trim(Left(theName,InStr(1,theName,",",1)-1)) |
|
|
| FName =3D
Trim(Mid(theName,InStr(1,theName,",",1)+1)) |
|
|
Else |
|
|
| 'they entered first name las=
t name
(no comma) |
|
|
| LName =3D
Trim(Mid(theName,InStrRev(theName," ")+1)) |
|
|
| FName =3D
Trim(Left(theName,InStrRev(theName," ")-1)) |
|
|
End If |
|
|
|
| End Sub |
|
|
|
| Sub save_file |
|
|
set fs =3D
CreateObject("Scripting.FileSystemObject") |
|
|
filePath =3D server.MapPath("/") |
|
|
on error resume next |
|
|
fileText =3D "" |
|
|
|
|
'Save Activity Data |
|
|
set file =3D
fs.CreateTextFile(filePath & "\ActivityData.csv", false,
false) |
|
|
file.close |
|
|
set file =3D fs.OpenTextFile=
(filePath
& "\ActivityData.csv", 8)&=
nbsp;
'8=3Dfor appending |
|
|
|
|
'ID |
|
|
fileText =3D fileText &<=
span
style=3D'mso-spacerun:yes'>
stripslashes(Request("student_id")) & ","<=
/td>
| |
|
'NAME |
|
|
'fileText =3D fileText &=
stripslashes(Request("student_name")) & ","=
; |
|
|
fileText =3D fileText &<=
span
style=3D'mso-spacerun:yes'> """" &
stripslashes(LName) & ", " & stripslashes(FName) &
"""," |
|
|
'GRADE LEVEL |
|
|
fileText =3D fileText & "," |
|
|
'ACTIVITY |
|
|
fileText =3D fileText &
stripslashes(Request("test_name")) & "," |
|
|
'ACTIVITY TYPE |
|
|
fileText =3D fileText & "," |
|
|
'GRADE |
|
|
fileText =3D fileText &
Request("score_percent") & "," |
|
|
'DATE |
|
|
fileText =3D fileText & Now() & "," |
|
|
'CLASS |
|
|
fileText =3D fileText & "," |
|
|
'WEIGHT |
|
|
fileText =3D fileText
| |
|
file.WriteLine(fileText) |
|
|
file.Close() |
|
|
set file =3D nothing |
|
|
|
|
'Save Student Information |
|
|
fileText =3D "" |
|
|
set file =3D
fs.CreateTextFile(filePath & "\StudentInformation.csv", fal=
se,
false) |
|
|
file.close |
|
|
set file =3D fs.OpenTextFile=
(filePath
& "\StudentInformation.csv", 8) '8=3Dfor appending |
|
|
'ID |
|
|
fileText =3D fileText &<=
span
style=3D'mso-spacerun:yes'>
stripslashes(Request("student_id")) & ","<=
/td>
| |
|
'NAME |
|
|
'fileText =3D fileText &=
stripslashes(Request("student_name")) & ","=
; |
|
|
fileText =3D fileText &<=
span
style=3D'mso-spacerun:yes'> """" &
stripslashes(LName) & ", " & stripslashes(FName) &
"""," |
|
|
'EMAIL |
|
|
fileText =3D fileText &<=
span
style=3D'mso-spacerun:yes'>
stripslashes(Request("student_email")) |
|
|
file.WriteLine(fileText) |
|
|
file.Close() |
|
|
set file =3D nothing |
|
|
|
|
set fs =3D nothing |
|
|
|
| End Sub |
|
|
|
| '*=
***************************************************************************=
*** |
|
| ' |
|
| ' Main: |
|
| ' |
|
| '*=
***************************************************************************=
*** |
|
|
|
| timeStamp =3D now() |
|
|
|
| Call check_required |
|
| Call return_html |
|
| Call send_mail(timeStamp) |
|
| Dim FName, LName |
|
| Ca=
ll
parse_name(Request("student_name")) |
|
| Call save_file |
|
|
|
| %> |
|
|
|
|
|
|
|
|
|
------=_NextPart_01C83B6F.8D714B00
Content-Location: file:///C:/2D184174/Results_asp-mht_files/sheet002.htm
Content-Transfer-Encoding: quoted-printable
Content-Type: text/html; charset="us-ascii"
| <% |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| '*=
***************************************************************************=
*** |
|
| ' |
|
| '<=
span
style=3D'mso-spacerun:yes'> This function checks to see if t=
he
required fields have been filled in. |
|
| ' |
|
| '*=
***************************************************************************=
*** |
|
| Fu=
nction
Check_Required |
|
| <=
/td>
|
|
' Required input fields. |
|
|
Dim Required(8) |
|
|
Required(1) =3D
"student_name" |
|
|
Required(2) =3D
"instructor_email" |
|
|
Required(3) =3D "test_n=
ame" |
|
|
Required(4) =3D
"score_correct" |
|
|
Required(5) =3D
"score_possible" |
|
|
Required(6) =3D
"score_percent" |
|
|
Required(7) =3D
"score_subjective" |
|
|
'Required(8) =3D
"score_details" |
|
|
'NumFields =3D 8 |
|
|
NumFields =3D 7 |
|
| <=
/td>
|
|
For i =3D 1 to NumFields |
|
|
| If Len(Trim(Request(Required=
(i)))) =3D
0 Then |
|
|
| Response.write Required(i) &=
amp;
"<P>" |
|
|
| error("empty_fields&quo=
t;) |
|
|
| End If |
|
| <=
/td>
|
|
| ' If the required field is t=
he email
field, the syntax of |
|
|
| ' the email address is check=
ed to
make sure it passes a |
|
|
| ' valid syntax. |
|
|
| If Required(i) =3D
"instructor_email" Then |
|
|
| If Not
Check_Email(Request(Required(i))) Then |
|
|
| error("missing_fields&q=
uot;) |
|
|
| End If |
|
|
| End If |
|
|
Next |
|
| En=
d Function |
|
| <=
/td>
|
| '*=
***************************************************************************=
*** |
|
| ' |
|
| ' =
This
function performs a validation on the email address to see if it is well-=
|
|
| ' =
formed. It
returns a boolean indicating whether a valid address is passed. |
|
| ' |
|
| '*=
***************************************************************************=
*** |
|
| Fu=
nction
check_email(address) |
|
| Re=
gExpTest =3D
false |
|
| Di=
m regEx,
retVal |
|
| Se=
t regEx =3D
New RegExp |
|
| <=
/td>
|
| ' =
Create
regular expression: |
|
| 'r=
egEx.Pattern
=3D"^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$" |
|
| r=
egEx.Pattern
=3D "^[-!#$%&\'*+\\./0-9=3D?A-Z^_`a-z{|}~]+" & "@&=
quot;
& "[-!#$%&\'*+\\/0-9=3D?A-Z^_`a-z{|}~]+\." &
"[-!#$%&\'*+\\./0-9=3D?A-Z^_`a-z{|}~]+$" |
|
| <=
/td>
|
| ' =
Set
pattern: |
|
| re=
gEx.IgnoreCase
=3D true |
|
| <=
/td>
|
| ' =
Set case
sensitivity. |
|
| re=
tVal =3D
regEx.Test(address) |
|
| <=
/td>
|
| ' =
Execute
the search test. |
|
| If=
not
retVal Then |
|
| ex=
it
function |
|
| End If |
|
| <=
/td>
|
| ch=
eck_email
=3D true |
|
| End
Function |
|
| <=
/td>
|
| Fu=
nction
stripslashes(theString) |
|
|
stripslashes =3D
Replace(theString,"\","") |
|
| En=
d Function |
|
| <=
/td>
|
| Fu=
nction
str_repeat(theString,numTimes) |
|
|
Dim NewString |
|
|
NewString =3D ""
| |
|
For i =3D 1 to numTimes |
|
|
| NewString =3D NewString &
theString |
|
|
Next |
|
|
str_repeat =3D NewString |
|
| En=
d Function |
|
| <=
/td>
|
| '*=
***************************************************************************=
*** |
|
| ' |
|
| '<=
span
style=3D'mso-spacerun:yes'> This function returns true if the
submission was from a test generated by |
|
| '<=
span
style=3D'mso-spacerun:yes'> ExamView 5 (points supported).
| |
| ' |
|
| '*=
***************************************************************************=
*** |
|
| Fu=
nction
is_version5 |
|
| <=
/td>
|
|
' format of 'score_details' =
is
different for v5, so check that |
|
|
If InStr(1,
Request("score_details"), "/", 0) Then |
|
|
| is_version5 =3D true |
|
|
Else |
|
|
| is_version5 =3D false |
|
|
End If |
|
| En=
d Function |
|
| <=
/td>
|
| '*=
***************************************************************************=
*** |
|
| ' |
|
| ' =
This
function outputs the HTML that the student sees in response to a graded
| |
| ' CGI test. |
|
| ' |
|
| '*=
***************************************************************************=
*** |
|
| Fu=
nction
return_html |
|
| <=
/td>
|
|
name =3D
server.htmlencode(stripslashes(Request("test_name"))) |
|
|
results =3D "Results fo=
r "
& name |
|
| <=
/td>
|
|
' See if we're supposed to s=
how the
results to the student. |
|
|
if Not
IsNull(Request("score_showresults")) Then |
|
|
| name =3D
server.htmlencode(stripslashes(Request("student_name"))) |
|
|
| score =3D "<table>=
;"
& VBNewLine |
|
|
| score =3D score &
"<tr><td><b>Student
Name:</b></td><td>" & name &
"</td></tr>" & VBNewLine |
|
|
| If
Len(Trim(Request("student_id"))) > 0 Then |
|
|
| id =3D
server.htmlencode(stripslashes(Request("student_id"))) |
|
|
| score =3D score &
"<tr><td><b>Student
ID:</b></td><td>" & id &
"</td></tr>" & VBNewLine |
|
|
| End If |
|
| <=
/td>
|
|
| correct =3D
stripslashes(Request("score_correct")) |
|
|
| possible =3D
stripslashes(Request("score_possible")) |
|
|
| percent =3D
stripslashes(Request("score_percent")) |
|
|
| If is_version5() Then |
|
|
| pointsLabel =3D "points
" |
|
|
| Else |
|
|
| pointsLabel =3D ""=
|
|
|
| End If |
|
|
| score =3D score &
"<tr><td><b>Score:</b></td>" &
VBNewLine |
|
|
| score =3D score &
"<td>" & correct & " / " & possible
& " " & pointsLabel & "(" & percent &=
amp;
"%)" |
|
|
| If
(Request("score_subjective") > 0) Then |
|
|
| score =3D score &
" " |
|
|
| subjCount =3D
stripslashes(Request("score_subjective")) |
|
|
| If subjCount =3D 1 Then |
|
|
| score =3D score & "=
[1
open-ended question not graded]" |
|
|
| Else |
|
|
| score =3D score &
"[$subjCount open-ended questions not graded]" |
|
|
| End If |
|
|
| End If |
|
|
| score =3D score &
"</td></tr>" & VBNewLine &
"</table>" & VBNewLine |
|
|
Else |
|
|
| score =3D "" |
|
|
End If |
|
| <=
/td>
|
|
name =3D
server.htmlencode(stripslashes(Request("instructor_formalname")=
)) |
|
|
email =3D
server.htmlencode(stripslashes(Request("instructor_email")))
| |
|
test =3D "test"
| |
| %> |
|
| <html> |
|
| &l=
t;head><title>Test
Results</title></head> |
|
| &l=
t;body
bgcolor=3D"#FFFFFF" text=3D"#000000"
background=3D"/cgitile.gif"> |
|
| &l=
t;h2><center><%=3D
results %></center></h2> |
|
| &l=
t;%=3D score
%> |
|
| &l=
t;p>Your
test results have been sent to <%=3D name %> at |
|
| &l=
t;a
href=3D"mailto:<%=3D email %>"><%=3D email %><=
;/a>. |
|
| At=
this
time, you can quit your browser or link to another page.</p> |
|
| <=
/td>
|
| </body> |
|
| </html> |
|
| <% |
|
| En=
d Function |
|
| <=
/td>
|
| Fu=
nction
Type_Names(abbv) |
|
|
Select Case abbv |
|
|
Case "TF" Type_Names =3D "True/False" |
|
|
Case "MTF" Type_Na=
mes
=3D "Modified True/Fal=
se" |
|
|
Case "MC" Type_Names =3D "Multiple Choice" |
|
|
Case "MR" Type_Names =3D "Multiple Response"
| |
|
Case "YN" Type_Names =3D "Yes/No" |
|
|
Case "NR" Type_Names =3D "Numeric Response" |
|
|
Case "CO" Type_Names =3D "Completion" |
|
|
Case "MA" Type_Names =3D "Matching" |
|
|
Case "SA" Type_Names =3D "Short Answer" |
|
|
Case "PR" Type_Names =3D "Problem" |
|
|
Case "ES" Type_Names =3D "Essay" |
|
|
Case "CA" Type_Names =3D "Case" |
|
|
Case "OT" |
|
|
| ' Starting with ExamView 5,
publishers can rename the "Other" question type |
|
|
| If
Len(Trim(Request("other_label"))) > 0 Then |
|
|
| Type_Names =3D
stripslashes(Request("other_label")) |
|
|
| Else |
|
|
| Type_Names =3D "Other" |
|
|
| End If |
|
|
End Select |
|
| En=
d Function |
|
| <=
/td>
|
| '*=
***************************************************************************=
*** |
|
| ' |
|
| ' =
This
function sends an email message with the form contents to the address |
|
| ' =
given by
'instructor_email'. |
|
| ' |
|
| '*=
***************************************************************************=
*** |
|
| fu=
nction
send_mail(timeStamp) |
|
| <=
/td>
|
|
toField =3D
stripslashes(Request("instructor_email")) |
|
|
fromField =3D
"Hayato<hayato.chang@gmail.com>" |
|
|
subject =3D "Results for " &am=
p;
stripslashes(Request("test_name")) |
|
| <=
/td>
|
|
emailText =3D "Test res=
ults for
" & stripslashes(Request("student_name")) & "
" |
|
|
if
Len(Trim(Request("student_email"))) > 0 Then |
|
|
| emailText =3D emailText &
"(" & stripslashes(Request("student_email")) &
") " |
|
|
End If |
|
| <=
/td>
|
|
' date format: "Saturda=
y,
October 9, 2004 at 21:04:09" |
|
|
theDate =3D timeStamp |
|
|
emailText =3D emailText &am=
p;
"submitted on " & theDate & " from [" &
request.servervariables("REMOTE_ADDR") & "]" &
VBNewLine & VBNewLine |
|
emailText =3D emailText &=
; "X
- incorrect response" & VBNewLine |
|
|
If
(Request("score_subjective") > 0) Then |
|
|
| emailText =3D emailText &=
; "?
- open-ended question (not graded)" & VBNewLine |
|
|
End If |
|
|
emailText =3D emailText &
str_repeat("-", 65) & VBNewLine & VBNewLine |
|
| <=
/td>
|
|
emailText =3D emailText &
"Test Name: " & stripslashes(Request("test_name"))
& VBNewLine |
|
|
emailText =3D emailText &am=
p;
"Student Name: " &
stripslashes(Request("student_name")) & VBNewLine |
|
| <=
/td>
|
|
If
Len(Trim(Request("student_id"))) > 0 Then |
|
|
| emailText =3D emailText &
"Student ID: " & stripslashes(Request("student_id"=
;))
& VBNewLine |
|
|
End If |
|
| <=
/td>
|
|
' date format: mm/dd/yyyy hh=
:mm:ss |
|
|
emailText =3D emailText &
"Date: " & timeStamp & VBNewLine |
|
| <=
/td>
|
|
If is_version5() Then |
|
|
| pointsLabel =3D "points
" |
|
|
Else |
|
|
| pointsLabel =3D ""=
|
|
|
End If |
|
|
emailText =3D emailText &am=
p;
"Score: " & Request("score_correct") &
"/" & Request("score_possible") |
|
|
emailText =3D emailText &=
; "
" & pointsLabel & "(" &
Request("score_percent") & "%)" |
|
|
If
(Request("score_subjective") > 0) Then |
|
|
| subjCount =3D
Request("score_subjective") |
|
|
| If subjCount =3D 1 Then |
|
|
| emailText =3D emailText &
" [1 open-ended questi=
on not
graded]" |
|
|
| Else |
|
|
| emailText =3D emailText &
" [" & subjCo=
unt
& " open-ended questions not graded]" |
|
|
| End If |
|
|
End If |
|
|
emailText =3D emailText &
VBNewLine |
|
| <=
/td>
|
|
If is_version5 Then |
|
|
| details =3D
Split(Request("score_details"),"|",-1,0) |
|
|
Else |
|
|
| For i=3D1 to
len(Request("score_details")) |
|
|
| details =3D details &
Mid(Request("score_details"), i, 1) |
|
|
| Next |
|
|
End If |
|
| <=
/td>
|
|
' Version 6.0+ supports inte=
rmixed
questions. Don't show secti=
on
headers |
|
|
If
Len(Trim(Request("test_mixed_questions"))) > 0 AND
Request("test_mixed_questions") > 0 Then |
|
|
| emailText =3D emailText &
VBNewLine |
|
|
| mixedTypes =3D true |
|
|
Else |
|
|
| mixedTypes =3D false |
|
|
End If |
|
| <=
/td>
|
|
lastType =3D ""
| |
|
index =3D 1 |
|
|
for i =3D 1 to Request.Form.=
Count |
|
|
| name =3D Request.Form.Key(i)=
|
|
|
| 'response.write "name: =
"
& server.htmlencode(name) & "<BR>" |
|
|
| If InStr(1, name, ":&qu=
ot;, 0)
> 0 Then |
|
|
| currentType =3D
Mid(name,1,InStr(1,name,":",0)-1) |
|
|
| currentNumber =3D
Mid(name,InStr(1,name,":",0)+1) |
|
|
| 'Response.write "curren=
tType:
" & currentType & "<BR>" |
|
|
| 'Response.write "curren=
tNumber:
" & currentNumber & "<BR>" |
|
|
| If Len(currentType) > 0 A=
nd
Len(currentNumber) > 0 Then |
|
|
| If Not mixedTypes AND curren=
tType
<> lastType Then |
|
|
| emailText =3D emailText &
VBNewLine & Type_Names(currentType) & VBNewLine |
|
|
| lastType =3D currentType |
|
|
| End If |
|
|
| 'response.write "detail=
s:
" & score_details & "<BR>" |
|
| <=
/td>
|
|
| markChar =3D Mid(details, in=
dex, 1) |
|
|
| If Len(markChar) <> 1 =
Then
markChar =3D " " |
|
| <=
/td>
|
|
| value =3D request.form(name)=
|
|
|
| 'response.write "value =
=3D "
& value & "<BR>" |
|
|
| emailText =3D emailText &=
; markChar
& " " &=
amp;
currentNumber & ". " & value & VBNewLine |
|
|
| index =3D index + 1 |
|
|
| End If |
|
|
| End If |
|
|
Next |
|
| <=
/td>
|
|
emailText =3D emailText &
str_repeat("-", 65) & VBNewLine |
|
| <=
/td>
|
|
'response.write
"<p>" & emailText & "<P>" |
|
| <=
/td>
|
|
Set
myMail=3DCreateObject("CDO.Message") |
|
|
myMail.Subject=3Dsubject |
|
|
myMail.From=3DfromField |
|
|
myMail.To=3DtoField |
|
|
myMail.TextBody=3DemailText<=
/td>
| |
| <=
/td>
|
|
Err.Clear |
|
|
myMail.Send |
|
|
If Err.Number <> 0 Then
Response.write "Err: " & Err.Number & " " &am=
p;
err.Description & "<p>" |
|
|
set myMail=3Dnothing |
|
| <=
/td>
|
| En=
d Function |
|
| <=
/td>
|
| '*=
***************************************************************************=
*** |
|
| ' |
|
| ' =
This
function displays an error screen and terminates the program. |
|
| ' |
|
| '*=
***************************************************************************=
*** |
|
| fu=
nction
error(whichMsg) |
|
|
msg =3D "" |
|
|
If whichMsg =3D
"missing_fields" Then |
|
|
| title =3D "Missing Data=
" |
|
|
| msg =3D "Some items wer=
e not
filled in correctly. Be sur=
e that
" & _ |
|
|
| you filled in your name in t=
he
Student Name field. & _=
|
|
|
| Please click your browser's
<b>Back</b> button to
& _ |
|
|
| return to the test and try a=
gain. |
|
|
ElseIf (whichMsg =3D
"empty_fields") Then |
|
|
| title =3D "Empty Data&q=
uot; |
|
|
| msg =3D "Some items wer=
e not
filled in correctly. Be sur=
e that
" & _ |
|
|
| you filled in your name in t=
he
Student Name field and &=
; _ |
|
|
| that Javascript is enabled i=
n your
browser. Please & _ |
|
|
| click your browser's
<b>Back</b> button to return to & _ |
|
|
| the test and try again. |
|
|
Else |
|
|
| Response.write "Unhandl=
ed error
type: " & whichMsg & "<br>" & VBNewLine<=
/td>
| |
|
| Response.end |
|
|
End If |
|
| %> |
|
| <html> |
|
| <head> |
|
|
<title><%=3D title
%></title> |
|
| </head> |
|
| <body
bgcolor=3D"#FFFFFF" text=3D"#000000"> |
|
|
<h1><center><=
%=3D title
%></center></h1> |
|
|
<p><%=3D msg %>&=
lt;/p> |
|
| </body> |
|
| </html> |
|
| <=
/td>
|
| <% |
|
|
Response.end |
|
| En=
d Function |
|
| <=
/td>
|
| Sub
parse_name(theName) |
|
|
If InStr(1,theName,",&q=
uot;,1)
Then |
|
|
| 'they entered last name, fir=
st name |
|
|
| LName =3D
Trim(Left(theName,InStr(1,theName,",",1)-1)) |
|
|
| FName =3D
Trim(Mid(theName,InStr(1,theName,",",1)+1)) |
|
|
Else |
|
|
| 'they entered first name las=
t name
(no comma) |
|
|
| LName =3D
Trim(Mid(theName,InStrRev(theName," ")+1)) |
|
|
| FName =3D
Trim(Left(theName,InStrRev(theName," ")-1)) |
|
|
End If |
|
| <=
/td>
|
| End Sub |
|
| <=
/td>
|
| Sub
save_file |
|
|
set fs =3D
CreateObject("Scripting.FileSystemObject") |
|
|
filePath =3D
server.MapPath("/") |
|
|
on error resume next |
|
|
fileText =3D ""
| |
| <=
/td>
|
|
'Save Activity Data |
|
|
set file =3D
fs.CreateTextFile(filePath & "\ActivityData.csv", false,
false) |
|
|
file.close |
|
|
set file =3D fs.OpenTextFile=
(filePath
& "\ActivityData.csv", 8)&=
nbsp;
'8=3Dfor appending |
|
| <=
/td>
|
|
'ID |
|
|
fileText =3D fileText &<=
span
style=3D'mso-spacerun:yes'>
stripslashes(Request("student_id")) & ","<=
/td>
| |
|
'NAME |
|
|
'fileText =3D fileText &=
stripslashes(Request("student_name")) & ","=
; |
|
|
fileText =3D fileText &<=
span
style=3D'mso-spacerun:yes'> """" &
stripslashes(LName) & ", " & stripslashes(FName) &
"""," |
|
|
'GRADE LEVEL |
|
|
fileText =3D fileText &
"," |
|
|
'ACTIVITY |
|
|
fileText =3D fileText &
stripslashes(Request("test_name")) & "," |
|
|
'ACTIVITY TYPE |
|
|
fileText =3D fileText &
"," |
|
|
'GRADE |
|
|
fileText =3D fileText &
Request("score_percent") & "," |
|
|
'DATE |
|
|
fileText =3D fileText & =
Now()
& "," |
|
|
'CLASS |
|
|
fileText =3D fileText &
"," |
|
|
'WEIGHT |
|
|
fileText =3D fileText |
|
|
file.WriteLine(fileText) |
|
|
file.Close() |
|
|
set file =3D nothing |
|
| <=
/td>
|
|
'Save Student Information
| |
|
fileText =3D ""
| |
|
set file =3D
fs.CreateTextFile(filePath & "\StudentInformation.csv", fal=
se,
false) |
|
|
file.close |
|
|
set file =3D fs.OpenTextFile=
(filePath
& "\StudentInformation.csv", 8) '8=3Dfor appending |
|
|
'ID |
|
|
fileText =3D fileText &<=
span
style=3D'mso-spacerun:yes'>
stripslashes(Request("student_id")) & ","<=
/td>
| |
|
'NAME |
|
|
'fileText =3D fileText &=
stripslashes(Request("student_name")) & ","=
; |
|
|
fileText =3D fileText &<=
span
style=3D'mso-spacerun:yes'> """" &
stripslashes(LName) & ", " & stripslashes(FName) &
"""," |
|
|
'EMAIL |
|
|
fileText =3D fileText &<=
span
style=3D'mso-spacerun:yes'>
stripslashes(Request("student_email")) |
|
|
file.WriteLine(fileText) |
|
|
file.Close() |
|
|
set file =3D nothing |
|
| <=
/td>
|
|
set fs =3D nothing |
|
| <=
/td>
|
| End Sub |
|
| <=
/td>
|
| '*=
***************************************************************************=
*** |
|
| ' |
|
| ' Main: |
|
| ' |
|
| '*=
***************************************************************************=
*** |
|
| <=
/td>
|
| ti=
meStamp =3D
now() |
|
| <=
/td>
|
| Ca=
ll
check_required |
|
| Ca=
ll
return_html |
|
| Ca=
ll
send_mail(timeStamp) |
|
| Di=
m FName,
LName |
|
| Ca=
ll
parse_name(Request("student_name")) |
|
| Ca=
ll
save_file |
|
| <=
/td>
|
| %> |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
------=_NextPart_01C83B6F.8D714B00
Content-Location: file:///C:/2D184174/Results_asp-mht_files/sheet003.htm
Content-Transfer-Encoding: quoted-printable
Content-Type: text/html; charset="us-ascii"