欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

asp php 清空access mysql mssql數(shù)據(jù)庫的代碼

 更新時(shí)間：2008年12月14日 12:32:19   作者：  
php清空mysql asp情況access或mssql
asp代碼
復(fù)制代碼 代碼如下:

<%
Dim Rs,Conn
Set Conn=Server.CreateObject("Adodb.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("readlog.mdb")
Set Rs=Conn.OpenSchema(20)
Do While not Rs.Eof
If Ucase(Rs("TABLE_TYPE"))="TABLE" Then '如果是用戶表
Conn.Execute("Drop Table "&Rs("TABLE_NAME")&"")
End If
Rs.MoveNext
Loop
Response.Write "成功!"
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>

php清空mysql
復(fù)制代碼 代碼如下:

<?php
$user = "readlog.cn";//賬號
$password = "readlog.cn";//密碼
$dbname = "readlog";//數(shù)據(jù)庫
$link = mysql_connect("localhost:3306",$user,$password);
mysql_select_db("$dbname",$link);
echo "<p>正在清空數(shù)據(jù)庫...";
$result=mysql_query("SHOW tables",$link);
while ($currow=mysql_fetch_array($result));
mysql_query("DROP TABLE IF EXISTS $currow[0]");
echo "成功!";
?>

asp清空mssql
復(fù)制代碼 代碼如下:

<%
Dim Rs,Conn
Set Conn=Server.CreateObject("Adodb.Connection")
Conn.Open "Provider=Sqloledb; User ID=readlog.cn; Password=readlog.cn; Initial Catalog =readlog; Data Source=(local);"
Set Rs=Conn.Execute("Select name from sysobjects Where xtype=char(85) order by id")
Do While Not Rs.Eof
Conn.Execute("drop table table "&rs(0)&"")
Rs.movenext
loop
Response.Write "成功!"
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>

相關(guān)文章

最新評論