您的位置：首页 → 技术开发 → 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

%>



<%

%>









<%

sqllanguage=Request("sqllanguage")

%>

请输入SQL语句

指令：

---

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

%>

















<%

end if

rstable.movenext

loop

rstable.close

set rstable=nothing

%>

数据库中的表名	<% 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 %>

<%

conndb.close

set conndb=nothing

%>





=====================================entice2.asp











<%

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 ""

next

response.write ""

do while not rstobj.eof

response.write ""

for i=0 to fcount-1

response.write ""

next

response.write ""

rstobj.movenext

loop

response.write "

"&rstobj(i).name&"

"&rstobj(i)&"

"

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是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论