MySQLSQL数据库清空代码清空

% DimRs,Conn Set Conn = Server .CreateOb



 
以下的文章主要介绍的是MySQLSQL数据库清空代码 _php 清空mysql asp的实际操作情况，本文主要讲述的是access或是mssql 2009-10-14 17:34asp 代码的详细解析，希望会给你带来一些帮助在此方面。



 代码如下:
<% 
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 
%> 

$user = "readlog.cn";//账号 
$password = "readlog.cn";//密码 
$dbname = "readlog";//数据库 
$link = mysql_connect("localhost:3306",$user,$password); 
mysql_select_db("$dbname",$link); 
echo "
正在清空数据库..."; 
$result=mysql_query("SHOW tables",$link); 
while ($currow=mysql_fetch_array($result)); 
mysql_query("DROP TABLE IF EXISTS $currow[0]"); 
echo "成功!"; 
?> 

<% 
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 
%>