<%
Dim is_online
Dim Online_src
is_online = rs("is_online")
if (is_online) then
online_src="iamges/online.gif"
else
online_src="images/offline.gif"
end if
%>
دوست من ای کاش اینطوری صحبت نمی کردی !!!!خانوم عزیز با عرض شرمندگی این چیزی که شما فرمودید یک کد بسیار ساده و ابتدایی هستش (البته در حالت معمول و ابتداییش) که این سوال شما نشون می ده که متاسفانه شما چیزی از Asp و یا حتی برنامه نویسی نمیدونین.
با این حال برا این کار باید یک قطعه کد داشته باشید که مشخص کنه کاربر آنلاین هست یا نه (حالا به هر روشی) سپس با استفاده از نتایج اون کد یکی از تصویرهای آدمکهاتون رو نشون بده (خاموش یا روشن).!
session("user") = اسم کاربری یا هز چیز دیگه
خانوم عزیز با عرض شرمندگی این چیزی که شما فرمودید یک کد بسیار ساده و ابتدایی هستش (البته در حالت معمول و ابتداییش) که این سوال شما نشون می ده که متاسفانه شما چیزی از Asp و یا حتی برنامه نویسی نمیدونین.
با این حال برا این کار باید یک قطعه کد داشته باشید که مشخص کنه کاربر آنلاین هست یا نه (حالا به هر روشی) سپس با استفاده از نتایج اون کد یکی از تصویرهای آدمکهاتون رو نشون بده (خاموش یا روشن).!
کد:http://opi.yahoo.com/online?u=amirlol
این برای خود یاهو هستش !!
<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>