您现在的位置是:网站首页>列表内容
asp php 清空access mysql mssql数据库的代码_其它综合_
2023-05-28 01:36:10 1110人已围观
简介 asp php 清空access mysql 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
$user = "readlog.cn";//账号
$password = "readlog.cn";//密码
$dbname = "readlog";//数据库
$link = mysql_connect("localhost:3306",$user,$password);
mysql_select_db("$dbname",$link);
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
复制代码 代码如下:
$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 "成功!";
?>
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数据库的方法
点击排行
- 使命召唤OL1月16日整点在线预约地址 2016整点在线奖励一览_网络游戏_游戏攻略_
- 剑灵破天灵核怎么获得 剑灵破天灵核获得方法_网络游戏_游戏攻略_
- CF2016年1月13日更新维护到几点 1月新版本什么时候出_网络游戏_游戏攻略_
- 上古世纪每日签到有礼活动网址_上古世纪每日签到有礼活动奖励一览_网络游戏_游戏攻略_
- 最终幻想14拉戈石文等级占领详细介绍_网络游戏_游戏攻略_
- FIFAOL3赛场大富翁活动网址_FIFAOL3赛场大富翁活动奖励一览_网络游戏_游戏攻略_
- 逆战精良道具碎片全面介绍_逆战精良道具碎片使用方法_网络游戏_游戏攻略_
- 怪物猎人OL雄火龙更新时间_怪物猎人ol雄火龙什么时候更新_网络游戏_游戏攻略_
- 暗黑3 2.4野蛮人套装怎么刷 野蛮人套装属性详解_网络游戏_游戏攻略_
本栏推荐
-
使命召唤OL1月16日整点在线预约地址 2016整点在线奖励一览_网络游戏_游戏攻略_
-
剑灵破天灵核怎么获得 剑灵破天灵核获得方法_网络游戏_游戏攻略_
-
CF2016年1月13日更新维护到几点 1月新版本什么时候出_网络游戏_游戏攻略_
-
上古世纪每日签到有礼活动网址_上古世纪每日签到有礼活动奖励一览_网络游戏_游戏攻略_
-
最终幻想14拉戈石文等级占领详细介绍_网络游戏_游戏攻略_
-
FIFAOL3赛场大富翁活动网址_FIFAOL3赛场大富翁活动奖励一览_网络游戏_游戏攻略_
-
逆战精良道具碎片全面介绍_逆战精良道具碎片使用方法_网络游戏_游戏攻略_
-
怪物猎人OL雄火龙更新时间_怪物猎人ol雄火龙什么时候更新_网络游戏_游戏攻略_
-
暗黑3 2.4野蛮人套装怎么刷 野蛮人套装属性详解_网络游戏_游戏攻略_