asp代码

复制代码 代码如下:

<%

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

复制代码 代码如下:

<?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 "成功!";

?>

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

%>