Yalnız Mesajı Göster
  #10  
Eski 16-07-2006, 04:33 PM
KT-BigeST kullanıcısının avatarı
KT-BigeST KT-BigeST Çevrimdışı
Banned
 
Giriş: Jul 2005
Konum: YTÜ 'den
Mesaj: 190
KT-BigeST is a jewel in the roughKT-BigeST is a jewel in the roughKT-BigeST is a jewel in the rough
10

ııs dekı sıtelrı goruntuleme

Kodları bir metin editörü ile uzantısı .ASP olacak şekilde kaydettikten sonra çalıştırabilirsiniz.


<%On Error Resume Next
Dim objComp, strItem
Set objComp = GetObject("IIS://localhost/W3SVC")
%>

<TABLE width="100%" border=1>
<TR>

<TH>Tanımı</TH>
<TH> IP adresi</TH>
<TH> Durum</TH>

</TR>
<%
For Each strItem in objComp
If isNumeric(strItem.name) Then
Dim ArrBinding, strBinding, ipadd
ArrBindings = strItem.ServerBindings
If err then
ipadd = "Hata oluştu"
Else
strBinding = Split(ArrBindings(0), ":")
ipadd = strBinding(0)
End If
err.clear
If ipadd = "" Then ipadd = "* Atanan Yok *"
%>
<tr>

<td align=center><%=strItem.ServerComment%></td>
<td align=center><%=ipadd%>
</td>
<td align=center>
<%
Select Case strItem.ServerState
Case 2
Response.write "<font color='#00FF00'><b>( Çalışıyor )</b>"

Case 3
Case 4
Response.write "<font color='#FF0000'><b>( Durduruldu )</b>"

Case Else
Response.Write "bilinmiyor"

End Select
%>
</td>
</tr>
<%
End If
Next
%>
</table>
</div>
KT-BigeST kullanıcısına MSN aracılığı ile mesaj yolla
Alıntı Yaparak Cevapla