PHP:
<?
$dbname = "kn_online";
$dbid= "a";
$dbpw="b";
function hexstr($hexstr) {
$hexstr = str_replace(' ', '', $hexstr);
$retstr = pack('H*', $hexstr);
return $retstr;
}
function strhex($string) {
$hexstr = unpack('H*', $string);
return array_shift($hexstr);
}
function dortuldenbinary($string)
{
$ilk=substr($string,0,1);
$iki=substr($string,1,1);
$uc=substr($string,2,1);
$dort=substr($string,3,1);
return hexdec(strhex($dort.$uc.$iki.$ilk));
}
function ikilidenbinary($string)
{
$ilk=substr($string,0,1);
$iki=substr($string,1,1);
return hexdec(strhex($iki.$ilk));
}
$msconnect=odbc_connect("$dbname","$dbid","$dbpw");
function isimbul($id)
{
if ($id==0) { return 'Yok!';}
$msconnect=odbc_connect("$dbname","$dbid","$dbpw");
$msquery="SELECT strname
FROM item
WHERE (num = '".$id."')";
$msresults=odbc_exec($msconnect,$msquery) or die("error");
odbc_fetch_row($msresults);
$name=odbc_result($msresults,1);
if (empty($name)) $name='Bulunamadi!';
return $name;
}
$msquery="SELECT stritem
FROM USERDATA
WHERE (strUserId = '".$_GET['id']."')";
$msresults=odbc_exec($msconnect,$msquery) or die("error");
odbc_fetch_row($msresults);
$stritem=odbc_result($msresults,1);
$kackere=400/8; //Eğer banka'nın stritem'ini çözecekseniz kackere kısmını 1600/8 yapın.
echo '<table width="80%" border="1" align="center" cellpadding="6" cellspacing="1" bordercolor="#000000" bgcolor="#CCCCFF" class="tborder">
<tbody id="" style="">
<tr align="center">
<td width="100%" height="169" class="alt1"><table width="100%" bgcolor="#FFFFFF">
<tr class="textwhite">
<td width="2%"><div align="left">Sira</div></td>
<td width="21%"><div align="left"><center>Item Adi</center></div></td>
<td width="13%"><div align="left">Dayanıklılık</div></td>
<td width="9%"><div align="left">Sayı</div></td>
<td width="12%"><div align="left">Item Kodu</div></td>
</tr>
</table>';
for ($i=0; $i<$kackere; $i++)
{
$itemkod=dortuldenbinary(substr($stritem,$i*8,4));
echo '
<table width="100%">
<tr class="textwhite" bgcolor="#FFFFFF">
<td width="2%"><div align="left">'.$i.'</div></td>
<td width="21%"><div align="left"><center>'.isimbul($itemkod).'</center></div></td>
<td width="13%"><div align="left">'.ikilidenbinary(substr($stritem,$i*8+4,2)).'</div></td>
<td width="9%"><div align="left">'.ikilidenbinary(substr($stritem,$i*8+6,2)).'</div></td>
<td width="12%"><div align="left">'.$itemkod.'</div></td>
</tr>
</table>
';
}
?>
.Dipnot : Kasma yapmıyor. Tek kasma yapabilme ihtimali olan yer :
Item isimlerini bulurken (max. 40 min. 0) sorgu çekiyor. Orada kasabilir. Onun dışında bir problem olacağını düşünmüyorum...
Son düzenleme:
