asp php 清空access mysql mssql数据库的代码
更新时间：2008年12月14日 12:32:19 作者：
php清空mysql asp情况access或mssql
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
%>
复制代码 代码如下:
<%
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
%>
您可能感兴趣的文章:
- asp MYSQL出现问号乱码的解决方法
- asp.net 结合mysql存储过程进行分页代码
- Asp.net 连接MySQL的实现代码[]
- asp.net中通过ALinq让Mysql操作变得如此简单
- Win2003下配置iis+php+mysql+zend图文 使其支持asp,.net,cgi,perl和php
- asp连接mysql数据库详细实现代码
- 教你Asp.net下使用mysql数据库的步骤
- aspx中的mysql操作类sqldatasource使用示例分享
- ASP.NET连接MySql数据库的2个方法及示例
- asp+mysql+utf8 网页出现乱码问题的解决方法
- MySQL结合使用数据库分析工具SchemaSpy的方法
- ASP使用MySQL数据库的方法
相关文章
这篇文章主要介绍了resty的1.2.0-SNAPSHOT版本更新，可以通过header控制api的版本实现数据源读写分离，有需要的朋友可以借鉴参考下，希望能够有所帮助<BR>，2022-03-03
这篇文章主要介绍了Emscripten在Windows10下的安装和配置,Emscripten 是一个完整的 WebAssembly开源编译器工具链，使用Emscripten可以参考平台说明，感兴趣的朋友一起看看吧2022-05-05
这篇文章主要介绍了使用postman进行接口测试的方法(测试用户管理模块)，本文给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值，需要的朋友参考下吧2021-01-01
本文主要介绍了使用内网穿透工具Ngrok代理本地服务，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面随着小编来一起学习学习吧2022-03-03
这篇文章主要介绍了Fiddler4的安装与使用详解，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面随着小编来一起学习学习吧2021-01-01
这篇文章主要介绍了详解使用IDEA模拟git命令使用的常见场景，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面随着小编来一起学习学习吧2021-04-04
noVNC是一个 HTML5 VNC 客户端，采用 HTML 5 WebSockets, Canvas 和 JavaScript 实现，这篇文章主要介绍了NoVNC以Web方式交付VNC远程连接的方法，感兴趣的朋友一起看看吧2021-09-09
这篇文章主要介绍了使用阿里大于(大鱼)平台进行发送手机验证码的流程,非常不错，具有一定的参考借鉴价值，需要的朋友可以参考下2019-10-10
这篇文章主要介绍了mathtype的下载与使用超详细教程,包括mathtype使用技巧常用快捷键，本文给大家讲解的非常详细，对大家的学习或工作具有一定的参考借鉴价值，需要的朋友可以参考下2023-01-01
分别用asp与php实现百度ping服务的代码，需要的朋友可以参考下2012-02-02
最新评论