数据SQL执行器代码:

最新推荐文章于 2023-03-24 19:00:00 发布
最新推荐文章于 2023-03-24 19:00:00 发布
阅读量1.6k 收藏
点赞数
分类专栏： asp 文章标签： sql table session function input 数据库
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/panzi667/article/details/148459
版权
<!--SQL执行器，用于调试SQL语句。数据库高手的在线维护（ACCESS专用）要求存放于ASP权限的目录-->
<!--张胜永windxixi制作-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
FormItem { font-family: Tahoma, Arial, Helvetica; font-size: 8pt; color: #000000 }
TextArea { font-family: Arial, Helvetica; font-size: 10pt; color: #000000 }

-->
</style>
</head>
<script language="javascript">

function confirmSQL(msg){
var SQL=document.sqlform.sql.value;
if ((SQL!="") & (SQL.toUpperCase().indexOf('SELECT')<0)){
if(confirm(msg))
document.sqlform.submit();
}
else
document.sqlform.submit();
}
function showSQL(x) {
sqlvalue = document.sqlform.sql.value;

if (x == 0) {
smsg = "/nSQL语法帮助:/n/n";
smsg = smsg + "1. 选取你想用的SQL语句并单击./n";
smsg = smsg + "2. 修改SQL语句./n";
alert(smsg); }

else if (x == 1) {
smsg = "SELECT 字段名, 字段名/n";
smsg = smsg + " FROM 表名/n";
smsg = smsg + " WHERE 字段名 = '值'/n/n";
if (sqlvalue == "") { document.sqlform.sql.value = smsg; }
else {
document.sqlform.sql.value = document.sqlform.sql.value + smsg; }
}

else if (x == 2) {
smsg = "INSERT INTO 表名/n";
smsg = smsg + " (字段名, IntegerColumnName)/n";
smsg = smsg + " VALUES ('值', numericValue)/n/n";
if (sqlvalue == "") { document.sqlform.sql.value = smsg; }
else {
document.sqlform.sql.value = document.sqlform.sql.value + smsg; }
}

else if (x == 3) {
smsg = "UPDATE tableName/n";
smsg = smsg + " SET 字段名 = 'value'/n";
smsg = smsg + " WHERE 字段 = '值'/n/n";
if (sqlvalue == "") { document.sqlform.sql.value = smsg; }
else {
document.sqlform.sql.value = document.sqlform.sql.value + smsg; }
}

else if (x == 4) {
smsg = "DELETE 字段/n";
smsg = smsg + " FROM 表名/n";
smsg = smsg + " WHERE 字段名 = '值'/n/n";
if (sqlvalue == "") { document.sqlform.sql.value = smsg; }
else {
document.sqlform.sql.value = document.sqlform.sql.value + smsg; }
}

else if (x == 5) {
smsg = "CREATE TABLE 表名/n";
smsg = smsg + " (字段名 varchar(20),/n";
smsg = smsg + " 字段名 char(20),/n";
smsg = smsg + " 字段名 integer)/n/n";
if (sqlvalue == "") { document.sqlform.sql.value = smsg; }
else {
document.sqlform.sql.value = document.sqlform.sql.value + smsg; }
}

else if (x == 6) {
smsg = "DROP TABLE 表名/n/n";
if (sqlvalue == "") { document.sqlform.sql.value = smsg; }
else {
document.sqlform.sql.value = document.sqlform.sql.value + smsg; }
}

else if (x == 7) {
smsg = "SELECT a.字段名, b.字段名/n";
smsg = smsg + " FROM 表名 a, 表名 b/n";
smsg = smsg + " WHERE a.字段名 = b.字段名/n/n";
if (sqlvalue == "") { document.sqlform.sql.value = smsg; }
else {
document.sqlform.sql.value = document.sqlform.sql.value + smsg; }
}

else if (x == 8) {
document.sqlform.sql.value = "";
}



}
</script>
<%
Set fso=Server.CreateObject("Scripting.FileSystemObject")
'########################
Function RelativePath(sPath)
'########################
RelativePath=sPath
'If Session("UseRootfolders") AND NOT Session("AllowMapDrives") Then If RelativePath="" Then RelativePath="/" Else RelativePath=Session("CurRFNum") & "|" & Replace(sPath,Session("RFPath")(Session("CurRFNum")),"",1,-1,1)
End Function




ItemsPerPage=20
' On Error resume next

a=Request("a")
If Request("TruncateAt")<>"" Then Session("TruncateAt")=CINT(Request("TruncateAt"))
If Session("TruncateAt")="" Then Session("TruncateAt")=25
f=Request("f")
If f="" then
locaMDB
End If
If a="showmdb" Then
showmdb f
Else
Response.Write "错误的参数: " & a
End If

'######################
SUB LocaMDB
'######################
Response.Write "<center><table border='1' cellpadding=6 cellspacing='0' bordercolor='#444444'>"
Response.Write "<tr><td align='center' bgcolor='000080'><font color=FFFFFF>"
Response.Write "<b>数据库定位</b></td></tr><tr><td bgcolor='#EEEEEE'>"
Response.Write "<Form name=loca>"
Response.Write "<input type=hidden name=a value=showmdb>"
Response.Write "<b>数据库的位置：<input type=file name=""f""><input type=submit value=""定位""><br><br>"
Response.Write "</Form></center>"
Response.End
END SUB
'########################
SUB ShowMDB(f)
'########################
On Error resume next
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & f
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
If err<>0 Then ShowError("数据库打开错误!")
TableList="<Option selected value=''> 以下为可以编辑的表</option>"
Set RS = Conn.OpenSchema(20)
Do Until RS.EOF
If RS.Fields("TABLE_TYPE")= "TABLE" then
If NumTables=0 Then FirstTable=RS.Fields("TABLE_NAME")
NumTables=NumTables+1
TableList=TableList & "<Option>" & RS.Fields("TABLE_NAME") & "</option>"
End If
RS.MoveNext
Loop
RS.Close
Set RS=Nothing
Conn.close
Set Conn=Nothing
SQL=Trim(Request("SQL"))
%>

<%
Response.Write "<center><table border='1' cellpadding=6 cellspacing='0' bordercolor='#444444'>"
Response.Write "<tr><td align='center' bgcolor='000080'><font color=FFFFFF>"
Response.Write "<b>正在编辑数据库 " & fso.getfilename(f) & "</b></td></tr><tr><td bgcolor='#EEEEEE'>"
Response.Write "<Form name=sqlform>"
Response.Write "<b>" & "可用的表" & " (" & NumTables & "个)</b><br><Select Class=FormItem name=table onChange='this.form.submit()'>" & TableList & "</select>"&_
"<select Class=FormItem name=sqlhelp οnclick=""showSQL(document.sqlform.sqlhelp.selectedIndex)"">"&_
"<option SELECTED>SQL帮助</option>"&_
"<option>查询</option> "&_
"<option>插入</option> "&_
"<option>更新</option> "&_
"<option>删除</option> "&_
"<option>建表</option> "&_
"<option>删表</option> "&_
"<option>关联查询</option> "&_
"<option>清空语句</option> "&_
"</select> "&_
"<br><br>"
table=request("Table")
If Table<>"" Then
Showtable=Table
FieldList=GetTableFieldList(f, table)
Response.Write " <b>" & "表中的字段" & " 在表" & table & "中 ("& UBound(Split(FieldList,"<Option")) & "个)</b><br><Select Class=FormItem>" & FieldList & "</select>"&_

"<br><br>"
Else
Showtable=FirstTable
End If

If SQL="" Then tSQL="Select * FROM " & ShowTable Else tSQL=SQL
Response.Write " <b>" & "运行SQL查询" & "</b><br>"&_
"<font size=2 color='ff0000'>" &"警告: 执行后将不能复原，请确认SQL查询语句可靠!" & "</font><br>"&_
"<textarea name=sql Class=FormItem rows=8 cols=65>" & tSQL & "</textarea> "&_
"<input type=button Class=FormItem value='" & "执行" & "' οnclick='javascript:confirmSQL(""执行该查询将修改数据库结构或记录!/n你确定要继续吗？/n"")'><br>"&_
"<font size=1 face=arial>" & "最大返回长度(chars)" & " <input type=input Class=FormItem name=TruncateAt size=4 value="&Session("TruncateAt")&"></font><br>"&_
"</table>"&_
"<input type=hidden name=f value='" & RelativePath(f) & "'>"&_
"<input type=hidden name=a value=showmdb>"&_
"</Form></center>"
If SQL<>"" AND Table="" Then DoSQL f,sql
End SUB
'########################
SUB DoSQL(f,sql)
'########################
If Application("Debugging")=False Then On Error resume next
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & f
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
'######## SELECT
fe=server.urlencode(RelativePath(f))
If Instr(1,SQL,"SELECT",1)=1 Then
Set RS = Server.CreateObject("ADODB.Recordset")
Page=Cint(request("p"))
If page<1 Then page=1
RS.Open SQL, Conn, 3,3
RS.PageSize=ItemsPerPage
TotalPages=RS.PageCount
TotalItems=RS.recordCount
Response.Write "<b>" & "执行结果" & ": </b><font size=2>找到" & TotalItems & "个记录</font><br>"
If NOT RS.EOF Then
RS.AbsolutePage = Page
Response.Write "<Table cellspacing=1 cellpadding=1><tr>"
Response.Write "<td bgcolor=000080><font color=FFFFFF><b></b></td>"
For i = 0 to RS.Fields.Count-1
Response.Write "<td NoWrap bgcolor=000080 align=center><font color=FFFFFF><b>" & RS.Fields(i).name & "</b></td>"
Next
Response.Write "</tr>"
While n<RS.pageSize AND NOT RS.EOF
n=n+1
Response.Write "<tr>"
Response.Write "<td NoWrap bgcolor=EEEEEE> <b>&nbsp;" & (page-1)*RS.pageSize + n & "&nbsp;</b></td>"
For i= 0 to RS.Fields.Count-1
sVal=LeftTrue(RS.Fields(i),Session("TruncateAt"))
Response.Write "<td NoWrap bgcolor=EEEEEE> &nbsp;"
Response.Write HTMLEncode(sVal)
Response.Write "&nbsp;</td>"
Next
RS.MoveNext
Response.Write "</tr>"
Wend
Response.Write "</table><br>"
eSQL=Server.URLEncode(SQL)
If Page>2 Then Response.Write "<a href=mdb.asp?a=showmdb&sql=" & eSQL& "&f=" & fe & "&p=1><font face='Webdings'>9</font></a>&nbsp;"
If Page>1 Then Response.Write "<a href=mdb.asp?a=showmdb&sql=" & eSQL & "&f=" & fe & "&p=" & page-1 & "><font face='Webdings'>7</font></a>&nbsp;"
If Totalpages>1 Then Response.Write "<font size=2 color='ff0000'>" & page & "/" & Totalpages & "</font>"
If Page<Totalpages Then Response.Write "<a href=mdb.asp?a=showmdb&sql=" & eSQL & "&f=" & fe & "&p=" & page+1 & "><font face='Webdings'>8</font></a>&nbsp;"
If Page+1<Totalpages Then Response.Write "<a href=mdb.asp?a=showmdb&sql=" & eSQL & "&f=" & fe & "&p=" & TotalPages & "><font face='Webdings'>:</font></a>&nbsp;"
End If
RS.Close
Set RS=Nothing
Else '######## Other query types
Conn.Execute(sql)
if Err <> 0 then
ShowError "SQL查询出错"& ": " & SQL
else
Response.redirect("mdb.asp?a=showmdb" & "&f=" & fe)
end if
End If
Conn.close
Set Conn=Nothing
End SUB

'########################
Function GetTableFieldList(f,table)
'########################
On Error resume next
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & f
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
Set RS = Conn.OpenSchema(4)
Do Until RS.EOF
If RS.Fields("TABLE_NAME")=Table Then
n=n+1
Select Case RS.Fields("DATA_TYPE")
Case 2 : DataType=("SmallInt")
Case 3 : DataType=("Long Integer")
Case 4 : DataType=("Single")
Case 5 : DataType=("Double")
Case 6 : DataType=("Currency")
Case 7 : DataType=("Date")
Case 11 : DataType=("Boolean")
Case 12 : DataType=("Variant")
Case 13 : DataType=("IUnknown")
Case 129 : DataType=("Char")
Case 130 : DataType=("WChar")
Case 131 : DataType=("Numeric")
Case 132 : DataType=("UserDefined")
Case 133 : DataType=("DBDate")
Case 134 : DataType=("DBTime")
Case 135 : DataType=("DBTimeStamp")
Case 200 : DataType=("VarChar")
Case 201 : DataType=("LongVarChar")
Case 202 : DataType=("VarWChar")
Case 204 : DataType=("VarBinary")
Case 205 : DataType=("LongVarBinary")
Case Else: DataType=("Unknown")
End Select
s=s & "<Option value='" & RS.Fields("COLUMN_NAME") & "'>" & RS.Fields("COLUMN_NAME") & " ("& DataType & ")</option>"
End If
RS.MoveNext
Loop
RS.Close
Set RS=Nothing
Conn.close
Set Conn=Nothing
GetTableFieldList=s
End Function

Function LeftTrue(str,n)
If len(str)<=n/2 Then
LeftTrue=str
Else
Dim TStr
Dim l,t,c
Dim i
l=len(str)
t=l
TStr=""
t=0
for i=1 to l
c=asc(mid(str,i,1))
If c<0 then c=c+65536
If c>255 then
t=t+2
Else
t=t+1
End If
If t>n Then exit for
TStr=TStr&(mid(str,i,1))
next
LeftTrue = TStr
End If
End Function

function HTMLEncode(fString)

fString = replace(fString, ">", "&gt;")
fString = replace(fString, "<", "&lt;")

fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
fString = Replace(fString, " ", "&nbsp;&nbsp;")
HTMLEncode = fString
end function

%>
panzi667
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
SQL语句执行器
08-26
这是一个能在网站后台执行SQL语句的程序，可以查询数据库，对初学数据库的朋友很有帮助，可以练习SQL
SQL执行器
caiguazheng4921的博客
02-05 298
完全取代sql查询分析器，以后维护就不用每次都装sql客户端了
SQL脚本文件执行器
朝雨忆轻尘
08-01 451
处于项目需求，需要能够批量执行SQL脚本文件，需要由前台页面操作触发执行。 查找相关资料，发现 Ant 提供了 SQLExec 组件可以支持SQL文件的执行，测试效果不错。 以下是对 SQLExec 封装后支持批量执行的执行器组件。 package com.ge.digital.spo.sql.execute.ant; import java.io.File; impor...
Cloud Toolkit 数据库 SQL 执行器
测试0901-1
04-19 260
Cloud Toolkit是一个IDE 插件，帮助开发者更高效地开发、测试、诊断并部署应用。使用本插件，开发者能够方便地将本地应用一键部署到任意机器，或 ECS、EDAS、Kubernetes；并支持高效执行终端命令和 SQL 等。 2019.3 版本(查看完整ReleaseNotes)已于上周五正式发布，本文介绍在 Cloud Tookit 插件里使用...
SQL快速执行器（很方便的）
02-28
先打开服务器，然后运行SQL执行器，选择对应的服务器，连接使用就行了 该软件来源自互联网
动态代码生成器.zip
12-15
软件名称: 动软代码生成器 软件版本: 2.76 软件语言: 简体中文 运行环境: Win2003/XP/2000/WIN7 .NET Framework 2.0 版本更新： 1.完善数据库加载的用户体验。 2.完善代码生成的逻辑和bug。 3.完善local的...
MS SQL SERVER 数据库日志压缩方法与代码
12-15
下面我给大家介绍一个方法 1、打开企业管理器 2、打开要处理的数据库 3、点击菜单>工具>SQL查询分析器 4、在输入窗口里面输入: 代码如下:DUMP TRANSACTION [数据库名] WITH NO_LOG BACKUP LOG [数据库名] ...
基于Python的DbFaker数据生成器源码
最新发布
03-25
项目名称：DbFaker - 基于Python的数据生成器 项目简介： DbFaker是一个基于Python开发的数据生成工具，旨在数据库层面批量生成具有逻辑关联的仿真数据。该项目由纯Python代码编写，结合Shell脚本，提供了高效、...
代码生成器tanghc2020 基础包 可自定义模板生成不同的代码，支持MySQL、Oracle、SQL Server
02-23
一款代码生成工具，可自定义模板生成不同的代码，支持MySQL、Oracle、SQL Server、PostgreSQL 首先联网安装docker 利用docker下载公共镜像 docker pull tanghc2020/gen:latest 下载完毕后，执行 docker run -...
java8源码-sqlParser:使用java和antlr4的sql解析器
06-04
java8 源码 sql parser 描述 1.基于 Java8，利用 Antlr4 实现对 ...3.Execution：根据执行计划类型，选择不同的执行器 Execution，并对嵌套的父子查询进行拆解，根据 dfs 最底层的子查询需要优先执行，
脚本执行器
04-01
SQL脚本执行器,SQL 2K SP4
《Mybatis 手撸专栏》第7章：SQL执行器的定义和实现
bugstack虫洞栈
05-05 1124
引入SQL执行器，解耦DefaultSqlSession对SQL的绑定处理，为后续的功能迭代留出可扩展的口子。渐进式迭代开发，学习框架源码，掌握设计原则和工程实现方案，拉高自己的认知和编码水平。
【参赛作品53】openGauss SQL执行器
Gauss松鼠会
12-22 1208
一、源码分析： 1、ExecutorStart 代码调试过程以及分析 ExecutorStart 部分代码主要需要的数据结构有： QueryDesc：查询描述符，实际是需要执行的SQL语句的相关信息，包含由CreateQueryDesc函数设置的操作类型、规划器的输出计划树、元组输出的接收器、查询环境变量以及由ExecutorStart函数设置的结果元组tuples描述、执行器状态、和per-plan-node状态树。具体结构见后面的执行器的主要数据结构分析。
sql执行过程
weixin_44052482的博客
03-06 181
sql执行过程 一个sql语句是如何执行的？从mysql服务架构说起。 mysql内部大致分为服务层和存储引擎层两部分 服务层： 包含连接器、查询缓存、分析器、优化器、执行器等。涵盖mysql的大多数核心服务功能及所有内置函数（如日期、时间、数据和加密等）所有跨存储引擎的功能都将在这一层实现，比如存储过程、触发器、视图、函数等，也包括通用的binlog日志模块。 存储引擎层： 包含数据的存储和...
手敲Mybatis(五)-SQL执行器
dfBeautifulLive的博客
10-28 809
上一章节的DefaultSqlSession类获取连接以及执行sql语句再转换结果等的写法不符合单一职责原则，这样日后维护这个方法会越来越长，甚至更改还会出现其他业务错误的可能，所以这一章节围绕的就是按各个职能去拆分不同的类去实现，也方便日后扩展，如执行SQL语句则使用执行器去执行，在执行的过程中需要得到SQL语句，所以需要设计语句处理器需要准备语句，参数化（预处理则将参数进行?转为数据），最后才执行查询等操作，这些类相辅相成，最终的设计则体现在可独自使用，也可按流程合在一起执行。
Mybatis工具—SQL执行器（ScriptRunner）
乐只悠悠
07-11 5092
 Mybatis为了统一读取SQL脚本文件中的SQL语句并执行，所以提供了ScriptRunner工具类（org.apache.ibatis.jdbc.ScriptRunner），使用该类可以读取和执行SQL脚本。
自己动手写SQL执行引擎
反作弊
02-10 159
自己动手写SQL执行引擎 前言 在阅读了大量关于数据库的资料后，笔者情不自禁产生了一个造数据库轮子的想法。来验证一下自己对于数据库底层原理的掌握是否牢靠。在笔者的github中给这个database起名为Freedom。 整体结构 既然造轮子，那当然得从前端的网络协议交互到后端的文件存储全部给撸一遍。下面是Freedom实现的整体结构，里面包含了实现的大致模块: 最终存储结构当然是使用经典的B+树结构。当然在B+树和文件系统block块之间的转换则通过Buffer(Page) Manager来进行。当然了
openGauss数据库源码解析系列文章——执行器解析（一）
openGauss的博客
03-24 419
执行器在数据库整个体系结构中起到承上启下的作用，对上承接优化器产生的最优执行计划，并按照执行计划进行流水线式的执行，对底层的存储引擎中的数据进行操作。openGauss数据库将执行的过程抽象成了不同类型的算子，...
mysql执行器_查询执行器介绍 - PolarDB-X 云原生分布式数据库 - 阿里云
weixin_30259017的博客
01-20 610
基本概念SQL执行器是PolarDB-X Server中执行逻辑层算子的组件。对于简单点查SQL，往往可以整体下推存储层MySQL执行，因而感觉不到执行器的存在，MySQL的结果经过简单的解包封包又被回传给用户。但是对于较复杂的SQL，往往无法将SQL中的算子全部下推，这时候就需要PolarDB-X执行器做完无法下推的那部分计算。例如，对于如下查询SQL：SELECT l_orderkey,sum...
mybtisplus 配置neo4j自定义sql执行器完整代码
05-26
以下是使用MyBatis Plus配置Neo4j自定义SQL执行器的完整代码示例： 1. 首先，需要在pom.xml文件中添加以下依赖： ```xml <groupId>com.baomidou</groupId> <artifactId>mybatis-plus-boot-starter ${mybatis-...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值