<%

mingcheng=request("mingcheng")

sec=Request("score")

session("mingcheng")=mingcheng

session("sec")=sec

If session("ID")="" then

response.redirect "qzhuce.asp"

response.end

End If

dim time1

sec=Request("score")

Set conn = GetMdbConnection("score.mdb")

time1=Cstr(date)

SQL2="select * from mmd where nickname='"&session("id")&"'"

Set zy2 = Conn.Execute( SQL2 )

old = zy2("mgdf")

'response.write old

'zy2.close

if cint(old) <= cint(sec) and cint(old)<>0 then

SQL1="update mmd set mgdf ="&old&",time1='"&time1&"' where nickname ='"&session("id")&"'"

else

SQL1="update mmd set mgdf ="&sec&",time1='"&time1&"' where nickname ='"&session("id")&"'"

end if

Set zy1 = Conn.Execute( SQL1 )

'zy1.close

%>