check.asp

本系统功能如下： 1.本系统提供了单选题

<%@ language=VBScript %>
<%
dim fenshu
fenshu=0
set conn=server.CreateObject("adodb.connection")
connstr="dbq="&server.MapPath("diaocha.mdb")&";driver={microsoft access driver (*.mdb)};"
conn.open connstr
set rec=server.CreateObject("adodb.recordset")
sql="select * from daan where ID=1"
rec.open sql,conn,1,1
R1 = Request.Form("R1")
R2 = Request.Form("R2")
if rec("R2")=R2 Then
fenshu=fenshu+2
end if
R3 = Request.Form("R3")
if rec("R3")=R3 Then
fenshu=fenshu+2
end if
R4 = Request.Form("R4")
if rec("R4")=R4 Then
fenshu=fenshu+2
end if
R5 = Request.Form("R5")
if rec("R5")=R5 Then
fenshu=fenshu+2
end if
R6 = Request.Form("R6")
if rec("R6")=R6 Then
fenshu=fenshu+2
end if
R7 = Request.Form("R7")
if rec("R7")=R7 Then
fenshu=fenshu+2
end if
R8 = Request.Form("R8")
if rec("R8")=R8 Then
fenshu=fenshu+2
end if
R9 = Request.Form("R9")
if rec("R9")=R9 Then
fenshu=fenshu+2
end if
R10 = Request.Form("R10")
if rec("R10")=R10 Then
fenshu=fenshu+2
end if
R11 = Request.Form("R11")
if rec("R11")=R11 Then
fenshu=fenshu+2
end if
R12 = Request.Form("R12")
if rec("R12")=R12 Then
fenshu=fenshu+2
end if
R13 = Request.Form("R13")
if rec("R13")=R13 Then
fenshu=fenshu+2
end if
R14 = Request.Form("R14")
if rec("R14")=R14 Then
fenshu=fenshu+2
end if
R15 = Request.Form("R15")
if rec("R15")=R15 Then
fenshu=fenshu+2
end if
R16 = Request.Form("R16")
if rec("R16")=R16 Then
fenshu=fenshu+2
end if
R17 = Request.Form("R17")
if rec("R17")=R17 Then
fenshu=fenshu+2
end if
R18 = Request.Form("R18")
if rec("R18")=R18 Then
fenshu=fenshu+2
end if
R19 = Request.Form("R19")
if rec("R19")=R19 Then
fenshu=fenshu+2
end if
R20 = Request.Form("R20")
if rec("R20")=R20 Then
fenshu=fenshu+2
end if
C1 = trim(Request.Form("C1"))
if rec("C1")=C1 Then
fenshu=fenshu+2
end if
C2 =trim(Request.Form("C2"))
if rec("C2")=C2 Then
fenshu=fenshu+2
end if
C3 = trim(Request.Form("C3"))
if rec("C3")=C3 Then
fenshu=fenshu+2
end if
C4 = trim(Request.Form("C4"))
if rec("C4")=C4 Then
fenshu=fenshu+2
end if
C5 =trim(Request.Form("C5"))
if rec("C5")=C5 Then
fenshu=fenshu+2
end if
C6 = trim(Request.Form("C6"))
if rec("C6")=C6 Then
fenshu=fenshu+2
end if
C7 = trim(Request.Form("C7"))
if rec("C7")=C7 Then
fenshu=fenshu+2
end if
C8 =trim(Request.Form("C8"))
if rec("C8")=C8 Then
fenshu=fenshu+2
end if
C9 = trim(Request.Form("C9"))
if rec("C9")=C9 Then
fenshu=fenshu+2
end if
C10 = trim(Request.Form("C10"))
if rec("C10")=C10 Then
fenshu=fenshu+2
end if
dim pfenshu
pfenshu=0
PAN1 = Request.Form("PAN1")
if PAN1<>"" then
if rec("PAN1")=PAN1 then
pfenshu=pfenshu+2 
else
pfenshu=pfenshu-2
end if
end if
PAN2 = Request.Form("PAN2")
if PAN2<>"" then
if rec("PAN2")=PAN2 then
pfenshu=pfenshu+2 
else
pfenshu=pfenshu-2
end if
end if
PAN3 = Request.Form("PAN3")
if PAN3<>"" then
if rec("PAN3")=PAN3 then
pfenshu=pfenshu+2 
else
pfenshu=pfenshu-2
end if
end if
PAN4 = Request.Form("PAN4")
if PAN4<>"" then
if rec("PAN4")=PAN4 then
pfenshu=pfenshu+2 
else
pfenshu=pfenshu-2
end if
end if
PAN5 = Request.Form("PAN5")
if PAN5<>"" then
if rec("PAN5")=PAN5 then
pfenshu=pfenshu+2 
else
pfenshu=pfenshu-2
end if
end if
PAN6 = Request.Form("PAN6")
if PAN6<>"" then
if rec("PAN6")=PAN6 then
pfenshu=pfenshu+2 
else
pfenshu=pfenshu-2
end if
end if
PAN7 = Request.Form("PAN7")
if PAN7<>"" then
if rec("PAN7")=PAN7 then
pfenshu=pfenshu+2 
else
pfenshu=pfenshu-2
end if
end if
PAN8 = Request.Form("PAN8")
if PAN8<>"" then
if rec("PAN8")=PAN8 then
pfenshu=pfenshu+2 
else
pfenshu=pfenshu-2
end if
end if
PAN9 = Request.Form("PAN9")
if PAN9<>"" then
if rec("PAN9")=PAN9 then
pfenshu=pfenshu+2 
else
pfenshu=pfenshu-2
end if
end if
PAN10 = Request.Form("PAN10")
if PAN10<>"" then
if rec("PAN10")=PAN10 then
pfenshu=pfenshu+2 
else
pfenshu=pfenshu-2
end if
end if
PAN11 = Request.Form("PAN11")
if PAN11<>"" then
if rec("PAN11")=PAN11 then
pfenshu=pfenshu+2 
else
pfenshu=pfenshu-2
end if
end if
PAN12 = Request.Form("PAN12")
if PAN12<>"" then
if rec("PAN12")=PAN12 then
pfenshu=pfenshu+2 
else
pfenshu=pfenshu-2
end if
end if
PAN13 = Request.Form("PAN13")
if PAN13<>"" then
if rec("PAN13")=PAN13 then
pfenshu=pfenshu+2 
else
pfenshu=pfenshu-2
end if
end if
PAN14 = Request.Form("PAN14")
if PAN14<>"" then
if rec("PAN14")=PAN14 then
pfenshu=pfenshu+2 
else
pfenshu=pfenshu-2
end if
end if
PAN15 = Request.Form("PAN15")
if PAN15<>"" then
if rec("PAN15")=PAN15 then
pfenshu=pfenshu+2 
else
pfenshu=pfenshu-2
end if
end if
PAN16 = Request.Form("PAN16")
if PAN16<>"" then
if rec("PAN16")=PAN16 then
pfenshu=pfenshu+2 
else
pfenshu=pfenshu-2
end if
end if
PAN17 = Request.Form("PAN17")
if PAN17<>"" then
if rec("PAN17")=PAN17 then
pfenshu=pfenshu+2 
else
pfenshu=pfenshu-2
end if
end if
PAN18 = Request.Form("PAN18")
if PAN18<>"" then
if rec("PAN18")=PAN18 then
pfenshu=pfenshu+2 
else
pfenshu=pfenshu-2
end if
end if
PAN19 = Request.Form("PAN19")
if PAN19<>"" then
if rec("PAN19")=PAN1 then
pfenshu=pfenshu+2 
else
pfenshu=pfenshu-2
end if
end if
PAN20 = Request.Form("PAN20")
if PAN20<>"" then
if rec("PAN20")=PAN20 then
pfenshu=pfenshu+2 
else
pfenshu=pfenshu-2
end if
end if
if pfenshu<0 then
pfenshu=0
end if
fenshu=fenshu+pfenshu
if R1<>"" then
fenshu=fenshu+2
end if
user_name=Request.Form("user_name")
user_id=Request.Form("user_id")
user_tel=Request.Form("user_tel")
user_add=Request.Form("user_add")
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from info"
rs.open sqlstr,conn,2,3
rs.addnew
Rs("R1") = R1
Rs("R2") = R2
Rs("R3") = R3
Rs("R4") = R4
Rs("R5") = R5
Rs("R6") = R6
Rs("R7") = R7
Rs("R8") = R8
Rs("R9") = R9
Rs("R10") = R10
Rs("R11") = R11
Rs("R12") = R12
Rs("R13") = R13
Rs("R14") = R14
Rs("R15") = R15
Rs("R16") = R16
Rs("R17") = R17
Rs("R18") = R18
Rs("R19") = R19
Rs("R20") = R20
Rs("C1") = C1
Rs("C2") = C2
Rs("C3") = C3
Rs("C4") = C4
Rs("C5") = C5
Rs("C6") = C6
Rs("C7") = C7
Rs("C8") = C8
Rs("C9") = C9
Rs("C10") = C10
Rs("PAN1") = PAN1
Rs("PAN2") = PAN2
Rs("PAN3") = PAN3
Rs("PAN4") = PAN4
Rs("PAN5") = PAN5
Rs("PAN6") = PAN6
Rs("PAN7") = PAN7
Rs("PAN8") = PAN8
Rs("PAN9") = PAN9
Rs("PAN10") = PAN10
Rs("PAN11") = PAN11
Rs("PAN12") = PAN12
Rs("PAN13") = PAN13
Rs("PAN14") = PAN14
Rs("PAN15") = PAN15
Rs("PAN16") = PAN16
Rs("PAN17") = PAN17
Rs("PAN18") = PAN18
Rs("PAN19") = PAN19
Rs("PAN20") = PAN20
Rs("username") =user_name
Rs("tel")=user_tel
Rs("add")=user_add
Rs("sfz")=user_id
RS("SCORE")=fenshu
rs.update
rs.close
set rs=nothing
response.redirect "sucess.asp?score="&fenshu&""
%>