<ol
class
=
"dp-xml"
>
<li
class
=
"alt"
><span><span>
function
deldata(
$dbname
,
$tableflag
){ </span></span></li>
<li>
<span>$</span><span
class
=
"attribute"
>db_host</span><span> = </span><span
class
=
"attribute-value"
>
'localhost'
</span><span>; </span>
</li>
<li
class
=
"alt"
>
<span>$</span><span
class
=
"attribute"
>db_port</span><span> = </span><span
class
=
"attribute-value"
>
'3306'
</span><span>; </span>
</li>
<li>
<span>$</span><span
class
=
"attribute"
>db_user</span><span> = </span><span
class
=
"attribute-value"
>
'user'
</span><span>; </span>
</li>
<li
class
=
"alt"
>
<span>$</span><span
class
=
"attribute"
>db_pass</span><span> = </span><span
class
=
"attribute-value"
>
'password'
</span><span>; </span>
</li>
<li>
<span>$</span><span
class
=
"attribute"
>connect</span><span> =</span><span
class
=
"attribute-value"
>mysql_connect</span><span>(
$db_host
,
$db_user
,
$db_pass
); </span>
</li>
<li
class
=
"alt"
><span>mysql_select_db(
$dbname
); </span></li>
<li>
<span>$</span><span
class
=
"attribute"
>result</span><span> = </span><span
class
=
"attribute-value"
>mysql_query</span><span>(
"show table status from $dbname"
,
$connect
); </span>
</li>
<li
class
=
"alt"
>
<span>$</span><span
class
=
"attribute"
>data</span><span>=</span><span
class
=
"attribute-value"
>mysql_fetch_array</span><span>(
$result
); </span>
</li>
<li>
<span>
while
($</span><span
class
=
"attribute"
>data</span><span>=</span><span
class
=
"attribute-value"
>mysql_fetch_array</span><span>(
$result
)) { </span>
</li>
<li
class
=
"alt"
>
<span>$</span><span
class
=
"attribute"
>table</span><span>=</span><span
class
=
"attribute-value"
>mysubstr</span><span>(
$data
[Name],
"_"
); </span>
</li>
<li>
<span>
if
($</span><span
class
=
"attribute"
>table</span><span>==
$tableflag
){ </span>
</li>
<li
class
=
"alt"
><span>
<li><span>
</span></li>
<li><span>mysql_query(
"drop table $data[Name]"
); </span></li>
<li
class
=
"alt"
><span>} </span></li>
<li><span>} </span></li>
<li
class
=
"alt"
><span>
return
true; </span></li>
<li><span>} </span></li>
<li
class
=
"alt"
><span>
</span></li>
<li
class
=
"alt"
><span>
function
mysubstr(
$str
,
$flag
){ </span></li>
<li>
<span>$</span><span
class
=
"attribute"
>pos</span><span>=</span><span
class
=
"attribute-value"
>
strpos
</span><span>(
$str
,
$flag
); </span>
</li>
<li
class
=
"alt"
><span>
return
substr
(
$str
,0,
$pos
); </span></li>
<li><span>} </span></li>
<li
class
=
"alt"
>
<span
class
=
"tag"
>?></span><span> </span>
</li>
</ol>