赵氏孤儿发生在韩城:startTime = timer()是什么意思

<%
response.buffer = true

dim startTime, endtime
startTime = timer()

dim conn
dim connstr
dim rs, rSub
dim sql

connstr = "driver={microsoft Access driver (*.mdb)}; dbq=" & server.mappath("data/#data.mdb")
set conn = server.createobject("ADODB.CONNECTION")

if err.number<>0 then
err.clear
set conn=nothing
response.write "<script>window.status=""创建 ADO 对象失败"";</script>"
response.end
else
conn.open connstr

if err.number<>0 then
err.clear
set conn=nothing
response.write "<script>window.status=""数据库连接失败"";</script>"
'''请检查数据库是否存在，以及 ODBC 是否存在
response.end
end if
end if

set rs = Server.CreateObject("ADODB.Recordset") '主程序用
set rSub = Server.CreateObject("ADODB.Recordset") '子程序用

'+++++++++++++++++++++++++++++++上面这段为用户登录后要记录的COOKIES+++++++++++++++++++++++++++

Sub objend()
set rSub=nothing
set rs=nothing
conn.close
set conn=nothing

endtime=timer()
response.write "<script>window.status=""执行时间：" &_
FormatNumber((endtime-startTime)*1000,3) & " 毫秒"";" &_
"setTimeout(""window.status='';"",2000);" &_
"</script>"
End Sub

'函数功能：获取网站指定属性
Function GetKey(strKeyName,strUserID,strType)
strTemp=Eval(strType & "_" & strKeyName)
if strTemp="" then
GetKey="Null"
else
GetKey=strTemp
end if
End Function
帮我解释一下 （上面这段为用户登录后要记录的COOKIES+++++++++++++++++++++++++++ —）
下面的代码意思？