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

	您现在的位置：西部视觉 >> 设计教程 >> 编程开发 >> 文章正文	用户登录新用户注册

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

★★★

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

作者：佚名文章来源：本站原创点击数：更新时间：2008-3-7 22:38:08

基本上的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

免责声明：作品版权所属媒体与作者所有，本站刊载此文不代表同意其说法或描述，仅为提供更多信息！有异议请联系我们。

上一篇文章：站长建站常用的SQL和ASP技巧集合

下一篇文章：在ASP中实现通用的绝对路径生成方法

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）