文章分类
ASP教程 ASP.net教程 PHP教程 JSP教程
 产品搜索
关键字: 分类:

整站搜索:
最新更新资源:
海量设计素材
韩国网页设计模板
高清PSD素材库
Flash网站模板
设计素材图库:
婚纱影楼模板
韩国卡通图库
VIS模板
版式画册模板

最新素材图库



当前位置:首页 >> 编程开发>> ASP教程 >> 让ASP实现可以在线执行SQL语句

让ASP实现可以在线执行SQL语句


作者: 佚名 来源:网络 浏览:3718 日期:2006-7-19 23:14:03

基本上的CMS都具备在线执行SQL语句的功能,能让熟悉SQL语言的管理更加自由.下面这段代码可以让ASP实现可以在线执行SQL语句功能.
结合你的ASP程序可以达到很好效果,不过如果没有好使用对数据库来说可是一场灾难.
程序代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<%
'// Datebase
Dim ConnStr,conn
 ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("12.mdb")
Set Conn = Server.CreateObject("Adodb.Connection")
 Conn.Open ConnStr
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>让ASP在线执行SQL语句 Editor www.Aspid.cn For 吟清</title>
</head>
<body>
<%
if request("act")="DoExeCuteSql" then
  call DoExeCuteSql()
    Else
%>
<form action="?act=DoExeCuteSql" method="post" name="form" id="form">
 <textarea name="Content" rows="5" wrap="OFF" id="Content" style="width:100%"></textarea>
 <br />
 <input name="Submit" type="submit" value="执行SQL语句">
 <input name="Rest" type="reset" value="重写">
</form>
<% End If %>
</body>
</html>
<%
'//执行Sql语句操作
Sub DoExeCuteSql()
 Dim Content
 Content=Request("Content")
 Err.Clear
 On Error Resume Next
 Conn.BeginTrans
 Conn.ExeCute(Content)
 If Err.Number<>0 Then
 Conn.Rollback
 Response.Write("<script>alert(""<执行失败>\nSQL语句有误,请检查你的SQL语句.\nFor Aspid.cn"");window.history.back();</script>")
 Else
 Conn.CommitTrans
 Response.Write("<script>alert(""<执行成功>\nSQL语句执行完毕\nFor Aspid.cn"");window.history.back();</script>")
 End If
 Response.End
End Sub
%>

吟清的Blog一开始没有关闭引用通告导致每篇日志下面都有大量引用地址,而且很多都不能删除,这个时候下面这段程序就起作用了!在代码输入框中输入以下代码执行就可以清空引用了.
DELETE FROM blog_Trackback WHERE tb_id > 0
 

上一篇:这个问题我刚刚前两天做过,呵呵(会不会加入精华区) 下一篇:ASP编程基础:重新安装IIS的方法
【关闭窗口】 【返回顶部】返回编程开发】 【返回ASP教程

相关推荐文章

ASP与SQL基础(2)

ASP做象资源管理器的..

ASP与SQL基础(1)


关于本站 | 广告服务 | 联系我们 | 站长微博 | 活动支持 | 友情链接 | 投稿热线 | 网站地图
版权所有 Copyright@ 2005 设计路上 QQ技术讨论群 24980615(已满) 5204059(已满) 4337615(已满)
业务联系Email:huchuangwu@hotmail.com 粤ICP备05029101号