一个简单的SQL语句执行器

门牙松了

门牙松了

2016-01-29 18:31

一个简单的SQL语句执行器,一个简单的SQL语句执行器
  大至分为三个文件:ljmdb.asp(连接库文件)、entice.asp(sql语句执行主界面)、entice2.asp(select记录集)

====================================ljmdb.asp
<%
set conndb=server.createobject("ADODB.CONNECTION")
constr="provider=microsoft.jet.oledb.4.0;data

source="&server.mappath("/aspsky.myip.org/entice.mdb")
conndb.open constr
%
'这是连接access的,把数据库的地址改成你自己的地址就行了

====================================entice.asp
<%
if left(trim(request("sqllanguage")),6)="select" then
%
<script language=javascript
window.open("entice2.asp?sql=<%=request("sqllanguage")%","","height=450,width=600,resizable=yes,

scrollbars=yes,status=no,toolbar=no,menubar=no,location=no")
</script
<%
end if
%
<!--#include file=ljmdb.asp--
<%
%
<HTML
<TitleSOL语句执行示例 </Title
<style type="text/css"
<!--
body { font-size: 12px}
table { font-size: 12px}
--
</style
<Body Bgcolor=#009999
<%
sqllanguage=Request("sqllanguage")
%
<Form Name="FormPst" Method="Post" Action="entice.asp"
<div align="center"<FieldSet <Legend请输入SQL语句</Legend 指令:
<Input type="text" name="sqllanguage" Size=60
<Input type="Submit" Value="送出"
</FieldSet </div
</form
<Hr
SQL 语句执行情况:

<%
if sqllanguage<Empty then
On Error Resume Next
conndb.Execute(sqllanguage)
if err.number="0" then
message1="执行成功"
response.write message1
else
message1=err.description
response.write message1
err.clear
end if
end if
%



<%
set rstable=conndb.openSchema(20)
rstable.movefirst
%
<table width="95%" border="0" cellspacing="1" cellpadding="3" align="center" bgcolor="#000000"
<%
do while not rstable.eof
if rstable("table_type")="TABLE" then
%
<tr bgcolor="#006400"
<td width="18%" nowrap<font color="#FFFFFF"数据库中的表名</font</td
<td width="82%" nowrap <font color="#FFFFFF"
<%

response.write rstable("table_name")
%
</font</td
</tr
<tr bgcolor="#CCCCCC"
<td width="18%" nowrap该表中的所有字段</td
<td width="82%" nowrap
<%
set rstobj=server.createobject("adodb.recordset")
rstsql="select * from "&rstable("table_name")
rstobj.open rstsql,conndb,1
for i=0 to rstobj.fields.count-1
response.write rstobj(i).name&"|"
next
rstobj.close
set rstobj=nothing
%
</td
</tr
<%
end if
rstable.movenext
loop
rstable.close
set rstable=nothing
%
</table
</Body
</HTML
<%
conndb.close
set conndb=nothing
%


=====================================entice2.asp
<Titleselect查询器====entice</Title
<style type="text/css"
<!--
body { font-size: 12px}
table { font-size: 12px}
--
</style

<Body Bgcolor=#009999
<!--#include file=ljmdb.asp--
<%
rstsql=request("sql")
response.write "你的查询语句为:"&rstsql&"
下面是您所查询的记录集"
set rstobj=server.createobject("adodb.recordset")
rstobj.open rstsql,conndb,1
response.write ",共查到"&rstobj.recordcount&"条记录"
fcount=rstobj.field
展开更多 50%)
分享

猜你喜欢

一个简单的SQL语句执行器

ASP
一个简单的SQL语句执行器

编写一个asp代码执行器

ASP
编写一个asp代码执行器

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

ASP整合的一个SQL语句类

ASP
ASP整合的一个SQL语句类

ADO带密码的数据连接、查询一个记录集、执行一SQL语句

编程语言 网络编程
ADO带密码的数据连接、查询一个记录集、执行一SQL语句

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

批量执行sql语句的方法

编程语言 网络编程
批量执行sql语句的方法

SQL Select语句完整的执行顺序

编程语言 网络编程
SQL Select语句完整的执行顺序

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

如何读出空格

如何读出空格

开启XP关闭事件跟踪程序功能 

开启XP关闭事件跟踪程序功能 
下拉加载更多内容 ↓