Konu Yazar
Viva La Muerte
Kimseye Etmem Şikayet
- May
- 525
- 28
jadereal1st Adında Bir Arkadaşımız Yapmış...
Kullanımı Gayet Basit...
Aşağıdaki Kodda
"driver={SQL Server};server=localhost;uid=DB-KullanıcıAdı;pwd=DB-Şifre;database=DB-Adı"
Bu Kısmı Bulun ve Kendinize Göre Doldurun
Daha Sonra Enterprise Manager ile Database'inizde Site Adında Tablo Bunun İçinede "Sitebaslik Varchar 10" Olucak Şekilde Bir Kolon Oluşturun Bunu Yapmassanız Çalışmaz Çünkü Sayfa Başlığını Burdan Çekiyor...
Buda Görünümü
Kullanımı Gayet Basit...
Aşağıdaki Kodda
"driver={SQL Server};server=localhost;uid=DB-KullanıcıAdı;pwd=DB-Şifre;database=DB-Adı"
Bu Kısmı Bulun ve Kendinize Göre Doldurun
Daha Sonra Enterprise Manager ile Database'inizde Site Adında Tablo Bunun İçinede "Sitebaslik Varchar 10" Olucak Şekilde Bir Kolon Oluşturun Bunu Yapmassanız Çalışmaz Çünkü Sayfa Başlığını Burdan Çekiyor...
PHP:
<%
Set Baglantim=Server.CreateObject("Adodb.Connection")
Baglantim.Open "driver={SQL Server};server=localhost;uid=DB-KullanıcıAdı;pwd=DB-Şifre;database=DB-Adı" 'Bu Bölüm baðlantý bölümünüzdür.
%>
<%
set baslik = Baglantim.execute("select * from site")
%>
<title><% response.write baslik("sitebaslik") %> - Tüm Kullanýcýlar</title>
<%
function temizle (strForm)
If strForm = "" Then Exit Function
strForm = Trim(strForm)
strForm = Replace (strForm ,"1", "Karus")
strForm = Replace (strForm ,"2", "Human")
temizle = strForm
end function
%>
<%
function temizlik (strForm)
If strForm = "" Then Exit Function
strForm = Trim(strForm)
strForm = Replace (strForm ,"1", "Oyuncu")
strForm = Replace (strForm ,"0", "GameMaster")
strForm = Replace (strForm ,"255", "Banlanmýs")
temizlik = strForm
end function
%>
<body link="#FF0000" vlink="#FF0000" alink="#FF0000" text="#000000">
<p align="center"><b><font face="Tahoma" size="4">!BÜTÜN OYUNCULAR GENEL BÝLGÝ!</font></b></p>
<%
set rs = Baglantim.execute("select * from USERDATA")
%>
<table width="80%" height="1" border="1" align="center" cellpadding="1" cellspacing="1" id="AutoNumber1" style="border-collapse: collapse">
<tr>
<td width="16%" height="13" bgcolor="#000000">
<p align="center"><b><font face="Tahoma" size="2" color="#FFFFFF">ID</font></b></td>
<td width="16%" height="13" bgcolor="#000000">
<p align="center"><b><font face="Tahoma" size="2" color="#FFFFFF">Level</font></b></td>
<td width="17%" height="13" bgcolor="#000000">
<p align="center"><b><font face="Tahoma" size="2" color="#FFFFFF">Irk</font></b></td>
<td width="17%" height="13" bgcolor="#000000">
<p align="center"><b><font face="Tahoma" size="2" color="#FFFFFF">Yetki</font></b></td>
<td width="17%" height="13" bgcolor="#000000">
<p align="center"><b><font face="Tahoma" size="2" color="#FFFFFF">NP</font></b></td>
</tr>
<%
do while not rs.eof
%>
<tr>
<td width="16%" height="1" bgcolor="#999999">
<p align="center" class="style1"><font face="Tahoma" size="2">
<% response.write rs("strUserID") %>
</font></td>
<td width="16%" height="1" bgcolor="#999999">
<p align="center" class="style1"><font face="Tahoma" size="2">
<% response.write rs("Level") %>
</font></td>
<td width="17%" height="1" bgcolor="#999999">
<p align="center" class="style1"><font face="Tahoma" size="2"><%=temizle(rs("nation"))%></font></td>
<td width="17%" height="1" bgcolor="#999999">
<p align="center" class="style1"><font face="Tahoma" size="2"><%=temizlik(rs("Authority"))%></font></td>
<td width="17%" height="1" bgcolor="#999999">
<p align="center" class="style1"><font face="Tahoma" size="2">
<% response.write rs("Loyalty") %>
</font></td>
</tr>
<%
rs.movenext
loop
%>
</table>
<%
Set rsayi = Baglantim.ExeCute("select count(*) as toplam from USERDATA")
toplam_karakter=rsayi("toplam")
%>
<p align="center"><font face="Tahoma" size="2">Toplam <font color="#FF0000"> <b><%= toplam_karakter %></b></font> karakter bulunuyor.<br>
TASARIM VE KODLAMA JRPOWERSLAVE
(EÐÝTÝM AMAÇLI YAZILMIÞTIR)</font></p>
<style type="text/css">
<!--
.style1 {color: #000000}
-->
</style>Buda Görünümü
