'********************************************************** ***************** 'Detecting whether it is mobile phone to browse' *********************** **************************************************** <% if INSTR (Request.ServerVariables ("Http_user_Agent"), "mozilla") = 0 ThenResponse.redirect "/ wap" "If the client is accessible for mobile phone, enter the / wap directory Elseresponse.Redirect" http://wap.hxblog.net "" If the client Not mobile phone access, then enter the designated address end if%> '********************************************* ************************************************************************* *********************************************************** ** Function Userip () Dim GetClientIP 'if the client with the proxy server should ServerVariables ( "HTTP_X_FORWARDED_FOR") method GetClientIP = Request.ServerVariables ( "HTTP_X_FORWARDED_FOR") If GetClientIP = "" or isnull (GetClientIP) or isempty ( GetClientip) If the client does not use the agent, use the request.servervariables ("remote_addr") method getClientip = Request.serverVariables ("remote_addr") end ifuserip = getClientipend Function '**************** *********************************************************** *****' pop-up dialogue box'**************************************** ************************** SUB ALERT ( Message = Replace (Message, "'", "/'") Response.write ("
