-
您的位置：首页 → 技术开发 → ASP技巧 → 一个简单的SQL语句执行器
一个简单的SQL语句执行器
时间：2004/11/7 4:11:00来源：本站整理作者：蓝点我要评论(0)
-
大至分为三个文件：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
%>
<%
end if
%>
<%
%>
SOL语句执行示例
<%
sqllanguage=Request("sqllanguage")
%>
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
%>
<%
do while not rstable.eof
if rstable("table_type")="TABLE" then
%>
数据库中的表名 |
<%
response.write rstable("table_name")
%>
|
该表中的所有字段 |
<%
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
%>
|
<%
end if
rstable.movenext
loop
rstable.close
set rstable=nothing
%>
<%
conndb.close
set conndb=nothing
%>
=====================================entice2.asp
select查询器====entice
<%
rstsql=request("sql")
response.write "你的查询语句为:"&rstsql&"
下面是您所查询的记录集"
set rstobj=server.createobject("adodb.recordset")
rstobj.open rstsql,conndb,1
response.write ",共查到"&rstobj.recordcount&"条记录"
fcount=rstobj.fields.count
response.write "
bgcolor='#000000'>"
for i=0 to fcount-1
response.write ""&rstobj(i).name&" | "
next
response.write "
"
do while not rstobj.eof
response.write ""
for i=0 to fcount-1
response.write ""&rstobj(i)&" | "
next
response.write "
"
rstobj.movenext
loop
response.write "
"
rstobj.close
set rstobj=nothing
conndb.close
set conndb=nothing
%>
相关阅读
Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么
-
热门文章
没有查询到任何记录。
最新文章
VB.NET 2005编写定时关
Jquery get/post下乱码解决方法 前台gbk gb如何使用数据绑定控件显示数据ASP脚本循环语句ASP怎么提速
人气排行
轻松解决"Server Application Error"和iis"一起学习DataGridView调整列宽用ASP随机生成文件名的函数Jquery get/post下乱码解决方法 前台gbk gbODBC Drivers错误80004005的解决办法返回UPDATE SQL语句所影响的行数的方法用Javascript隐藏超级链接的真实地址两个不同数据库表的分页显示解决方案
查看所有0条评论>>