1、ASP清空ACCESS

<% 

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 

%> 

2、PHP清空mysql 

<?php 

$user = "readlog.cn";//账号 

$password = "readlog.cn";//密码 

$dbname = "readlog";//数据库 

$link = mysql_connect("localhost:3306",$user,$password); 

mysql_select_db("$dbname",$link); 

echo "<p>正在清空数据库..."; 

$result=mysql_query("SHOW tables",$link); 

while ($currow=mysql_fetch_array($result)); 

mysql_query("DROP TABLE IF EXISTS $currow[0]"); 

echo "成功!"; 

?> 

3、Asp清空mssql 

<% 

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 

%>