ASP 如何实现查询 数据库文件！

分类: 电脑/网络 >>程序设计 >>其他编程语言

解析:

连接access数据库

asp数据库

一、

<%

dim conn

dim dbpath

set conn=server.createobject("adodb.connection")

DBPath = Server.MapPath("8301")

conn.Open "driver={Microsoft Access Driver (*.mdb)}dbq=" &DBPath

%>

二、

<%

Set Conn=Server.CreateObject("ADODB.Connection")

Connstr="DBQ="+server.mappath("rc/lzh")+"DefaultDir=DRIVER={Microsoft Access Driver (*.mdb)}"

Conn.Open connstr

%>

dim ipconn

set ipconn=server.createobject("ADODB.CONNECTION")

ipconn.open "DBQ="&server.mappath("ip.mdb")&"DRIVER={Microsoft Access Driver (*.mdb)}"

dim rs,sql

Set rs = Server.CreateObject("ADODB.Recordset")

sql="select top 1 ip_b,ip_c from ip where (ip_s<=" &ip &" and ip_e>=" &ip &")"

rs.Open sql,ipconn,1,1

if rs.eof or rs.bof then

getaddress="未知|未知"

Else

getaddress=rs(0)&"|"&rs(1)

end if

mdb数据库

一、

<%dim coon

Set Conn=Server.CreateObject("ADODB.Connection")

Connstr="DBQ="+server.mappath("***********/123.mdb")+"DefaultDir=DRIVER={Microsoft Access Driver (*.mdb)}"

Conn.Open connstr

%>

二、

dim conn

set conn = server.createobject("adodb.connection")

conn.open = "provider=microsoft.jet.oledb.4.0" &"data source = " &server.mappath("../db/bbs.mdb")

三、

<%@ language=VBs cript%>

<%

dim conn,mdbfile

mdbfile=server.mappath("数据库名称.mdb")

set conn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver (*.mdb)}uid=adminpwd=数据库密码dbq="&mdbfile

%>

set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")

DBPath = Server.MapPath("customer.mdb")

dbconnection.Open "driver={Microsoft Access Driver (*.mdb)}dbq=" &DBPath

SQL="select * from auth where id='" &user_id &"'"

SET uplist=dbconnection.EXECUTE(SQL)

2.

set dbconnection=Server.CreateObject("ADODB.Connection")

DBPath = Server.MapPath("customer.mdb")

dbconnection.Open "provider=microsoft.jet.oledb.4.0data source="&dbpath

SQL="select * from auth where id='" &user_id &"'"

SET uplist=dbconnection.EXECUTE(SQL)

3.

DBPath = Server.MapPath("customer.mdb")

set session("rs")=Server.CreateObject("ADODB.Recordset")

' rs=Server.CreateObject("ADODB.Recordset")

connstr="provider=microsoft.jet.oledb.4.0data source="&dbpath

SQL="select * from auth where id='" &user_id &"'"

session("rs").Open sql,connstr,1,3

4.

建odbc源xxx

set conn=server.createobject("Adodb.connection")

conn.open "DSN=xxxUID=PWD=Database=customer

SetConn=Server.CreateObject("ADODB.Connection")

Connstr="DBQ="+server.mappath("aaa/bbspp1.mdb")+"DefaultDir=

DRIVER={Microsoft AccessDriver(*.mdb)}DriverId=25FIL=MSAccess

ImplicitCommitSync=Yes

MaxBufferSize=512MaxScanRows=8PageTimeout=5SafeTransactions=0

Threads=3UserCommitSync=Yes"

Conn.Openconnstr

说明： 其中SetConn=Server.CreateObject("ADODB.Connection")为建立一个访问数据的对象， server.mappath(aaa/bbspp1.mdb)是告诉服务器access数据库访问的路径

conn的内容如下：

<%

dim conn,rs

set conn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver (*.mdb)}dbq="&server.mappath("mdb/mfkiqpl.mdb ")

set rs=server.createobject("adodb.recordset")

set rs.activeconnection=conn

%>

还不懂啊 加偶的QQ 直接问吧

原定计划从本篇开始就要给大家介绍 ASP 内建的 ActiveX

组件 但是考虑到我们在往后的学习中将会接触到大量的数据库查询 因此作者临时决定花一到两篇的篇幅向大家简要介绍一些数据库查询语言的基本知识 这其实也是学习

ASP

所必须掌握的一门知识 是否能够灵活地运用数据库查询语言 将直接关系到

ASP 程序的执行效率等一系列问题 所以请各位务必重视

相信很多朋友都听说过 SQL

这个名字 如果你是计算机方面的行家 SQL

的大名一定是如雷贯耳 那么 SQL 究竟是什么呢?SQL 一词实际上是

"Structured Query Language"

结构式查询语言的缩写 是用于对存放在计算机数据库中的数据进行组织 管理和检索的一种工具是一种特定类型的数据库

关系数据库 而控制这种数据库的计算机程序就是我们常说的

DBMS 数据库管理系统 譬如 SQL Server Oracle Sybase DB

等等 当用户想要检索数据库中的数据时 就通过 SQL

语言发出请求 接着 DBMS 对该 SQL

请求进行处理并检索所要求的数据 最后将其返回给用户 此过程被称作为数据库查询 这也就是数据库查询语言这一名称的由来

SQL 并不是象 C COBOL 和 Fortran 语言那样的完整的计算机语言 SQL

没有用于条件测试的 IF 语句 也没有用于程序分支的 Goto

语句以及循环语句 For 或 Do 确切的讲 SQL 是一种数据库子语言 SQL

语句可以被嵌入到另一种语言中 从而使其具有数据库存取功能 SQL

也非严格的结构式语言 它的句法更接近英语语句 因此易于理解 大多数

SQL 语句都是直述其意 读起来就象自然语言一样明了 SQL

还是一种交互式查询语言 允许用户直接查询存储数据 利用这一交互特性 用户可以在很短的时间内回答相当复杂的问题 而同样问题若让程序员编写相应的报表程序则可能要用几个星期甚至更长时间

在大部分 ASP 应用程序中我们都会接触到数据库 而我们在编写

ASP 应用程序时用来进行数据库 *** 作的标准语法正是 SQL 因此 SQL

语法的重要性是不言而喻的 下面 我们就从最常用的 SQL 语句 SELECT

着手 一步一步地来学习 SQL

查询是 SQL 语言的核心 而用于表达 SQL 查询的 SELECT

语句则是功能最强也是最为复杂的 SQL

语句 它从数据库中检索数据 并将查询结果提供给用户 在本文中我们将建立一个名为

tianjiao 的简单数据库 该库中存放了一个叫 sales

的销售记录表 如下所示 :

姓名

性别

工资

销售目标

销售额

地区

书生

男

上海

吴冠军

男

北京

雷鸣

男

四川

雪儿

女

广州

顾一

男

大连

阿卓

女

天津

熠天

男

全国

在该表中有六列即六个字段 :

姓名 性别 工资 销售目标 销售额 地区 首先我们用 Select

语句列出姓名 销售目标和销售额 :

Select 姓名 销售目标 销售额 From sales

结果如下 :

姓名

销售目标

销售额

书生

吴冠军

雷鸣

雪儿

顾一

阿卓

熠天

然后 我们再列出所有男性的姓名 销售目标和销售额 :

Select 姓名 销售目标 销售额 From sales Where 性别 =" 男

"

结果如下 :

姓名

销售目标

销售额

书生

吴冠军

雷鸣

顾一

熠天

接下来 我们做一个相对复杂的查询 列出销售额大于销售目标的所有男性的姓名 销售目标和销售额 并且按销售目标排序

Select 姓名 销售目标 销售额

Form sales

Where 销售额 >销售目标

And 性别 =" 男 "

Order By 销售目标

结果如下 :

姓名

销售目标

销售额

书生

雷鸣

顾一

熠天

大家可以看到 对于简单查询 SQL Select

语句和英文语法很相象 我们来分析一下 SELECT

语句的完整格式 它包括六个子句 其中 SELECT 和FROM

子句是必须的 其它子句可以任选 每个子句的功能如下 :

Select 子句列出所有要求 SELECT 语句检索的数据项 它放在

SELECT

语句开始处 指定此查询要检索的数据项 这些数据项通常用选择表表示 即一组用“ ”隔开的选择项 按照从左到右的顺序 每个选择项产生的一个列的查询结果 一个选择项可能是以下项目

( ) 列名 标识 FROM

子句指定表中的列 如果列名作为选择项 则 SQL

直接从数据库表中每行取出该列的值 再将其放在查询结果的相应行中

( ) 常数 指定在查询结果的每行中都放上该值

( ) SQL

表达式 说明必须将要放入查询结果中的值按表达式的规定进行计算

From 子句列出包含所要查询数据的表 它由关键字 FROM

后跟一组用逗号分开的表名组成 每个表明都代表一个包括该查询要检索数据的表 这些表称为此

SQL 语句的表源 因为查询结果都源于它们

Where 子句告诉 SQL

只查询某些行中的数据 这些行用搜索条件描述

Group By

子句指定汇总查询 即不是对每行产生一个查询结果 而是将相似的行进行分组 再对每组产生一个汇总结果

Having 子句告诉 SQL 只产生有 Group By

得到的某些组的结果 和 Where

子句一样 所需要的组也用一个搜索条件指定

Order By

子句将查询结果按一列或多列中的数据排序 如果省略此子句 则查询结果将是无序的

下面作者将提供一个简单但实用的运用 SQL 语句查询的 ASP

程序供大家参考

为了使大家更清楚更直接地了解 SQL 语法在 ASP

中的应用 我们先将查询的所有核心过程写成一个名为 query table 的SUB 然后利用

ASP 的服务器端包容功能调用该 SUB 请将以下语句剪贴到记事簿 保存为

subdBTable inc 文件 并置于虚拟目录 asptest 下:

<%

sub query table(inputquery)

set conntemp=server createobject("adodb connection")

conntemp open "DSN=Studentuid=studentpwd=aspmagic"

set rstemp=conntemp execute(inputquery)

howmanyfields=rstemp fields count

统计数据库中的列数

%>

<table border= ><tr>

<%

for I= to howmanyfields

%>

<td><b><%=rstemp(I) name%></B></TD>

<% next %>

</tr>

<%

do while not rstemp eof

%>

<tr>

<% for I = to howmanyfields

thisvalue=rstemp(I)

If isnull(thisvalue) then

thisvalue="?

如果字段为空 则将变量 thisvalue 的值定义为一个空格

end if%>

<td valign=top><%=thisvalue%></td>

<% next %>

</tr>

<%rstemp movenext

loop%>

</table>

<%

rstemp close

set rstemp=nothing

conntemp close

set conntemp=nothingend sub%>

完成了 SUB 的定义过程 在下面几个 ASP

程序中我们只要加入想要使用的 SQL

查询语句 并调用该过程就可以非常方便的得到查询结果 将以下四段代码分别保存为

asp a asp asp b asp asp c asp asp d asp 四个 asp 文件

<HEAD><TITLE>asp a asp</TITLE></HEAD>

<HTML><body bgcolor="#FFFFFF">

<%

call query table("select * from publishers where name like A%% ")

将表 publishers 中所有姓名中有字母 A 的记录查询出来

%>

<! #include virtual="/asptest/subdBTable inc" ></BODY><

/HTML>

<HEAD><TITLE>asp b asp</TITLE></HEAD><HTML><

body bgcolor="#FFFFFF">

<%

call query table("select * from titles where Year_Published >= ")

将表 titles 中所有发表年份大于或等于 年的记录查询出来

%>

<! #include virtual="/asptest/subdBTable inc" ></BODY><

/HTML>

<HEAD><TITLE>asp c asp</TITLE></HEAD><HTML><

body bgcolor="#FFFFFF">

<%

call query table("select * from publishers where amount>and

sex= male ")

将表 publishers 中所有数量大于 且性别为男的记录查询出来

%>

<! #include virtual="/asptest/subdBTable inc" ></BODY><

/HTML>

<HEAD><TITLE>asp d asp</TITLE></HEAD><HTML><

body bgcolor="#FFFFFF">

<%

call query table("select * from publishers where state<>NY ")

将表 publishers 中所有所在城市不为纽约的记录查询出来

%>

<! #include virtual="/asptest/subdBTable inc" ></BODY><

/HTML>

利用 subdBTable inc 文件中的所定义的过程 query table 你就可以非常迅速地对数据库进行查询 你所要做的只是将“conntemp open

"DSN=Studentuid=studentpwd=aspmagic"”中的数据库名称 用户身份和密码稍加改动 并在调用

query table 时输入想要使用的 SQL 查询语句即可 是不是很简单 ?

这就是 ASP 和 SQL 的魅力所在 !!!

今天 我们虽然用了一整篇的篇幅只学习了一个 SQL

指令 但请你相信你所获得远不同于一个 DOS 指令 SELECT

指令使得你可以非常容易地对数据库进行查询 或许在这之前你对数据库查询还一无所知 但是通过本篇的学习 你其实已经会使用

ASP 进行常用的数据库查询了 是不是很激动 ?

lishixinzhi/Article/program/net/201311/14199

---