amirlol
Well-Known Member
خیلی وقت بود اینو می خواستم !!!
همش با PHP بود
اینم کدش به زبون ASP
همش با PHP بود
اینم کدش به زبون ASP
کد:
<HTML><HEAD></HEAD><body><%
strUser = "YourYahooUsername"
Set SetOBJ = CreateObject("MSXML2.XMLHTTP")
Call SetOBJ.Open("GET", "http://mail.opi.yahoo.com/online?u=" & strUser & "&m=t&t=0", false, "", "")
SetOBJ.Send
strOutput = UCase(SetOBJ.ResponseText)
If InStr(strOutput, "NOT ONLINE") > 0 Then
strStatus = "OFFLINE"
imgStatus = "<BR><IMG SRC='offline.gif' ALT='OFFLINE'>"
Else
strStatus = "ONLINE"
imgStatus = "<BR><IMG SRC='online.gif' ALT='ONLINE'>"
End If
Response.Write "Status : " & strUser & " Is " & strStatus & " " & imgStatus
%></body></html>